AYUDA Error de Compilacion
Publicado por
Joao (1 intervención) el 31/01/2009 22:18:11
Hola les dejo este codigo a ver si me pueden ayudar. No logro definir algo que me falta para pode correr este formulario. el error que me da es el siguiente: ERROR DE COMPILACION...... NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO..Gracias de antemano
'Declaracion del objeto CONNECTION, el
'cual me permite acceso a una base de datos
Dim cn As ADODB.Connection
'Declaracion de un objeto RECORDSET, el cual
'representa los registros de una tabla
Dim rs As New ADODB.Recordset
Private Sub Buscar_Click()
Dim criterio As String
Dim val As Boolean
Dim criterio1 As String
criterio1 = "[CODIGO]=" & Text1.Text
rs.MoveFirst
If Option1.Value = True Then
Text6.Text = ""
If Text5.Text = "" Then
MsgBox "Ingrese Codigo del Centro"
Else
criterio = "[CODIGO]=" & Text5.Text
rs.Find criterio
val = validar()
End If
End If
If Option2.Value = True Then
Text5.Text = ""
If Text6.Text = "" Then
MsgBox "Ingrese Nombre del Centro"
Else
criterio = "[NOMBRE] like '*" & Text6.Text & "*'"
rs.Find criterio
val = validar
End If
End If
If val = True Then
refrescar
Else
'Para usar FIND primero debo posicionar hacer
'registro activo al primer registro ya que FIND
'empiesa a buscar desde donde esta parada y no vuelve
If Text5.Text <> "" Or Text6.Text <> "" Then
rs.MoveFirst
rs.Find criterio1
refrescar
MsgBox "Registro no existente"
Text5.Text = ""
Text6.Text = ""
End If
End If
End Sub
Private Sub Cancelar_Click()
rs.CancelUpdate
refrescar
desabilitar
End Sub
Private Sub Anterior_Click()
rs.MovePrevious
Posterior.Enabled = True
desabilitar
If rs.BOF = True Then
rs.MoveFirst
Primero.Enabled = False
Anterior.Enabled = False
Else
refrescar
End If
End Sub
'Procedimiento que me permite refrescar los textbox
Public Sub refrescar()
Text1.Text = rs!EDO
Text2.Text = rs!ESTADO
Text3.Text = rs!MUNI
Text4.Text = rs!MUNICIPIO
Text7.Text = rs!PAQ
Text8.Text = rs!PARROQUIA
Text9.Text = rs!CODIGO
Text10.Text = rs!NOMBRE
Text11.Text = rs!DIRECCION
Text12.Text = rs!ESTATUS
Text13.Text = rs!MESAS
Text14.Text = rs!TRANS
Text15.Text = rs!ELEC
Text16.Text = rs!Ciudad
Text17.Text = rs!Longitud
Text18.Text = rs!Latitud
Text19.Text = rs!Observaciones
End Sub
Private Sub Eliminar_Click()
Dim n As Integer
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs.Delete
End If
rs.MovePrevious
rs.MoveNext
refrescar
End Sub
Private Sub Modificar_Click()
desabilitar
End Sub
Private Sub Option1_Click()
Text6.Text = ""
End Sub
Private Sub Option2_Click()
Text5.Text = ""
End Sub
Private Sub Salir_Click()
Unload Me
End Sub
Private Sub Posterior_Click()
'Primero mueve al proximo registro
rs.MoveNext
desabilitar
'Si detecta que es el ultimo archivo
'mueve al ultimo registro de la tabla clientes
If rs.EOF = True Then
rs.MoveLast
Ultimo.Enabled = False
Posterior.Enabled = False
'No necesita refrescar porque estaba posicionado alli
'la ultima ves que se hizo click en el boton
Else
'Si no refresca
refrescar
End If
End Sub
Private Sub Primero_Click()
'Mueve al primer registro de la tabla clientes
rs.MoveFirst
refrescar
desabilitar
End Sub
Private Sub Ultimo_Click()
'Mueve al ultimo registro de la tabla clientes
rs.MoveLast
refrescar
desabilitar
End Sub
Private Sub Form_Load()
'Establesco la coneccion
'
'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = "bd3.mdb"
'Habre la conexion
'Si da error en cn.open -> Fijarme si el proveedor es el correcto
cn.Open
'Aqui se obtiene una serie de registros: en este caso de la
'tabla clientes
rs.Open "select * from Tabla1", cn, adoenkeyset, adLockOptimistic
rs.MoveFirst
refrescar
desabilitar
Option1.Value = True
End Sub
Private Sub Guardar_Click()
rs.Fields("EDO") = Text1.Text
rs.Fields("ESTADO") = Text2.Text
rs.Fields("MUNI") = Text3.Text
rs.Fields("MUNICIPIO") = Text4.Text
rs.Fields("PAQ") = Text7.Text
rs.Fields("PARROQUIA") = Text8.Text
rs.Fields("CODIGO") = Text9.Text
rs.Fields("NOMBRE") = Text10.Text
rs.Fields("DIRECCION") = Text11.Text
rs.Fields("ESTATUS") = Text12.Text
rs.Fields("MESAS") = Text13.Text
rs.Fields("TRANS") = Text14.Text
rs.Fields("ELEC") = Text15.Text
rs.Fields("Ciudad") = Text16.Text
rs.Fields("Longitud") = Text17.Text
rs.Fields("Latitud") = Text18.Text
rs.Fields("Observaciones") = Text19.Text
rs.Update
desabilitar
rs.MoveLast
End Sub
Private Sub Nuevo_Click()
rs.AddNew
limpiar
desabilitar
End Sub
Private Sub limpiar()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
End Sub
Public Sub desabilitar()
If Primero.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = False
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = False
Modificar.Enabled = True
Else
If Nuevo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Salir.Enabled = False
Buscar.Enabled = False
Eliminar.Enabled = False
Modificar.Enabled = False
Frame1.Enabled = False
Else
If Guardar.Value = True Or Cancelar.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Salir.Enabled = True
Buscar.Enabled = True
Eliminar.Enabled = True
Frame1.Enabled = True
Modificar.Enabled = True
Else
If Ultimo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Else
If Modificar.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Eliminar.Enabled = False
Buscar.Enabled = False
Frame1.Enabled = False
Else
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Eliminar.Enabled = True
Buscar.Enabled = True
End If
End If
End If
End If
End If
End Sub
Public Function validar() As Boolean
If rs.BOF = True Or rs.EOF = True Then
validar = False
Else
validar = True
End If
End Function