Please Help: Password Locked VBA Code! I'm Desperate...
Oct 6, 2005
Hi,
I really hope somebody can help me... I put a password on the VBA code in an Access 2000 database. It's been a long time ago and now I have forgotten the password. I need to modify something urgent in that code, but it is locked now. I don't know the password anymore.
Is there some way to gain access to the VBA code again???
Please if you know a solution I would be very thankful!
:(
View Replies
ADVERTISEMENT
Mar 22, 2013
I have MS access database. The database is password encrypted. I do not own this database but it is critical for me to see the contens of this database. I do not want to edit the contents.
View 9 Replies
View Related
May 8, 2005
I'm going live with my DB tomorrow morning. I wanted to to Edited Records for my lock type but ran into a problem, this weekend when I took it to our office and had it on multiple computers for the first time. (I've been designing at my house, in my spare time (right), so I couldn't test for the problem I have now.) When a user is on a record and I open the same record up on another computer it locks ok and shows in the Record Selector that it's locked but if I begin to tab through the form I have at least one code that pukes. In my LastName field, in the On Exit event, I have the following code:
If Not (IsNull(Me.LastName)) Then
Me.LastName = StrConv(Me.LastName, vbProperCase)
End If
As I try to Exit this field, only when the record is locked, the code pukes. Can some one lend a hand and give some advise on how to prevent this?
Thanks ahead of time,
Shane
View 2 Replies
View Related
Oct 19, 2005
:eek: :eek: :eek: :eek: :eek: :confused: :confused: :confused:
I am trying to update a database table via a command button on the main form, that uses tabbed sub forms.
The database gets its data from paradox data tables copied our company's
third-party software. These table files are copied from one location to another to stop the paradox database from locking up and giving me errors during the import process of this database. I then link to these files at a pre-determined location on a local computer hard drive.
When I try to run the code below I get the error about the table being
locked by a user or process. As you can see I have tried adding a pause
incase the files are still being copied but this does not seem to be the
problem.
I have used a msg box to confirm that the copying process has completed before starting the make query, but the same error comes up after I click ok.
Can anyone suggest anything else.
As you can see from the simplicity of the code below I am a beginner so take it easy on me, by not taking knowledge for granted. :)
code:
------------------------------------------------------------
Dim response
Dim stDocName As String
Dim stLinkCriteria As String
response = MsgBox("Are you sure that you want to update xxx with Customer
data from xxx?", vbYesNo, "Perform Update")
If response = vbYes Then
‘pause software to let any pending work to be completed
Sleep (5000)
‘close active form
DoCmd.Close
‘close all active forms
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
‘pause software to let any pending work to be completed
Sleep (30000)
‘delete existing file
Kill "c:folderfile DATA.DB"
‘replace with new file
FileCopy "J:Folderew_DATA.DB", " c:folderfile DATA.DB "
‘pause software to let any pending work to be completed
Sleep (40000)
DoCmd.SetWarnings False
stDocName = "Make_DATA"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
stDocName = "Make_DATA_SUMMARY"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
stDocName = "qry_Update_ Status"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
‘open up main form when finsihed
stDocName = "main-form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.SetWarnings True
Else
End If
View 3 Replies
View Related
Sep 19, 2006
Hi,
Is the password property in Access secure enough to protect VBA code?
Regards,
B
View 14 Replies
View Related
Jul 7, 2006
Hello everybody,
Can anyone out there please help me? I’ve been wandering around the various forums trying to gain some advice concerning password protecting a form. I have tried in vain to tackle this one on my own but alas I cannot, and hence I am turning to some kind person out there to try to help me out of my problem.
Having searched the various forums extensively, and have seen numerous examples all of which work fine,however in a different context; I cannot for the life of me understand where I could incorporate such code along with the existing code that I already use, with great success to open a linked form. All I want to achieve is for a user to click on a command button and for it to prompt for a password and then to open up my form which is synchronised to the original form that contains the command button.
What I have so far is:
Private Sub Command146_Click()
On Error GoTo Err_Command146_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "RestrictedAccess"
stLinkCriteria = "[Medical.Release No]=" & "'" & Me![PatientNumber] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command146_Click:
Exit Sub
Err_Command146_Click:
MsgBox Err.Description
Resume Exit_Command146_Click
End Sub
I read the following thread from Ghudson showing a good example of password protecting a form but how do I use such code in the example that I have above.
http://www.access-programmers.co.uk/...ad.php?t=85846
Any help or guidance in this area would be extremely welcome and gratefully appreciated.....
P.S: This site has been invaluable to me in the past, particularly as I am a relative newcomer to Access and VBA.
Best Regards
Thanks for taking the time out to read.....
Carol
View 2 Replies
View Related
Mar 21, 2006
Hello All, i am trying to write a macro or use VBA code or something that will allow me to change my password when i click on a command button.
For example i click on the command button and the change password box appears.
Can anybody help?
Thanks
Benn
p.s: Access Novice Here !!
View 1 Replies
View Related
Jun 10, 2012
I've been working on a large project for my employer for a year now (but software development isn't part of my normal day to day duties). Most of the work (around 70%) has been done in my own time at home. The company were going to buy a system that would be customized by developers at a cost of around $60,000. I've developed a solution that is probably better than what they would have got. At my last appraisal my boss said that it had been discussed that i would be rewarded if i delivered it. My question is:
Is it possible to password protect access to the source code? I'm working with Access 2003 just now. I know I can create a .mde file to prevent access to the source code but that would make further development difficult. e.
View 8 Replies
View Related
Jul 6, 2005
I have uploaded a database that I am working on it, and would appreciate it if someone could look at it and help me out, as I have gone through the forum trying to resolve my issue. There has been some topics on combo boxes and subforms and some of the posts only help me partly to my requirement.
When a user hits the button 'Enter Rate for Supplier' (which is to be double clicked, all buttons on the forms are double clicked) on the form 'Main form' a form 'Rates' comes up with a combo box and a subform. What I want then to happen is that a user selects a 'supplier' in the combo box, and then goes to the subform and selects the class and enters the rate. Note, the supplier names appearing in the combo box are entered through the form 'Enter Supplier Details' which is launched after the button 'Enter Supplier Details' on the main form is double clicked. Details entered through this form populates the table 'Supplier Details'. After entering the class and rate for that supplier in the subform the table 'Rates' is populated.
What I want to see is that after when they save and close the form, they can go back to the 'Enter Rate for Supplier' form select the supplier from the combo box and all the information that was entered previously in the subform for that supplier appears in the subform again. Then the user can produce more records by select more classes and enter rates.
So based on what I have stated above can someone please help me in making this happen. If you can also summarize how you did it, when you reply I would really appreciate it, in where your explanation could also benefit others like myself who is only an immediate. Also by all means you may keep the solution in the database for self education purposes.
Thanks so much for your help
Greg
View 2 Replies
View Related
Oct 30, 2006
I need some help on a problem that has been bugging me for the past 4 months, everywhere i turn i cannot get help for this.
I have a DB for stores maintainance and what i have is a form on which stores are ordered. What i need is a way of accounting for the stores as they arrive and adding the quantity to the account for that item. However this must take into account that items sometimes are not received together and may turn up in batches. I had the idea of having an 'On-Order' table but don't really know how to proceed. This is the last piece of my project that i need to complete and it is really bugging me. Any help would be greatly recieved.
Regards in advance.
View 10 Replies
View Related
Nov 24, 2006
Hi guys
This is a good one, so any help is most welcome . . .
A hardware company has been to a client and installed a new server.
On the old server was an Access database including a number of linked databases. Each linked database has a set of mail merge letters set up initiated via buttons and run with the help of vb code.
When the new server was installed all files were copied over as they were on the old machine, the linked databases all work as expected, but the mail merge facility is NOT populating the letters with the data from the database.
Would anybody out there have any ideas why this may happen ?
I am assured by the hardware company that the only difference between the old and new setup is the name of the server. All folders and files have been copied across as they were originally.
Thanks
ajm
View 1 Replies
View Related
Jul 7, 2005
Hi All,
I have uploaded a database that I am working on it, and would appreciate it if someone could look at it and help me out, as I have gone through the forum trying to resolve my issue. There has been some topics on combo boxes and subforms and some of the posts only help me partly to my requirement.
When a user hits the button 'Enter Rate for Supplier' (which is to be double clicked, all buttons on the forms are double clicked) on the form 'Main form' a form 'Rates' comes up with a combo box and a subform. What I want then to happen is that a user selects a 'supplier' in the combo box, and then goes to the subform and selects the class and enters the rate. Note, the supplier names appearing in the combo box are entered through the form 'Enter Supplier Details' which is launched after the button 'Enter Supplier Details' on the main form is double clicked. Details entered through this form populates the table 'Supplier Details'. After entering the class and rate for that supplier in the subform the table 'Rates' is populated.
What I want to see is that after when they save and close the form, they can go back to the 'Enter Rate for Supplier' form select the supplier from the combo box and all the information that was entered previously in the subform for that supplier appears in the subform again. Then the user can produce more records by select more classes and enter rates.
So based on what I have stated above can someone please help me in making this happen. If you can also summarize how you did it, when you reply I would really appreciate it, in where your explanation could also benefit others like myself who is only an immediate. Also by all means you may keep the solution in the database for self education purposes.
Thanks so much for your help
Greg
View 1 Replies
View Related
Oct 30, 2006
I need some help on a problem that has been bugging me for the past 4 months, everywhere i turn i cannot get help for this.
I have a DB for stores maintainance and what i have is a form on which stores are ordered. What i need is a way of accounting for the stores as they arrive and adding the quantity to the account for that item. However this must take into account that items sometimes are not received together and may turn up in batches. I had the idea of having an 'On-Order' table but don't really know how to proceed. This is the last piece of my project that i need to complete and it is really bugging me. Any help would be greatly recieved.
Regards in advance.
View 4 Replies
View Related
Aug 30, 2007
Hey guys-
I am building a database for my own use- I download info from the Realtor MLS system and then run queries against it. I don't have control over user inputs whatsoever. I download the data into a DBF file- but can save it as an excel or whatever as well. I then am importing THAT data file into Access 2002. I have run into 2 problems right off the bat...
1- the Field names in the data file I am importing are very difficult to understand. There's nearly 100+ field names, so it could get confusing when I'm programming/creating queries. I'd like to change the field names upon import- or- have some way to match the confusing field names in the data file to the easier field names in the table. What's the best way to go about doing this? I tried using Captions- but they dont display the name of the field when using queries. Is there a field matching wizard upon import (maybe a set template for this) or something?
2- One of the fields I will be using to query a lot is the subdivision name. Since the users type this in, I have no way to control what they type. Sometimes they type in 'Willows', sometimes it's 'The Willows', 'Willows Unit 2', etc. Basically, I need them to be restricted into a common subdivision name upon import. I am guessing I would have a table with the 'acceptable names' in the list- and upon importing, take the ones that do not match and ask me to match them up manually. -OR- have a way to where it keeps track of every mispelled or variation of the name in a list so that it accepts/matches is up in the future without problems. Occasionally there may be a NEW subdivision name, so I would need to add it to the subdivision table. I think this is going to be the hardest part. I assume I am going to use the LIKE statement- but have no clue where to start with this. There are literally THOUSANDS of records going into this- so it needs to be able to recognize them all. Obviously I'd like to cut down on the manual overriding aspects as much as possible.
I think I can handle the rest of it, once I get past this (it's just forms and queries thereafter). But it's these 2 things I'm stuck on. Any ideas?
THANKS!
View 4 Replies
View Related
Jul 21, 2006
Ok here goes
I need some help with getting my form(form 2) to autofill from another form(form 1).
Now i dont want to use combo boxes or command buttons as i only want to use the keyboard and not the mouse.
Basically when a customer phones up to get prices they tell me there account code( this is in the customer details table) and i enter it into a text box on form 1 and after pressing enter it opens up form 2(this bit i can do) but i cant get it to open the form and display the correct details from the table on the form.
p.s why is it access books tell you everything except what you want to know.
thanks.
View 2 Replies
View Related
Jul 29, 2006
What an idiot I managed to delete a table in my access database!!!
Its a Junior Tennis Club database with all the childrens details I have downloaded and tried AccessFIX and Advanced Access recovery - Both these pices of software demos show me that the records are recoverable . Is there anyone out there who has either piece of software and would be willing to help - We'd gladly pay but to buy the software is out of our reach as a charitable organisation.
Kindest Regards Helen Oliver
View 1 Replies
View Related
Nov 14, 2006
I've got a label called Agent Matches. The box by it to type stuff in won't let me do that. I checked and it is a text box. My boss is after me, so please help someone! Appreciate it.
Jilly
View 4 Replies
View Related
Nov 14, 2006
Sorry...attached the wrong file. Here it is again.
View 4 Replies
View Related
Sep 20, 2004
Here is my problem. I am hoping that someone here can be my hero on this one.
I am trying to figure out what would be the best possible way to track my hospital's staffing. I need a form that I can click on the Active X calendar and have it populate the staffing table. I have built the code and it works great.
The problem is that the way the code works now, I have to have a field in my table for every single date scheduled. For example, right now, I have the staffing table like this:
Name
Date Scheduled
Date Scheduled1
Date Scheduled2
Date Scheduled3
Of course, after a month, an employee will have worked more than four shifts. I really don't want to add a field for every shift they could have worked because then, after a month, I'll have thirty date fields, and after a year, I'll have 365. So, do you have any ideas about how I can do this without having 365 date fields?? Thank you! If you can help me figure this out, you are my hero.
KellyJo
View 11 Replies
View Related
Feb 27, 2005
I have numerous word docs that I need to mail too. What I am tring to acheive is how to link an active record that has been entered on a input form by the user to the various word docs as corressponding letters. This is how the user currently chooses which letter to use However, they are obviously entering the data manually as there is no merge facility.
The merge data is stored in a query called "QryMerge" is there any VB code that I could add to this
Private Sub cboReport_Change()
On Error GoTo Err_Handler
Dim stDocName As String
If [cboReport] = "L1" Then
Dim taskid As Long
Dim str As String
str = "winword.exe " & "D:DataFrm_L1.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "L2" Then
str = "winword.exe " & "D:DataFrm_L2.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "M" Then
str = "winword.exe D:DataFrm_M.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "N1" Then
str = "winword.exe D:DataFrm_N1.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "N1A" Then
str = "winword.exe D:DataFrm_N1A.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "N2" Then
str = "winword.exe D:DataFrm_N2.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "N3" Then
str = "winword.exe D:DataFrm_N3.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "O" Then
str = "winword.exe D:DataFrm_O.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "P1" Then
str = "winword.exe D:DataFrm_P1.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "P2" Then
str = "winword.exe D:DataFrm_P2.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "R" Then
str = "winword.exe D:DataFrm_R.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "S" Then
str = "winword.exe D:DataFrm_S.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "T" Then
str = "winword.exe D:DataFrm_T.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "U" Then
str = "winword.exe D:DataFrm_U.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "V" Then
str = "winword.exe D:DataFrm_V.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "W1" Then
str = "winword.exe D:DataFrm_W1.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "W2" Then
str = "winword.exe D:DataFrm_W2.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "W3" Then
str = "winword.exe D:DataFrm_W3.doc"
taskid = Shell(str, vbMaximizedFocus)
ElseIf [cboReport] = "X" Then
str = "winword.exe D:DataFrm_X.doc"
taskid = Shell(str, vbMaximizedFocus)
Exit Sub
Err_Handler:
Beep
MsgBox "You have cancelled this message."
Exit Sub
End If
End Sub
I Would also be greatful for any help on how to convert a tick box on an access form to dislay ticked/unticked in a wordmerged doc.
Regards, Steve
View 14 Replies
View Related
Nov 14, 2006
Still beating my head on the wall. I'm sure it is simple but I NEED guidance.
I've made a macro to show a date field when the "Yes" option button is selected and hide it when the "No" option button is selected. I first created it for the form to act on its own --> and it works. Now I want to use that form as a subform in the form [frmTestPkg]. I am having problems figuring out how to reference it properly as a subform.
Here's my macro that works when I attach it directly to my form:
Condition:[Forms]![frmsubcruiseplan]![CrPlRecvdNo].[OnGotFocus]
Action: SetValue
Item: [Forms]![frmsubcruiseplan]![CrPlSubmDate].[Visible]
Expression:No
Location: "On Got Focus" Event for the option button "No"
Condition:[Forms]![frmsubcruiseplan]![CrPlRecvdNo].[OnGotFocus]
Action: SetValue
Item: [Forms]![frmsubcruiseplan]![CrPlSubmDate].[Visible]
Expression:Yes
Location: "On Got Focus" Event for the option button "yes"
I have followed the pattern provided previously of
Forms![main form name]![subform control name].Form![control name]
but cannot get it to work -- obviously messing up somehow.
The reference I tried in the condition looks like this
[Forms]![frmTestPkg]![frmsubcruiseplan].[Form]![crplanrecvdNo].[OnGotFocus]
--> and with or without the setvalue information included I get a "The object you referred to as an OLE object isn't an OLE object" error.
Perhaps I am not identifying the subform control name properly? Or maybe I should be referring to the "Cruise Plan Recvd Option" instead of the individual control boxes (but it worked as a form)? Please spell it out for an idiot, what this is supposed to look like. Many thanks!
View 1 Replies
View Related
Mar 29, 2007
I have recently split my database and added a password to the back end. I am now trying to re-link the tables as I have seen in other threads, but when I do this I am not prompted for the password I just get the message 'Not a valid password'
I must obviously be doing something wrong, can anyone help?
View 4 Replies
View Related
Nov 27, 2005
Hi,
Trying to run a template on a new computer.. it works on other computers, but in this case it gives me this compile error.. kind of strange.
It comes up here-
End With
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
(.PasteAndFormat) gets highlighted... I'm not that computer savvy... please help!!
Thanks heaps
Ross
View 7 Replies
View Related
Dec 1, 2005
Hello all.
I'm having a problem running a query that compares one fields to 5 others. The code is below. I'm sure it's not correct because the results don't look like they should. I have these fields:
Account Number
Transaction Type Code
Bal unapplied code 1
Bal Unapplied code 2
Bal Unapplied code 3
Bal Unapplied code 4
Bal Unapplied code 5
field_result
I wrote the code to add "UF" before comparing any of the "Bal Unapplied code" fields to the "Transaction Type Code". I am trying to first see if the code in "Transaction Type Code" is located in "Bal Unapplied Code 1." If it finds it, then I want to put "Found" in the "field_result" field. If it doesn't find it, then move onto the next field and so forth until it goes through all 5 fields. If it can't find a match in any of the 5 bal fields, then I want to populate the "field result" with "Not Found"
If someone could help I'd be forever in your debt!
Here is my crazy code:
Iff("UF"+[unapplied balance_update].[bal Unapplied Code 1]=[Unapplied balance_update].[Transaction Type Code],[Unapplied balance_update].[field_result]="Found",iff("UF"+[unapplied balance_update].[bal Unapplied Code 2]=[Unapplied balance_update].[Transaction Type Code],[Unapplied balance_update].[field_result]="Found",iff("UF"+[unapplied balance_update].[bal Unapplied Code 3]=[Unapplied balance_update].[Transaction Type Code],[Unapplied balance_update].[field_result]="Found",iff("UF"+[unapplied balance_update].[bal Unapplied Code 4]=[Unapplied balance_update].[Transaction Type Code],[Unapplied balance_update].[field_result]="Found",iff("UF"+[unapplied balance_update].[bal Unapplied Code 5]=[Unapplied balance_update].[Transaction Type Code],[Unapplied balance_update].[field_result]="Found","Not Found”)))))
View 1 Replies
View Related
Nov 8, 2005
Hi,
Firstly thank you for your help, this should be a simple one I hope, but is cracking my head on the wall. Have searched and searched and can't find an answer.
I have an Access Db that is not password protected, but is asking for a password.
It opens on any other machine fine?
I think my version of Access is playing funny buggers with me, any suggestions?
I was trying to implement some security on this Db, which is why it happened I'm sure. I ran the security wizard, set-up two users and admin with passwords, I have the output file to "recreate" something too.
Issue is, I then copied this Db to another computer for use on there, it worked without a Password, so didn't need to worry about it, now I can't open any Db on my machine??
Your help on this obvious pointer would be great!
C
View 3 Replies
View Related
Sep 12, 2006
hi pals
i have set username and password for ms access file.
unfortunately i have forget that password?
how to crack that username and passowrd?
is there any softwares available?
i can easily crack the database pasword? but how to crack username and password of ms access file.
View 1 Replies
View Related