Search results

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

Oh it fixed Thanks a lot

MsgBox

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...

Thanks a lot

X is a integer

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

It suddenly fixed when I try to add one more quotation mark Thanks a lot

Thanks for the help btw;)

When I use this code, it shows that missing operator

No Both of the ID and PW are text

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.....

Its fixed thanks a lot

Both X and Y are integer

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

This fixed my problem thank a lot!!

They are all number

X = DLookup("PlayID", "Houses", "NameCond = 1" And "DateCond = 1" And "TimeCond = 1") And if i use this, there will be a type missmatch

Will it be affected if the PlayID is auto number?

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