Search results

  1. H

    Solved It shows that there are missing operator

    Private Sub Combo37_Change() Dim X As Integer X = Me.Combo37 Controls(FirstName) = DLookup("First_Name", "VIPcustomer", "VIPID = & X ") End Sub For the dlookup
  2. H

    Solved Object Required

    Y = DLookup("RankID", "staff", "StaffID =" & X) If Y = 3 Or Y = 4 Then DoCmd.OpenForm "Jrmenu" ElseIf Y = 5 Then DoCmd.OpenForm "Srmenu" ElseIf Y = 6 Then DoCmd.OpenForm "Bossmenu" Else Msg.Box "Permission Needed", vbCritical...
  3. H

    Solved There is a syntax error for this SQL

    DoCmd.RunSQL "Update VIPcustomer SET VIPcustomer.Condition = 1 WHERE ((VIPcustomer.VIPID) = &X);" I have tried different way, it stills shows syntax error.
  4. H

    Solved Syntax Error

    If IsNull(DLookup("Staff_ID", "Login", "LoginID = '"&Me.ID&"' and Password = '"&Me.PW&"'")) Then End If I find a login form example video on the Internet and i change the name of text box and field name But it shows that there are syntax error.....
  5. H

    Solved There is a type mismatch

    SeatCondition = DLookup("Condition", "Play1", "SeatID= & X" And "PlayID= & Y &") I am not familiar with VBA Can someone help me It shows that there are type mismatch
  6. H

    Solved It shows that there is invalid use

    X = DLookup("PlayID", "Houses", NameCond = 1 And DateCond = 1 And TimeCond = 1) There is no null value in my table.......
  7. H

    Solved How do I compare date variable in combo box?

    DoCmd.RunSQL "Update Houses SET Houses.DateCond = 1 WHERE (DateValue(Houses.Date) = #Combo347.value# );" This is my code But they keep showing me that there are runtime error 3075 I am getting frustrated by that
Back
Top Bottom