haber tengo el siguiente problema tengo una tabla de nombre catalogo y varias tablas mas pero exite una relacion de 1 a muchos entre catalgo y por ejemplo autor
es decir 1 catalogo tiene muchos autores por dar una referenciaa
bien he generado mis formulario con el asistente de formularios y todos mis campos son dependientes.
para generar mi un registro nuevo hago:
Código:
Private Sub Comando13_Click()
Me.IdArtista = Nz(DMax("idArtista", "ARTISTA"), 0) + 1
'Me.idCatalogo = ""
Me.nombreArt = ""
Me.apellidoArt = ""
Me.correoArt = ""
End Sub
el problema es que me permite generar y guadar registros pero cuando quiero cambiar de pestaña o cerrar el formulario reconoce q el ultimo dato ya guardado lo toma como que si quisiera nuevamente guardar el registro nuevamente y me dice que el id ya existe y que se esta generando duplicidad de indice y de lo contrario si hago que despues de guardar pongo a blanco todos o a null me dice que ese tipo de dato no es correcto
quisira saber si hay alguna manera de solucionar esto
gracias
para guardar un registro hago:
Código:
Dim dbs As dao.Database
Dim strSQL As String
Set dbs = CurrentDb
'--- VARIABLES ---
If Me.IdArtista <> "" Then
strSQL1 = "INSERT INTO ARTISTA ([IdArtista],[idCatalogo], [nombreArt], [apellidoArt], [correoArt])" _
& "VALUES (" & Me.IdArtista & "," & Me.idCatalogo & ", '" & Replace(Me.nombreArt, "'", "''") & "', '" & Replace(Me.apellidoArt, "'", "''") & "', '" & Me.correoArt & "')"
dbs.Execute strSQL1
dbs.Close
MsgBox "Artista Guardado", vbOKOnly, "Datos Guardados"
'--- inicializar campos ---
'Me.idCatalogo = ""
'Me.nombreArt = ""
'Me.apellidoArt = ""
'Me.correoArt = ""
Else
MsgBox "Artista no Guardado", vbOKOnly, "Datos Guardados"
End If
End Sub