Newsgroup: it.comp.appl.access
Titolo: Maschera inserimento anagrafica

Salve,
Devo creare un db anagrafica con i seguenti campi:
NOME
COGNOME
SOCIETA'
INDIRIZZO
CAP
CITTA
ECC....
Mi chiedono se � possibile quando nella maschera inseriscono il
nome,cognome,societa', se questo nominativo esiste gi� venga segnalato
subito e non dopo aver inserito tutti gli altri dati.
Come posso fare in una maschera di inserimento a fare questo controllo ?
Grazie
ciao
Giorgio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 controllo ?
Vedi la discussione "impedire duplicate" d'altro ieri.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

> Vedi la discussione "impedire duplicate" d'altro ieri.
Grazie
Ho provato ad inserire questo codice su prima di aggioranre del campo nome:
If Not IsNull(DLookup("Nome", "contatti", _
    "nome = " & Chr$(34) & Me!Nome & Chr$(34)) _
    Then
  MsgBox Me!Nome & " Gi� esiste.", vbOKOnly, "Duplicato!"
  Cancel = True
e funziona benissismo, pero' mi controlla solo il nome
Io vorrei che inserisco nella maschera i campi : SOCIETA', COGNOME. ed
alla fine il nome e il codice mi segnala se esiste un record con i tre
campi uguali 
Grazie
Ciao


 campi uguali
Questo era il punto centrale della discussione indicata.
Sei sicuro di aver lette cosa ho scritto l�?
-- 
cu


 Sei sicuro di aver lette cosa ho scritto l�?
Non ci crederai ma ho letto bene cosa hai indicato e dopo enorme fatica
(sono un principiante) ho inserito questo codice:
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Nome", "contatti", _
    "nome = " & Chr$(34) & Me!Nome & Chr$(34) _
    And "cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
    Then
  MsgBox Me!Nome & " Gi� esiste.", vbOKOnly, "Duplicato!"
  Cancel = True
End If
End Sub
ma nella maschera mi segnala il seguente errore:
errore di runtime 13
tipo non corrispondente
Grazie 
ciao


    And "cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
diventa
" And cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
-- 
HTH


 " And cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
Purtroppo ho bisogno ancora di un aiuto
Ho provato ad inserire l'operatore nella stringa:
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Nome", "contatti", _
    "nome = " & Chr$(34) & Me!Nome & Chr$(34) _
    "And cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
    Then
  MsgBox Me!Nome & " Gi� esiste.", vbOKOnly, "Duplicato!"
  Cancel = True
End If
End Sub
ma mi segnala il seguente errore:
ERRORE DI COMPILAZIONE
ERRORE DI SINTASSI.


 ERRORE DI SINTASSI.
Manca lo spazio prima dell'operatore, cio�
non
"And cognome...
ma
" And cognome...


 " And cognome...
Ciao Karl
Mi vergogno a doverti chidere nuovamente,
ma ho provato con lo spazio:
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Nome", "contatti", _
    "nome = " & Chr$(34) & Me!Nome & Chr$(34) _
    " And cognome = " & Chr$(34) & Me!Cognome & Chr$(34))) _
    Then
  MsgBox Me!Nome & " Gi� esiste.", vbOKOnly, "Duplicato!"
  Cancel = True
End If
End Sub
e mi segnala il seguente errore:
ERRORE DI COMPILAZIONE
PREVISTO: SEPARATORE DI ELENCO OPPURE )
Grazie
CIAO


    "nome = " & Chr$(34) & Me!Nome & Chr$(34) _
dev'essere
"nome = " & Chr$(34) & Me!Nome & Chr$(34) & _


 "nome = " & Chr$(34) & Me!Nome & Chr$(34) 
perfetto... funziona benissimo
Grazie ancora.
ciao
Giorgio
