Repost #2- controllo duplicati dopo CF
di "GM"
il Mon, 09 Jul 2007 15:16:14 GMT
newsgroups it.comp.appl.access
message-id <2jski.61568$U01.588111@twister1.libero.it>
Ciao a tutti... ho una Form di inserimento dati anagrafici
e dopo l'inserimento del CF premendo Invio il bottone Elabora mi calcola
il codice fiscale.
Purtroppo ho notato che inserendo un doppione mi avverte dello stesso
solo a fine inserimento di tutti i record...invece vorrei che dopo aver
premuto l'invio del calcolo del Cf mi dicesse se è un duplicato...
quindi vi chiedo cortesemente... come è possibile modificare il codice
del bottone Elabora ??
grazie per l'aiuto
Private Sub cmdElabora_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "x" Then
If IsNull(ctl) Or ctl = "" Then
MsgBox "Il campo " & Mid$(ctl.Name, 4) & " non può
essere vuoto!"
Exit Sub
End If
End If
Next ctl
Me.txtCodiceFiscale = CalcoloCodFis(Me.txtCognome, Me.txtNome,
CVDate(Me.txtDataNascita), Me.cboSesso, Trim(Me.txtCodiceComune))
SendKeys "{TAB}", True
End Sub
Risposte
Tutti i messaggi della discussione