wenas estoy trabajando con access (BD y formulario) tengo algo de 15 tablas relacionadas mi problema es a la hora de insertar en una tabla NACIDO mediante un formulario aparentemente el codigo ke tengo funciona porke no sale ningun error pero cuando miro la tabla no ha insertado nada, sera por ke esta esta relacionada con 5 tablas?, probe si los valores a insertar existian con MsgBox y si funciona, si me muestra los valores ke voy a insertar en los campos de NACIDO.
Dim valor_nacido As String
Dim valor_distrito As String
Dim valor_centro As String
Dim valor_sexo As String
Set dbs = OpenDatabase("G:\Documentos\vBasic\sistema\16062004-1.mdb")
If aceptar.Caption = "Agregar" Then
valor_nacido = Me.ndociden_madre.Value & Me.ndociden_padre.Value
Dim Distrito As String
Dim rcs1 As Recordset
Distrito = "SELECT codigo_distrito FROM distrito WHERE nombre_distrito= '" & Me.distrito_nacido.Value & "' "
Set rcs1 = dbs.OpenRecordset(Distrito, dbOpenDynaset)
valor_distrito = rcs1("codigo_distrito")
Dim Centro As String
Dim rcs2 As Recordset
Dim cc As String
cc = Me.centro_nacido.Value
MsgBox cc
Centro = "SELECT codigo_tcentro FROM tipo_centro_nacimiento WHERE tipo_tcentro= '" & Me.centro_nacido.Value & "' "
Set rcs2 = dbs.OpenRecordset(Centro, dbOpenDynaset)
valor_centro = rcs2("codigo_tcentro")
Dim Sexo As String
Dim rcs3 As Recordset
Sexo = "SELECT codigo_sexo FROM sexo WHERE desc_sexo= '" & Me.sexo_nacido.Value & "' "
Set rcs3 = dbs.OpenRecordset(Sexo, dbOpenDynaset)
valor_sexo = rcs3("codigo_sexo")
Dim query As String
Dim rcs4 As Recordset
query = "nacido"
Set rcs4 = dbs.OpenRecordset(query, dbOpenDynaset)
With rcs4
.AddNew
!codigo_nacido = valor_nacido
!codigo_madre = Me.ndociden_madre.Value
!codigo_padre = Me.ndociden_padre.Value
!codigo_registrador = Me.ndociden_registrador.Value
!codigo_registro = Me.ndociden_registrador.Value
!codigo_distrito = valor_distrito
!codigo_centro = valor_centro
!codigo_sexo = valor_sexo
!paterno_nacido = Me.pat_nacido.Value
!materno_nacido = Me.mat_nacido.Value
!nombre_nacido = Me.nombre_nacido.Value
!otro_lugar_nacido = Me.otrol_nacido.Value
!hora_nacido = Me.hora_nacido.Value
!fecha_nacido = Me.fecha_nacido.Value
!fecha_registro_nacido = Me.fecha_registro.Value
.Update
.Bookmark = .LastModified
End With
rcs4.Close
Set rcs4 = Nothing
dbs.Close
Set dbs = Nothing
