Hola a todos.
Verán, estoy creando una base de datos y me gustaría crear unos formularios para añadir registros
De momento tengo una tabla proveedores con dos campos: cod_proveedor y nombre_proveedor.
En un formulario con dos campos de texto (codProv y nomProv) he añadido un botón (agregar) y he vinculado en su evento Click el siguiente código:
Código vb:
Ver originalOption Compare Database
Private cnn As ADODB.Connection
Private rsTProv As ADODB.Recordset
Private Sub agregar_Click()
On Error GoTo Err_agregar_Click:
'Abrir recordset
rsTProv.Open "SELECT * FROM PROVEEDORES", cnn, adOpenKeyset, adLockPessimistic
rsTProv.MoveLast
rsTProv.AddNew
'Asignar contenido de nomProv al campo correspondiente
nomProv.SetFocus
rsTProv!nombre_proveedor = nomProv.Text
'Asignar contenido de codProv al campo correspondiente
codProv.SetFocus
rsTProv!cod_proveedor = codProv.Text
'Actualizar la informacion de la tabla
rsTProv.Update
'Poner los campos en blanco para seguir añadiendo
MsgBox ("Proveedor " & nomProv.Text & " dado de alta")
nomProv.SetFocus
nomProv.Text = ""
codProv.SetFocus
codProv.Text = ""
'Cerrar recordset
rsTProv.Close
Form.Requery
Err_agregar_Click:
MsgBox ("Se ha producido un error.")
Exit Sub
End Sub
También tengo un Form_Load():
Código vb:
Ver originalPrivate Sub Form_Load()
Set cnn = New ADODB.Connection
Set rsTProv = New ADODB.Recordset
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = CurrentDb.Name
cnn.Open
End Sub
Me da el siguiente error: "No se ha definido el tipo definido por el usuario"
El error me salta en los eventos Click y Load, y no logro encontrar el porque.
Gracias de antemano!