Google
 

it » comp » appl » access

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