Hi ! All
I am having a small registration form where user need to enter name, User ID password and an account number of the Department. I have crated a combo box fetching all the Account No from the data table member, and it was running well.. and it gives error message when already register ID is being chosen. the code is below:
If Me.COMROLE.value = DLookup("[Member_ID]", "[TblUsers]", "[Member_ID] = Forms![Register Form USER1]!COMROLE") Then
MsgBox "This Member with ID:" & DLookup("[Member_ID]", "[TblUsers]", "[Member_ID] = Forms![Register Form USER1]!COMROLE") & "has alreday been Registered, " _
& vbCr & vbCr & "Please Check and enter the correct Member ID", vbOKOnly + vbCritical, "Central Library"
Me.TXTNAME.value = ""
Me.TXTID.value = ""
Me.TXTPASSWORD.value = ""
Me.TXTCNF.value = ""
Me.COMROLE.value = ""
Me.TXTNAME.SetFocus
Exit Sub
End If
Now I want the user to Type the account no in the Text Box and I have converted the Combo Box to Text box, but it is not functioning.
Can any one help me out this.
I am having a small registration form where user need to enter name, User ID password and an account number of the Department. I have crated a combo box fetching all the Account No from the data table member, and it was running well.. and it gives error message when already register ID is being chosen. the code is below:
If Me.COMROLE.value = DLookup("[Member_ID]", "[TblUsers]", "[Member_ID] = Forms![Register Form USER1]!COMROLE") Then
MsgBox "This Member with ID:" & DLookup("[Member_ID]", "[TblUsers]", "[Member_ID] = Forms![Register Form USER1]!COMROLE") & "has alreday been Registered, " _
& vbCr & vbCr & "Please Check and enter the correct Member ID", vbOKOnly + vbCritical, "Central Library"
Me.TXTNAME.value = ""
Me.TXTID.value = ""
Me.TXTPASSWORD.value = ""
Me.TXTCNF.value = ""
Me.COMROLE.value = ""
Me.TXTNAME.SetFocus
Exit Sub
End If
Now I want the user to Type the account no in the Text Box and I have converted the Combo Box to Text box, but it is not functioning.
Can any one help me out this.