AYUDA EN VISUAL BASIC 6

[dogin]

hola soy principiante en programacion en visual basic, estoy haciendo un sistema donde tengo que guardar en una tabla la clave autonumerica de otra tabla. en la tabla calificaciones solo se guarda la clave del tema y se genera la cve_aoutnumerica de la claficacion y en la tabla detalle de calificaciones se guardan las calificaciones y la cve_autonumerica de la calificacion pero no lo hace!!

este es el codigo para guardar

Select Case Button.Key
Case "guardar"
conecta.Open
registro.ActiveConnection = conecta
X = Val(txtcve_alumno.Text)
registro.Source = "SELECT * FROM calificaciones where cve_alumno = " & X
registrpen
If Not registro.BOF = True And registro.EOF = True Or registro.EOF = True Then
registro.AddNew
registro.Fields(0) = txtcve_alumno.Text
registro.Fields(1) = txtcve_tema.Text

registro.Update
MsgBox "registro guardado", 64
End If
registro.Close


registro.ActiveConnection = conecta
registro.Source = "select cve_cal from calificaciones"
registrpen
z = registro.Fields("cve_cal")
registro.Close

registro.ActiveConnection = conecta
' If (X <> 0) Then
registro.Source = "SELECT * FROM det_calif where cve_cal =" & z
registrpen
If registro.BOF = True And registro.EOF = True Then
registro.AddNew
registro.Fields(1) = z
registro.Fields(2) = txtcalificacion.Text
registro.Fields(3) = txtfecha.Text


registro.Update
'MsgBox "registro guardado", 64
End If
'End If
'registro.Close
conecta.Close
:metal: help me!!!

 

[dogin]

help mee!!! ayudenmeeee

 

[talincito]

hola soy principiante en programacion en visual basic, estoy haciendo un sistema donde tengo que guardar en una tabla la clave autonumerica de otra tabla. en la tabla calificaciones solo se guarda la clave del tema y se genera la cve_aoutnumerica de la claficacion y en la tabla detalle de calificaciones se guardan las calificaciones y la cve_autonumerica de la calificacion pero no lo hace!!

este es el codigo para guardar

Select Case Button.Key
Case "guardar"
conecta.Open
registro.ActiveConnection = conecta
X = Val(txtcve_alumno.Text)
registro.Source = "SELECT * FROM calificaciones where cve_alumno = " & X
registrpen
If Not registro.BOF = True And registro.EOF = True Or registro.EOF = True Then
registro.AddNew
registro.Fields(0) = txtcve_alumno.Text
registro.Fields(1) = txtcve_tema.Text

registro.Update
MsgBox "registro guardado", 64
End If
registro.Close


registro.ActiveConnection = conecta
registro.Source = "select cve_cal from calificaciones"
registrpen
z = registro.Fields("cve_cal")
registro.Close

registro.ActiveConnection = conecta
' If (X <> 0) Then
registro.Source = "SELECT * FROM det_calif where cve_cal =" & z
registrpen
If registro.BOF = True And registro.EOF = True Then
registro.AddNew
registro.Fields(1) = z
registro.Fields(2) = txtcalificacion.Text
registro.Fields(3) = txtfecha.Text


registro.Update
'MsgBox "registro guardado", 64
End If
'End If
'registro.Close
conecta.Close
:metal: help me!!!

CON GUSTO TE ALLUDAMOS PERO SE UN POCO MAS EXPLICITO EN TU PROBLEMAS SE MAS DETALLOSO NO ENTIENDO QUE TABLAS SON Y QUE CAMPOS VAS A GUARDAR ES MAS QUE TABLAS OCUPAS Y QUE ES LO QUE QUIERES HACER