I was using this form tutorial to password protect my administrative tools. When I went to run it I received this:
"User defined type not defined" and the line Dim rs As DAO.Recordset was highlighted.
I have little experience with VB and I was wondering if someone here had any idea if it was their code that was wrong, or if it was something I did...
Hi
I've got a button on a form that opens another form - nothing unusual, but it would be preferable if this second form was password protected i.e. the user clicks the button to open the form and is immediately prompted to enter a password. I've looked at user-level security wizards but that confused me even more.
The database is networked and is used by 25+ people by the way.
Any ideas?
Thanks for any help!
i have found a code that brings up a box when tab or clicking in to a box for editing as below:-
Dim strPassword As String
If InputBox("Please enter the password:") <> strPassword Then
SomeOtherControl.SetFocus
TextBox1.Locked = True
End If
its just that need to add a password as well, i have tried to put this in between the <> but this does not work. i would like a message to say incorrect password as well if possable.
I managed to password protect my backend (as the backend is on a server and anybody could access it) so i have it password protected so only i can gain access to the data.
Now, when i try and access the backend from the front end, the frontend prompts me that the password is invalid (indicating its trying to enter the backend using no password, thus an invalid password warning appears. And this means nobody can access the data from the frontend)
Is there a way to get round this password issue from the frontend? I.e. have the password for the backend, but when you access the frontend, it doesnt need the password for the backend (i have my own username/password system to log on to my database)
I know there are different user level securities you can use, but im not familiar with this. So if you have an idea about this, then im all ears but keep in mind I don’t really know how the security levels work in Access (nor do i have the time to learn it in depth or even find help other than here)
Many thanks for your help
David
HI,
I have a MS access 2003 database (in MDB format) which I use as a basic accounts system for our company (15 user). I have certain tables password protected depending on user using the old workgroup information file. This presents a problem as anyone can copy the database without linking the Information file and effectively get full admin access. I was looking to upgrade to Access 2007 but I gather that there is a different security engine and also a new file format (accdb file). I know that you can keep the same user security settings when upgrading to 2007 (while keerping the mdp file extension) but would be interested to know if I can improve security using 2007 while also being able to retain user-level access to certain tables like in access 2003? The major weakness in my system at the moment is anybody can copy the MDB file to another PC and access everyting...it seems too easy a system to crack. Do I need to completely reprogram my database using MySql on MSSql? Any advice would be appreciated?
Thanks in advance,
Shane
I have a set of tables, one of which contains sensitive information, which i need to password protect.
I've been through the User Lever Security Wizard a few times but i can't seem to find a security group account which will allow data to be input into a form but also to deny access to the afore mentioned table.
Can anyone help?
how can i password protect a form?
i want a have a button that on click will ask for the password. if the password is correct then proceed to open the for else tell them they are not authorized.
i know i would need an if statement but thats as far as i got..
can some one provide me with some sample code?
thanks
Hello,
I designed and distributed a database client to a bunch of users. They have asked me to password-protect it so that anyone can open the database and view the forms, but a password is needed to actually make any updates. I am trying to do this, but everything in Tools--Security is making my head spin. I have actually already managed to somehow lock myself out of my own database, although I have another copy.
How do I set the Workgroup Administrator Files so that they apply to anyone? It wants to put a separate file on my C: drive, but I don't use this database, I distribute it to people who do. (The server is on a share drive, can I put the Workgroup file(s) there?)
What settings do I modify to require *anyone* to need a password to update? Or is that even possible? I don't really want to break up the users into different categories.
If anyone could walk me through this process I would really, really appreciate it.
Hey Guys, I have a whole login system that I have created in asp. Now I am trying to make it more secure, and to also let the user modify settings or retrieve forgotten login information. I am getting the following errors:
changedpassword.asp - http://www.nuflowtech.com/logintesting/members.asp
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
/logintesting/scripts/changedpassword.asp, line 31
memberscheck1.asp - http://www.nuflowtech.com/logintesting/members1.asp
Microsoft JET Database Engine error '80040e4d'
Not a valid password.
/logintesting/scripts/memberscheck1.asp, line 31
The pages are attached. If anyone could point me in the right direction as to what is wrong with the codes, I would apprecaite it. Thank you all for your help.
-JC
Hi,
Basically i have a single database with several tables in it. I want certain tables such as Ireland, UK, US etc to only be accessable by employees from those countries. Is this possible and if so, how?
I have looked at user/group permissions but can't figure out how to assign passwords to users etc.
Any help is much appreciated
Thanks
Scott
I have a combobox on a form which is populated from a field to present a list for the user to choose from.
I have limit list set to 'N'
When the user types something in the combobox that is not in the field in the table then I want to prompt for a password. Effectively password protecting the update of the field from a combobox.
If the password is correct the text is written to the field in the table and if not then not.
Help ?
My main experience is with MySQL and PHP so I'm kindof stumbling around in the dark here. Heres my story:
We recieved a new server and migrating from (Windows Server 2000, IIS 5.0, Access 2000) to (Windows Server 2003, IIS 6.0, Access 2003) has been nothing but problems.
I have setup IIS to work with ASP, I've also setup a system DSN. The access file was copied over from the previous server. We're running Access 2003 and now I can't seem to get this ASP script to work.
When I try to upload a file to the script I get this error:
Line: 42
Char: 7
Error: HELP!!! Error: [Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement expected 'DELETE','INSERT','PROCEDURE','SELECT', OR 'UPDATE'.
Code: 0
Url: (URL address blocked: See forum rules)
Here is the part of Connect.asp that errors:
Code:<script LANGUAGE="javascript"><!--var DSNString, TheDF, TheRS;//DSNString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: hedata estdisbo.mdb;User Id=admin;Password=;";//DSNString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C: hedata estdisbo.mdb;Uid=Admin;Pw d=;"DSNString = "DSN=testweb; UID=; PWD=";function public_ConToDB(){ TheDF = DP.CreateObject("RDSServer.DataFactory",this.text1.value);DC.DataSpace=DP;DC.Server = this.text1.value;DC.Connect = DSNString;//DC.Connect="d: hedatadisboweb.udl";}function public_GetRS(SQLCommand){ TheRS = TheDF.Query(DSNString,SQLCommand);DC.SourceRecordset=TheRS;return (TheRS);}function public_GetDC(){ return (DC);}//--></script>
Its included in a file called FileRead.htm here is the part that refers to the error lines:
Code: var TheFile, FileStrm;// Retrieved field namesvar M_ssn, M_inits, M_Lname, M_Fname, M_DSSN, M_ruc, M_paycode;var M_normamt, M_payamt, M_pgrp, M_poe, M_pltcd, Payrollnum, Payrolldate;// var Trash, FieldData, FieldNames;var TrashLineNum = 1;// Create the file Stream Object (ReadOnly)TheFile = new ActiveXObject("Scripting.FileSystemObject");FileStrm = TheFile.OpenTextFile(FName,1,false);// Setup the Database Connectionvar SQLCommand, TheRS, TheConnection, DSNString, Commands, MyDC;FieldNames = new Array("ssn","inits","lname","fname","dssn","ruc","cco", "payamt","normamt","notsureone","pgrp","poe", "pltcode","recstatus","paychgflg","paystatuscode", "payrollnum","payrolldate");// Connect the the DatabaseDataLib.ConToDB();MyDC = DataLib.GetDC();// Get Payroll NumberPString = prompt("Enter Payroll Number","025");Payrollnum = parseInt(PString,10);// Get Payroll DateDString = prompt("Enter Payroll Date","20000101");Payrolldate = DateLib.FromMil(DString);// Setup the Database Connectionvar NumRecs = 0;//MyTest = DataLib.GetRS("PaydayUpdate1");alert("About to cross into the CurExtract!!!");MyRS = DataLib.GetRS("SELECT * FROM CurExtract");
I set an alert after this line but it doesn't pop up.
ANY HELP WOULD BE VERY GREATLY APPRECIATED. I'll be checking this very frequently.
Sincerly,
Joseph Russell
Hello to everybody,
I want to access Oracle 8.0 Data (meaning Oracle tables) with Access 2002. My problem is that I do not want to enter the username and password every time I connect to the Access db, as I want to create some queries in Access which I will export to Excel.
I do not think that this is something difficult but I can't seem to find any solution. Is there any proposal?
Hi,
Im new to asp and access and have been having this problem for serveral weeks.
Every couple of days, all the asp pages on my site that communicate with the database start having 500 internal errors. i turned off the "Show friendly error messages" and one page gave me this specific error:
Microsoft JET Database Engine error '80004005'
Unspecified error
/admin/submitlogin.asp, line 8
I have tried a million things and have no idea why this is happening. Im not sure what other information i should post in order to see the problem. Any help would be greatly appreciated. Thank you,
Patrick
I am new to Access and not a sophisticated user of computers. I've been given the task of redesigning some forms on an existing data base. I understand how to put the new fields I'm adding into the table associated with the forms I'm working on, but I've having a hard time actually moving stuff around the screen and getting it lined up.
Is there an online tutorial or reference I can go to that will teach me the layout basics?
Hi,
I have some basic VBA and ADO recordset exposure, and would like to create a form, that:
- allows a user to search 4-5 fields (client & business name based information)
- return options of records to view that match that data
- allow user to make a selection, which then provides another form with full details of that client's record(about 20 fields)
Can anyone provide an example or perhaps guidance on a good tutorial, that will take me through this process gently (and help me understand the process)!
Regards and thanks
Mack
I had a fully working database that I decided to clean up by standardising naming formats etc. I have changed the tables names and changed all VBA links etc to the new table names.
This all appears to work fine. The database is still doing exactly what it should be doing. The only problem is whenever a record is updated I get the following error,
"The Microsoft Jet Database Engine cannot find the input table or query, "***". Make sure it exists and that its names is spelled correctly".
Where the missing table is the previously renamed table. All the updates etc work correct to the renamed table but I get this error whenever it is updated. I tried renaming the tables to their original names but then I got the same error for the new names.
Anyone got any ideas or will I have to rebuild the database.
Okay - well, I have figured out how to edit the schema file but now I am getting a different error message when I try to do the export:
The Microsoft Jet Database engine could not find the object "Form888.txt". Make sure the object exists and that you spell its name and path name correctly.
I believe that it is spelled correctly and I have changed the path a few times to see if it was that and it's still not working. Can anyone help me with this please?
My 641 export works fine the other 2 do not. I get the above error messge.
Someone else set this up for me and I know very little about VB. I kinda just do like trial and error, you know?
Heres the code:
Private Sub cmdUpload_Click()
On Error GoTo Err_Upload_Click
DoCmd.TransferText acExportDelim, ExportSpec, EDMISfile, txtUpload
MsgBox txtUpload & " written."
DoCmd.Close (acForm), "frmedmisupload"
Exit Sub
Err_Upload_Click:
MsgBox Err.Description
End Sub
Private Sub comEDMIS_AfterUpdate()
On Error GoTo Err_EDMIS
EDMISfile = "qryForm641"
Select Case comEDMIS.Value
Case "Form 641"
ExportSpec = "Form641_Export_Specification"
EDMISfile = "qryForm641"
txtUpload = "\Server01dataEDMISForm641.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
EDMISfile = "qryForm641A"
Case "Form 641A"
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "qryMakeTcounsel"
DoCmd.OpenQuery "qrycombine"
ExportSpec = "Form641A_Export_Specification"
EDMISfile = "qryForm641A"
txtUpload = "\Server01dataEDMISForm641A.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
DoCmd.SetWarnings (True)
EDMISfile = "qryForm888"
Case "Form 888"
txtUpload = "\Server01dataEDMISForm888.txt"
EDMISfile = "qryForm888"
ExportSpec = "Form888_Export_Specification"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
End Select
txtUpload.Enabled = False
Exit Sub
Err_EDMIS:
MsgBox Err.Description
End Sub
Private Sub comEDMIS_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub comEDMIS_Undo(Cancel As Integer)
End Sub
Private Sub Command6_Click()
End Sub
Private Sub Command9_Click()
MsgBox "Help Messages go here..."
End Sub
Private Sub Detail_Click()
End Sub
Private Sub Form_Load()
On Error GoTo Err_formopen
Dim begclient, endclient
begclient = DMin("[client Id]", "tblclientcontactinfo")
endclient = DMax("[client Id]", "tblclientcontactinfo")
txtBegClient = begclient
txtEndClient = endclient
BegClientID = txtBegClient.Value
EndClientID = txtEndClient.Value
txtUpload.Enabled = False
txtBegClient.Enabled = False
txtEndClient.Enabled = False
Exit Sub
Err_formopen:
MsgBox Err.Description
End Sub
Private Sub txtBegClient_AfterUpdate()
BegClientID = txtBegClient.Value
End Sub
Private Sub txtEndClient_AfterUpdate()
EndClientID = txtEndClient.Value
End Sub
Private Sub txtUpload_BeforeUpdate(Cancel As Integer)
End Sub
:mad:
I have created an Access 2000 database sometime ago now that is split and has mutiple users. Which has worked perfectly fine.
I have since made some design changes.
I now have *most* of my staff saying that (mainly on reports) when they try to perform an action the standard Microsoft warning box appears saying Microsoft has encountered a problem and needs to close do you wish to send a report to Microsoft.
I am at a loss to why this is happening.
My PC is OK, and one *faultly* PC I checked had the same driver and service pack of access??. We have just moved over to Access 2003. Is this the cause.
I might as well go home !!!!
Thanks for any input.
Hi,
We have been having intermittent problems with an MS Access 2000 front-end application linked to a SQL Server 2000 database recently.
From the switchboard a user was sometimes getting "There was an error executing the previous command". When she shut the application and opened it again it works fine for a little while - then the error occurs again.
I removed the generic error handling code from the code for the Switchboard form and I got the error message: "The Microsoft Jet database engine cannot find the input table or query 'Switchboard items'. Make sure it exists and that its name is spelled correctly."
I have been searching this forum and the web to find out what the cause of this error message is but I cannot find anything to go on or to try that might help get rid of this problem.
Does anyone know why this error occurs? Any idea how to stop it of happening?
Any ideas or suggestions would be greatly appreciated.
Does anyone have any suggestions on how to address the following error occurring on my Microsoft Access ’97 database?
Error message: “Out of Memory”
Any thoughts on why this error occurs or what can be done to prevent it.
Many thanks
i get this error the time i enter info into a registration page from where i am getting all the customers info
Microsoft JET Database Engine error '80004005'
The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
in line 74
and my corresponding query is
Set Commrs2 = Server.CreateObject("ADODB.Command")
Commrs2.ActiveConnection=strconnect
line 74: Commrs2.CommandText = "INSERT into registration(username,fname, mname, lname, sex, address, city, state, country, pincode, phone, mobile ,email)VALUES('"&logid&"','"&fname&"','"&mname&"','"&lname&"','"&sex&"','"&add&"','"&city&"','"&state&"','"&country&"','"&pin&"','"&phone&"','"&mobile&"','"&email&"' )"
Commrs2.Execute
Set Commrs3 = Server.CreateObject("ADODB.Command")
Commrs3.ActiveConnection=strconnect
line 79 : Commrs3.CommandText = "INSERT into userpass(username,password) VALUES('"&logid&"','"&pass&"'"
Commrs3.Execute
also sometimes i get this on line 79
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
i did a google search and i found this article
http://www.kbalertz.com/kb_884185.aspx
but i was not able to find the security warning dialogue box anywhere
i am using an access 2000 format database
any more info req plz let me know
thanks
I am trying to make changes to a particular field in Access but whenever I try to do this, I get an error messsage saying that Microsoft Jet Database Engine Stopped the process because you and another user are attempting to change the same data at the same time.
There is no once accessing the database at this time and this error message appears only when I go to that specific field. I've also tried to delete the whole row but it wouldn't allow me to do that saying the program has been locked.
Any solutions? Thanks,
Rajiv
please help I am working with access database I have limited experience with access. I am unable to figure this particular problem. Microsoft access can't append all the records in the append Query microsoft access set 0 field to null set to convertion failure and didn't add 2 to records to the table due key violation 0 record due to key lock violation
View 4 Replies View Relatedplease help I am working with access database I have limited experience with access. I am unable to figure this particular problem. Microsoft access can't append all the records in the append Query microsoft access set 0 field to null set to convertion failure and didn't add 2 to records to the table due key violation 0 record due to key lock violation
View 1 Replies View RelatedI have a recursive script that seems to timeout after a few dozen requests, the database is returning the typical "Microsoft JET Database Engineerror '80004005' " error ("Unspecified error").
The code is pretty straight forward, it is a function that calls itself to generate a tree structure for a site map. It works great the first few dozen times but seems to 'time out' and return the above error after a few dozen records (building the tree).
The code looks like this :
Function BuildContent(id,depth)
' open the children
Set GetKids = Server.CreateObject("ADODB.Recordset")
GetKids.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:usersXXXXhtmldb1.mdb"
GetKids.Source = "SELECT ID,Name FROM category WHERE parent = " & id & ""
GetKids.CursorType = 0
GetKids.CursorLocation = 2
GetKids.LockType = 1
GetKids.Open()
GetKids_numRows = 0
if GetKids.EOF <> true then
MyLinks = countlinks(id)
MyCats = countkids(id)
response.write "Number of Listings (" & GetKids("Name") & "): " & Mylinks & "<br>"
maxdepth = 1
BuildContent = "<ol>"
while GetKids.EOF <> true
KidsCats = countkids(id)
KidsLinks = countlinks(GetKids("id"))
if MyCats > 0 then show = true
if KidsCats > 0 then show = true
if depth < maxdepth then show = false
if KidsLinks > 0 then show = true
if MyLinks > 0 then show = true
if show = true then
BuildContent = BuildContent & "<li><a href='" & GetKids("id") & "_e.asp'>" & GetKids("name") & "</a></li>"
else
BuildContent = BuildContent & "<li>" & GetKids("name") & "</li>"
end if
if depth < maxdepth then BuildContent = BuildContent & BuildContent(GetKids("id"),depth+1)
GetKids.MoveNext
wend
GetKids.Close()
Set GetKids = Nothing
BuildContent = BuildContent & "<br></ol>"
end if
End Function
there are a couple of support fuctions :
Function countkids(id)
Set GetListing = Server.CreateObject("ADODB.Recordset")
GetListing.ActiveConnection = MM_Connection_STRING
GetListing.Source = "select * FROM category WHERE parent = " & id & ""
GetListing.CursorType = 1
GetListing.CursorLocation = 2
GetListing.LockType = 1
GetListing.Open()
GetListing_numRows = 0
countkids = GetListing.RecordCount
GetListing.Close
Set GetListing = Nothing
End Function
Function countlinks(id)
Set GetListing = Server.CreateObject("ADODB.Recordset")
GetListing.ActiveConnection = MM_Connection_STRING
GetListing.Source = "select * FROM records WHERE parent = " & id & ""
GetListing.CursorType = 1
GetListing.CursorLocation = 2
GetListing.LockType = 1
GetListing.Open()
GetListing_numRows = 0
countlinks = GetListing.RecordCount
GetListing.Close
Set GetListing = Nothing
End Function
I think the DB is being called too often, too quickly but I have no way of slowing the script down. If that's the case, is there a way to slow the code execution to give the DB time to catch up?
Otherwise, is it a driver problem (Microsoft JET Database Engineerror '80004005' ) and would switching to a OBDC connection give me better results or should I be using a different db driver?
Any help would be greatly appreciated.