Search results

Here is an example of my login screen behing my login button Static LogonAttempts As Integer Dim SaiCurrentUser As String SaiCurrentUser = "" If Me.Password.Value = DLookup("[Password]", "[User Name]", "[User Name] = '" & Me.User_name & "'") Then SaiCurrentUser =...

that wont work you need to base the report off a query on the table, not the table itself, you can filter form but not tables. create a query and set the criteria as Forms!frmClaimsParts!claimID

How do i put the form name that the error happened on?

i have a module, and im still new to VB so i do not know how to call on it when a error happens. also i would like it to also report what form they where on when the error occur d how can i record this? Dim db As DAO.Databaset Dim rserror As DAO.Recordset Set db = CurrentDb...

ok trying to export to outlook but no luck i have been searching the web for help but nothing any suggestions or resources would be a big help! This button export the contact to outlook: dose not work. Private Sub Command25_Click() On Error GoTo ErrorHandler Set appOutlook = GetObject(...

Close i think this might work Private Sub cboLastname_NotInList(NewData As String, Response As Integer) Dim rs As Recordset Dim db As Database Set db = CurrentDb Set rs = db.OpenRecordset("tblCitationAuthor") rs.Findfirst "CitationAuthorLastName = """ & trim(NewData) """" If rs.nomatch Then...

use a query to define multple critera

how do i disable the ribbon compleatly? i looked all over cant seem to find a way to get rid of the thing

So you want to Filter tru the recordset with multiple criteria that are set via dropdowns correct?

Works Great thank you!

im trying to see if a record exists, if not create it but it always comes out as False Private Sub Command121_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim User As String Dim SN As String Dim DateA As String Set db = CurrentDb Set rs =...

thanks guys works like a charm!

im trying to do it the opposite way i have a full name(s) and i want to break them up Ex i want to make John Todd Firstname= John Lastname = Todd How would i do that?

i Cannot get this to work i think i need to set Outlook.Folder because it red flags me there in the debugger On Error GoTo ErrorHandler Set appOutlook = GetObject(, "Outlook.Application") Dim LngContact As Long Dim LngContactCount As Long Dim Fld As Outlook.Folder Dim FldContacts As...

i want to separate first and last name, also after doing so automatically generate the e-mail address being first initial, last name. can someone give me and example as to how to do this? or what functions to use?

whats the command to export information to outlook as a contact? after im going to have it so you can expot all contacts on a table to outlook (as well as on at a time or selected;Minor question im sure i can get this one: how do i make it so on a list they select multiple contacts?), will there...

wow it jut hit me too i had an extra " in the mix after each "And". ugh im so thick sometimes

Its giving me expected end of statment. DoCmd.OpenForm "Reason For User Change", , , "[Reason For User Change]![Username] ='" & username & "' And"[Reason For User Change]![Sai Serial] = '" & Me.Sai_Serial_Number & "'And "[Reason For User Change]![Date Changed] =#" & Userdate & "#" what am i...

im not sure what you mean here here is all 3 of the arguments i wish to include: "[Reason For User Change]![Date Changed] =#" & Userdate & "#" "[Reason For User Change]![Sai Serial] ='" & Me.Sai_Serial_Number & "'" "[Reason For User Change]![Username] ='" & username & "'" DoCmd.OpenForm...

all the filters work indvidually but when i put the "And" in it dose not work how do i apply multiple filters to this command?