Guardar desde varios formularios a única linea

Tengo tres formularios para guardar datos de una sola persona, el problema es que como son muchos datos, me toco crear tres formularios para poder llenar todos los datos.. Estoy utilizando como clave principal el numero de identifiacion del paciente, y pues este es el primer datos que dígito en el formulario 1, hasta aquí ningún problema..
El problema viene cuando paso al formulario 2 que es continuación de datos del paciente que escogí en el formulario1 cuando tengo todos los datos y los guardo me los pega pero en un nueva fila y de esta manera no me sirve porque me generaría un desorden que después no se esos datos a que usuario pertenece...
Mi pregunta es como puedo hacer para que los datos que yo agregue en los formularios 2 y 3 se peguen a continuación de los datos del formulario1, que queden en la misma fila, para que sea considerado como un solo registro...

1 Respuesta

Respuesta
1
Utiliza UPDATE no INSERT, en los formulariso 2 y 3
Gracias por la atención, yo hasta ahora estoy empezando en este cuento de la programación, y pues el código que tengo es el siguiente para la hoja1.
trate de meter la respuesta en esta linea
txtSQl = "select * from Datosp where Nhistoria  =  '" & Usuario & "'"
Pero me da un error. Te agradecería si me puedes echar una mano para ver que estoy haciendo mal, para poder guardar los datos del primer formulario y que los datos del formulario 2 y 3 se peguen en la misma fila del primer formulario.
Option Explicit
Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim cn As New ADODB.Connection
'CONEXION PARA GUARDAR LOS DATOS EN LA TABLA
Private Sub Form_Load()
'establece la cadena de conexión a utilizar en la propiedad ConnectionString
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Historias.mdb" & ";Persist Security Info=False"
'abre la base de datos
cn.Open
'Abre el recordset enviando la consulta sql
rss.Open "Select * from AHISTORIA", cn, adOpenDynamic, adLockOptimistic
'abre formulario y empieza un registro nuevo
rss.AddNew
End Sub
Private Sub Guardar_Click()
Text12.Text = CLng(rss("codapertura"))
'On Error GoTo fallo:
If Text1 = "" Or Text2 = "" Then
MsgBox "Debe completar los datos", vbExclamation
Text2.SetFocus
Exit Sub
End If
rss.Update
rss("Identificacion") = Text1.Text
rss("Nombre") = Text2.Text
rss("Sintoma") = Text3.Text
rss("Cronologia") = Text4.Text
rss("Antecedentes") = Text5.Text
rss("Patologico") = Text6.Text
rss("Traumatico") = Text7.Text
rss("Quirurgico") = Text8.Text
rss("Farmacologico") = Text9.Text
rss("Toxico") = Text10.Text
rss("transfucional") = Text11.Text
MsgBox " Registro guardado", vbInformation, "Grabar"
rss.AddNew
Exit Sub
Unload Me
'fallo:
'MsgBox "Este datos ya existe"
End Sub
Esto :
rss. AddNew
Va al principio de rss("Campo")= algo..
y el rss. Update va al fina de todas esas lineas
Enel formulario 2 y 3 no va la linea de rss. AddNew, entonces solo cambias los campos que grabas y el rss. Update al final para grabar.
Ok el problema ahora es que solo me guarda la primera vez los datos del formulario2 y solo se van actualizando pero no se agregan cada vez que voy agragando datos en el formulario 1.. los datos del formulario 2 solo se actualizan pero no se agregan y si le pongo rss. Addnew entonces se agrega pero una fila más abajo de los datos del formulario uno . no logro hacer que se sincronizen y que los dos se vallan agragando fila a fila
FORMULARIO UNO
'CONEXION PARA GUARDAR LOS DATOS EN LA TABLA
Private Sub Form_Load()
'establece la cadena de conexión a utilizar en la propiedad ConnectionString
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Historias.mdb" & ";Persist Security Info=False"
'abre la base de datos
cn.Open
'Abre el recordset enviando la consulta sql
rss.Open "Select * from AHISTORIA", cn, adOpenDynamic, adLockOptimistic
'abre formulario y empieza un registro nuevo
'rss.AddNew
'rss.AddNew
End Sub
Private Sub Guardar_Click()
'Text12.Text = CLng(rss("codapertura"))
'On Error GoTo fallo:
If Text1 = "" Or Text2 = "" Then
MsgBox "Debe completar los datos", vbExclamation
Text2.SetFocus
Exit Sub
End If
rss.AddNew
'rss.Update
rss("Identificacion") = Text1.Text
rss("Nombre") = Text2.Text
rss("Sintoma") = Text3.Text
rss("Cronologia") = Text4.Text
rss("Antecedentes") = Text5.Text
rss("Patologico") = Text6.Text
rss("Traumatico") = Text7.Text
rss("Quirurgico") = Text8.Text
rss("Farmacologico") = Text9.Text
rss("Toxico") = Text10.Text
rss("transfucional") = Text11.Text
rss.Update
MsgBox " Registro guardado", vbInformation, "Grabar"
Exit Sub
Unload Me
'fallo:
'MsgBox "Este datos ya existe"
End Sub
FORMULARIO DOS
Option Explicit
'Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim cn As New ADODB.Connection
'Connection Confirmation
Private Sub Form_Load()
'establece la cadena de conexión a utilizar en la propiedad ConnectionString
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Historias.mdb" & ";Persist Security Info=False"
'abre la base de datos
cn.Open
'Abre el recordset enviando la consulta sql
rss.Open "Select * from AHISTORIA", cn, adOpenDynamic, adLockOptimistic
'abre formulario y empieza un registro nuevo
'rss.AddNew
'rss.Update
End Sub
Private Sub Command1_Click()
rss.Update
rss("Polio") = Text1.Text
rss("MMR") = Text2.Text
rss("Malaria") = Text3.Text
rss("Sarampion") = Text4.Text
rss("Hemofilus") = Text5.Text
rss("Fieb_Amarilla") = Text6.Text
rss.Update
MsgBox " Registro guardado", vbInformation, "Grabar"
End Sub
Lo que sucede es que en el formulario 2 y 3 tienes que pararte en el registro que vas a modificar, con select * from te colocas en el primer registro de la tabla, no en el registro real que quieres modificar.
Debes agregarle un Where a la sentencia SQL para ubicar el redgistro correcto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ayuda con RECORDCOUNT

Tengo un formulario y le estoy adaptando un control para que me cuente el numero de registros que tengo en una tabla, en algunos formularios me funciona.. Pero en otros solo me muestra el -1 y no se como adapatarlo agradezco la ayuda para poder...
1 respuesta

Datagrid y textbox

Necesito que saber como puedo seleccionar un registro del datagrid y que este se muestro en los texbox que he diseñado, de tal manera que aquí pueda modificarlo, etc. La cuestión me trae de cabeza. O incluso algún ejemplo para poder estudiarlo y...
1 respuesta

Consulta con conexión ADO

Estoy haciendo una conexión mediante ADO y cuendo en el formulario veo los registros y quiero modificarlo, eliminarlos hacer una búsqueda etc me sale el siguiente mensaje " EL recordset actual no admite actualizaciones.Puede puede ser una limitación...
4 respuestas

Ayuda con error para guardar datos.

Tengo un formulario de visual basic para a través de el guardar datos en una tabla de access, el problema que me presenta, es que para que funcione debo agregar el primer dato directamente a la tabla de access,,, luego para poder ingresar los datos...
1 respuesta

Ver historial en un formulario

Tengo un formulario para mostrar las fórmulas que fueron generadas para un paciente,,, cuando dígito el numero de cedula de un paciente me aparecen los datos de la fórmula que fue generada. El problema es que solo me muestra la primera que esta en la...
1 respuesta

Eliminar un registro de la bd y del datagrid en vb

Soy nuevo en esto, haber si me pueden ayudar estoy haciendo un sistema de facturación, donde despliega el datagrid cuando quiero dar de baja un registro. Por lo tanto hago un click en el data grid y quiero capturar la fila y eliminarla del datagrid y...
1 respuesta

Vericar Si Existe Usuario

Tengo un problema en una aplicación que estoy haciendo para guardar datos en sql server 2000 usando visual 6.0 no se como verificar si el usuario existe al momento de agregarlo te envío el código del botón guardar Private Sub Command1_Click()...
1 respuesta

Comparar datos en una bd

Bien tengo una BD en access2000 en lazada a visual basic6 mediante un adodc1 en la base de datos tengo una tabla llamada principal la cual contiene un campo "vin" y en visual tengo un formulario con un texbox llamado "text1"lo que quiero que haga es...
1 respuesta

Ayuda crear función en un modulo

Tengo un programa donde utilizo el siguiente código, como mis conomcimientos en visual son muy mínimos cuando lo cree,, puse el código para cada formulario del proyecto,, y son más o menos 15 formularios,,, el código consiste en que yo dígito un...
1 respuesta

Puedo pasar código vb6 a vba para access

Yo realizo la validación de contraseña con una tabla que se encuentra en sql server a través de ADO con vb6 de esta manera: Private Sub Command1_Click() Dim base As New ADODB.Connection Dim rsValidacion As New Recordset 'abro mi conexión base.Open...
1 respuesta