Καλησπέρα σε όλους,
Στην βάση που φτιάχνω έχω τον πάρα κάτω κώδικα
vba και για άλλη μια φορά χρειάζομαι την βοήθεια σας.
Private Sub cmdRegister_Click()
'Check value of Registration code in tblDbaseInfo to see if this matches value chosen in combo box
If Me.txtActKey.Value = DLookup(
"dbaseRegCode", "tblDbaseInfo") Then
lngMyRegKey = Me.txtActKey.Value
Me.txtPassword.Enabled = False
Me.Title2.Caption = "Verification key is correct.!!"
Me.activation = True
Me.trial = False
Me.ExpRegistration = Me.InstDate + 32
Me.ExpRegistration.Requery
Me.RegDays = 32
Me.RegDays.Requery
Forms!ftblLogin.Activated = True
Forms!ftblLogin.TrialMode = False
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmLogon"
Else
Me.txtActKey.SetFocus
End IF
End Sub
Θα ήθελα λοιπόν να όταν τρέχει ο πάρα πάνω κώδικας να "ψάχνει" στον πιο πάνω πίνακα αλλά πχ στην δεύτερη εγραφή του "dbaseRegCode" . Δεν γνωρίζω πώς μπορώ να επιτύχω κάτι τέτοιο και θα εκτιμούσα άν μπορεί κάποιος φίλος να βοηθήσει.
Σας ευχαριστώ εκ προτέρων