Hola he creado una base de datos con dos tablas que boy rellenando desde un Subformulario , al introducir los datos en el subformulario se van llenando las dos tablas, pero 1º compruebo que un campo no se repita y en caso de esitir ese dato no se pueda actualizar y me avise, eso lo he conseguido pero el caso es que en la tabla se relaciona directamente con el subformulario si me lo actualiza y no quiero el código que tengo es el siguiente
Private Sub ANILLA_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[ANILLA]", "PAJAROS", _
"[ANILLA]='" & Me!ANILLA & "'"))) Then
MsgBox "El Nº DE ANILLA existe en el criadero y NO SE PERMITEN duplicados.", vbInformation, "Duplicado de ANILLA"
End If
End Sub
Private Sub Verificación8_AfterUpdate()
Dim vanilla As String
Dim vpadre As String
Dim Anio As Long
Dim vmadre As String
Dim vsexo As Long
If SEXO = "M" Then
vsexo = 1
ElseIf SEXO = "H" Then
vsexo = 2
Else
vsexo = 3
End If
vanilla = ANILLA
vpadre = Forms!mantenerparejas!MACHO
Anio = Forms!mantenerparejas!Texto31
vmadre = Forms!mantenerparejas!HEMBRA
vvariedad = VARIEDAD
vpareja = Forms!mantenerparejas!PAREJA
If IsNull(vvariedad) Then
vvariedad = "AMARILLO"
End If
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunSQL "INSERT into pajaros ( anilla, año, padre, madre, variedad,[perte pareja], sexo )Values ( '" & vanilla & "'," & Anio & " ,'" & vpadre & "','" & vmadre & "','" & vvariedad & "'," & vpareja & "," & vsexo & ")"
DoCmd.SetWarnings True
