Hola a todos estoy creando un programita para una consulta dental en el cual ingreso los datos del medico y todo ok , pero cuando ingreso los datos de los pacientes tengo problemas. Por que? ,por que deje las tablas medico y pacientes relacionada y hay me perdi no cacho como se guardan datos en tablas relacionadas y e hay mi pregunta como lo puedo hacer para guardar en esa tabla de pacientes .
Ahora le coloco el cod del fromulario pacientes en el cual no puedo guardar los datos por que me dice que las tablas estan relacionadas:
Código:
Private Sub ButtonMac1_Click()
Call mGrabar
End Sub
Sub mGrabar()
Dim strSql As String
Dim adoRs As New ADODB.Recordset
strSql = "Select * "
strSql = strSql & " from pacientes "
strSql = strSql & " Where nombre ='" & Txtnombre.Text & "'"
If dbCreaConsultaModificacion(strSql, adoRs) Then
If adoRs.EOF Then
adoRs.AddNew
adoRs![Nombre] = Txtnombre.Text
adoRs![apellidos] = Txtapellidos.Text
adoRs![trabajo] = Txtrabajos.Text
End If
adoRs.Update
adoRs.Close
End If
Set adoRs = Nothing
End Sub
este es el error que me manda:
no se pueden agregar o cambiar el reguistro por que se necesita un reguistro relacionado en la tabla medicos(esto base de dato es access )
si me pueden ayudar o guiar en el problema agradecido
