Corregir código botón access 2007 con VBA
Se tiene el siguiente codigo en un botón de comando, pero al ejecutarlo muestra "error 13 en tiempo de ejecución. No coinciden los tipos"
Busque y realicé los pasos descritos por Microsoft para solucionarlo y no he podido. Serian tan amables de ayudarme y orientarme si esta bien construido el código.
1 Respuesta
Buenos Días.
Que pena. Debe ser un descuido por mi nivel de frustración. El código es:
Private Sub Comando0_Click()
Dim dbsTemporal As DAO.Database
Dim rstMovimientos As DAO.Recordset 'Declaracion de variables
Dim Opcion1 As Integer
Dim Opcion2 As String
Dim nombreMacro As String
Set dbsTemporal = CurrentDb
Set rstMovimientos = dbsTemporal.OpenRecordset("MOVIMIENTO_PRESUPUESTO") 'Abre la tabla
rstMovimientos.MoveFirst 'ubica el primer registro
Opcion1 = rstMovimientos!TIPO_MOVIMIENTO
Opcion2 = rstMovimientos!TIPO_RUBRO
If Opcion1 = 1 & Opcion2 = "INGRESO" Then
MsgBox "El REGISTRO NO está vacío"
nombreMacro = "EDITAR_REGISTRO_PTO_INICIAL_INGRESOS"
DoCmd.RunMacro nombreMacro
Else
MsgBox "El REGISTRO está vacío"
nombreMacro = "INGRESAR_PTO_INICIAL_INGRESOS"
DoCmd.RunMacro nombreMacro
End If
End Sub
Gracias por su tiempo.
¿Y en qué línea te marca el error?
Además, veo otra cosa rara, esta línea:
If Opcion1 = 1 & Opcion2 = "INGRESO" Then
debería ser así:
If Opcion1 = 1 AND Opcion2 = "INGRESO" Then
