Cita:
Iniciado por velma 
Hola
Estoy haciendo un sistema y en una de las ventanas despues de dar le alta el registro necesito que despues de guardarlo me arroje un mensaje que diga: "El registro se ha guardado con el numero ****"
donde **** es el ID_REG que se genera automaticamente en la base de datos lo trate de hacer con este codigo pero no funciona, me devuelve 0
Private Sub Guardar_Click()
If Comprobar = True Then
rec.Open "Select * from Base_Telmex", db, adOpenDynamic, adLockPessimistic, adCmdText
With rec
.AddNew
!TIPO_CON = CbContrata.Text
!TELEFONO = TxtTel.Text
!Nombre = TxtNom.Text
!CALLE = TxtCalle.Text
!COLONIA = TxtCol.Text
!ESTADO = CbEdo.Text
.Update
End With
TxtId.Text = rec.Fields("ID_REG").Value
a = Val(TxtId.Text)
Ok = MsgBox("Han sido dado de alta los datos. Con la orden de servicio temporal" & Str(a), vbInformation, "Captura.")
Listo
rec.Close
End If
End Sub
Hola, en un principio el código parece correcto y 'a' debería mostrar el ID_REG insertado.
Habría que ver cómo haces la conexión a la bd y también qué hace el procedimiento 'Listo'
