This is the problem code:
Code:
#a list of names Names = ["", "", "", "", ""] #initialised thus ... Names[1] = "Fred" Names[2] = "Jack" Names[3] = "Peter" Names[4] = "Kate" Max = 4 Current =
#a list of names Names = ["", "", "", "", ""] #initialised thus ... Names[1] = "Fred" Names[2] = "Jack" Names[3] = "Peter" Names[4] = "Kate" Max = 4 Current =
"INSERT INTO TEMP_NOT_GOT_SMI (ContactID,FirstNames,FamilyName,OrganisationID) VALUES (" & rstContact!ContactID & ",'" & rstContact!FirstNames & "','" & rstContact!FamilyName
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case True Case (Shift = acCtrlMask) Beep KeyCode = 0 Case ((Shift = 0) And (KeyCode = vbKeyCancel Or KeyCode = vbKeyReturn Or KeyCode = vbKeyEscape))
Leave a comment: