Search results

Well that saves the date in the correct format, but still saves the incorrect date (12/30/1899).

I am building a password table that when certain criteria are met, the user must change their password. Everything works which is nice, but this update statement goes bad for some reason. I put a code break on the line of code and everything shows the correct information for the variables, but...

vbaInet - thanks for that link, I added it and it is aces (thanks DCrake for the programming) I thought over the encryption and looking at the regulations I need to meet and the data contained in this db, I think I am good with only encrypting the passwords.

David - Thanks for the encryption advice, I am hoping to encrypt the entire database when everything is done though I still have to learn how to do that. For the archive file - I have a table that stores all of the passwords by userID...with what you siad should that table only house the...

Here is the msgbox which contains the password requirements: Private Sub Form_Load() MsgBox "Password must be an 8 character combination of at least three of the following: " & _ Chr(13) & " - Upper case letters" & _ Chr(13) & " - Lower case letters" & _ Chr(13) & "...

I have compiled this code from plenty of previous posts and it nearly does everything I need. The last part I am missing for compliance is to verify that the employee's new password does not match any of the previous 10 passwords. Does anyone have any suggestions for efficient code or a sample...

Bob many thanks, I have more problems with the quotations than anything else. One day I will have it down. Works like a peach.

vbaInet - thanks again, the previous code and ht elinks have been a big help. I have though run into another dlookup issue. Dim strProjMgrID as String Dim strProjMgrNAme as String strProjMgrID = Nz(DLookup("ProjectMgr", "tbl_NCS_Projects", _ "tbl_NCS_Projects.ProjectID = "...

Wow that works perfectly thank you. The text box is just a reference to show the user the employee's role in the work and act as a reminder to the security check they are assigning. It isn't part of the table supported by this form and isn't anything that will be affected by this form.

Ok that got rid of the type mismatch error, and so I thank you. Now however I get "" = """" as a result. Then I need to convert the string to an integer for a second query so I can add the NCSRole to a text box Set rstNCSRole = dbs.OpenRecordset("SELECT NCSRole " & _ "FROM...

I have the following query built and I get a "Data type mismatch in criteria expression" error. frmEmployeeBackground.EmployeeID is set to Format>General number, tbl_Employees.EmployeeID is a text primary key so I have identified that as the cause of the trouble, I just don't know the...

Thanks for the follow-up, that little tidnit will be handy when I am doing the rest of the data push from the form to the Word doc. You guys are a great asset.

I didn't see where you mentioned to take off the single quotes, but I got rid of them and the couble quotes at the end and it works fine now. Set rstProjName = dbs.OpenRecordset("SELECT ProjectName " & _ "FROM tbl_NCS_Projects " & _...

Function OpenIncidentReport() Dim wrdApp As Object Dim dbs As Database Dim rstProjName As Recordset Set dbs = CurrentDb MsgBox Forms!frmIncidentReport.ProjectID Set rstProjName = dbs.OpenRecordset("SELECT ProjectName " & _ "FROM...

Thanks for the quick response. ProjectID on the form is set to General Number and on the tbl_NCS_Projects it is the primary key and set to Autonumber. I made the switch in the query and added a msgbox to make sure the selected project ID was pulled and that is correct, but the query is still...

I have been trying to have a form that would push data from Access to a Word document with bookmarks. (I would make a report, but the forms are controlled by the government.) On the form the user selects the ProjectID (displayed as the project name on form) and I need to export the project...

The code from 24sharon is pretty much what I am looking to use for this. The way I have it set-up, the user enters data into a form and when the save button is hit the form exports data to the Word document (I have to have Word as the document is created adn controlled by the gov't) and at the...

Albert, I downloaded your Super Easy Word Merge modules and printed them out in hopes of learning more about the mail merge process, but I have a few questions for you. I am working on a process where there could be incidents which occur. Unfortunately I have to deal with report documents...

Thank you both for the assistance. I got it to work and the solution was to put the calculation in ()...<=(Date()+30)

I tried to use what was extolled here to build my own query and have hit a bit of a roadblock. Field: ExpirationDate: DateAdd("d",Val([tbl_TrainingCourses]![CourseExp]),[jtbl_EmployeeTraining]![CompletionDate]) Criteria: <Date()+30 My goal was to have only the records which will expire...