No coinciden los tipos
Publicado por Nadal (3 intervenciones) el 15/09/2005 09:44:30
Al ejecutar bajo código visual basic el metodo OpenRecordset, cuando lo asigno a un objeto Recordset, me sale el mensaje "No coinciden los tipos", el caso es que tengo hecho lo mismo en otra aplicación Access y funciona perfectamente. ¿Que puede ser?. Gracias adelantadas. Aquí dejo el código:
Donde usuarios es una tabla con el campo [nombre usuario]
Private Sub cmbAceptar_Click()
On Error GoTo Err_Apunte_Contable_Click
Dim rstUsuario As Recordset
Dim varUsuario() As String
Set rstUsuario = CurrentDb.OpenRecordset("usuarios")
^AQUI ES DONDE SE CAE EL PROGRAMA
rstUsuario.MoveFirst
For i = 1 To rstUsuario.RecordCount
ReDim Preserve varUsuario(i)
varUsuario(i) = rstUsuario![nombre usuario]
rstUsuario.MoveNext
Next i
rstUsuario.Close
Exit_Apunte_Contable_Click:
Exit Sub
Err_Apunte_Contable_Click:
MsgBox Err.Description
Resume Exit_Apunte_Contable_Click
End Sub
Donde usuarios es una tabla con el campo [nombre usuario]
Private Sub cmbAceptar_Click()
On Error GoTo Err_Apunte_Contable_Click
Dim rstUsuario As Recordset
Dim varUsuario() As String
Set rstUsuario = CurrentDb.OpenRecordset("usuarios")
^AQUI ES DONDE SE CAE EL PROGRAMA
rstUsuario.MoveFirst
For i = 1 To rstUsuario.RecordCount
ReDim Preserve varUsuario(i)
varUsuario(i) = rstUsuario![nombre usuario]
rstUsuario.MoveNext
Next i
rstUsuario.Close
Exit_Apunte_Contable_Click:
Exit Sub
Err_Apunte_Contable_Click:
MsgBox Err.Description
Resume Exit_Apunte_Contable_Click
End Sub
Valora esta pregunta
0