Avreibisogno di un aiuto per costruire un
controllo per verificare se in tabella ci sono due record uguali prima di inserirli da maschera
Ho una maschera "MscAccertamenti" con una sottomaschera "SubMscAccertamenti" dove ho inserito queste righe di codice
Private Sub Form_Open(Cancel As Integer)
Set Me.Figlio1.Form.Recordset = Me.Recordset
End Sub
inoltre ho inserito questo comando per ricercare i record
Private Sub Cmd_TrovaAcc_Click()
Dim strCodAccertRef As String
Dim CodAccert As Variant
Dim strcercacc As Variant
Dim strCodaccert As Variant
'With CodAccert
If IsNull(Me![TxtCercAcc]) Or (Me![TxtCercAcc]) = "" Then
MsgBox "Digita il valore!", vbOKOnly, "Criteri di ricerca non validi!"
'Else
Exit Sub
End If
Me!CodAccert.SetFocus
If Me!TxtCercAcc <> Me!CodAccert Then
MsgBox "Accertamento non trovato"
Else
DoCmd.FindRecord Me!TxtCercAcc
MsgBox "Accertamento Trovato" & strCodaccert, , "Congratulazioni"
End If
'End With
Exit Sub
End Sub
avrei bisogno di creare del codice oppure una macro che mi consenta di verificare se al momento che salvo il record aggiunto
per un nuovo inserimento da maschera mi controlli che l'insieme dei campi tutti non siano presenti; dico tutti perché potrei
avere dei campi uguali su due record ma almeno uno si differenzia però non è mai lo stesso
per una maggiore comprensione vi posto il db
http://www.2shared.com/file/FopoMUeP/20131.htmlgrazie
