Visual Basic - Ayuda Error de Compilacion

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda Error de Compilacion

Publicado por Sparco (1 intervención) el 28/11/2007 03:49:59
Tengo un problema, me aparece un error en este código:

Private Sub Form_Load()
For i = 0 To Text1.Count - 1

Me marca el .count
Error de compilacion: no se encontro el metodo o miembro de datos

Que puedo hacer
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda Error de Compilacion

Publicado por Nathan (3 intervenciones) el 28/11/2007 08:42:35
Declaras la i? Te has asegurado que tienes un vector de Text1( )?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Error de Compilacion

Publicado por christian (675 intervenciones) el 28/11/2007 17:02:01
estas trabajando en tu textbox con un arreglo???
que es lo que quieres hacer exactamente en el load con tu textbox??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Error de Compilacion

Publicado por Pacino (19 intervenciones) el 29/11/2007 12:59:38
For i=0 to Controls.Count-1
If Controls(i) typeof is TextBoxt then.....
Next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Error de Compilacion

Publicado por Rkdog (1 intervención) el 07/02/2011 02:22:46
necesito ayuda con este cod
doctor = InputBox("Introduzca El Nº de Cedula del Doctor:", "BUSCAR DOCTOR")
If vbCancel = True Then
Unload Me(frmdoctor)
End If

If Not IsNumeric(COD) Then
MsgBox "CODIGO INCORRECTO", vbInformation
cmdbuscar_Click
Else
strSQL = "SELECT * FROM doctor WHERE Ci_doctor= " + doctor + ""
CRITERIO = "[Cedula]LIKE " & doctor & ""

With RsRecorset

Rs.MoveLast
Rs.Find CRITERIO
If Rs.BOF Or Rs.EOF Then
MsgBox "EL DOCTOR NO SE ENCUENTRA REGISTRADO", vbExclamation
cmdbuscar_Click
Else
refresc
End With
End If
End If
me genera error en el criterio.find
.find y me dice q mienbro de datos o metodo no encontrado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Error de Compilacion

Publicado por Pedro Sánchez (1 intervención) el 27/03/2011 18:21:52
Por favor necesito ayuda me sale el siguiente error, quiero que al momento de hacer click en la base de datos que esta conectada de MySQL a Visual Basic se me cargue los datos a un form, pero me sale el siguiente error " Error de compilacion: no se encontro el metodo o miembro de datos", AQUI OS DEJO EL CODIGO DONDE ME SALE EL ERROR:


Set AdoRegistro = New ADODB.Recordset
AdoRegistro.Open "select * from tconsulta where COD_PACIENTE = " & Flex1.TextMatrix(Flex1.Row, 0), basetesis, adOpenDynamic, adLockReadOnly
If AdoRegistro.RecordCount > 0 Then

frmdatospersonales.txtconsultaprincipal = AdoRegistro.Fields!NUMERO_CONSULTA
frmdatospersonales.txtmotivospacienta = AdoRegistro.Fields!MOTIVOS_CONSULTA_DE_PACIENTE1
frmdatospersonales.txtmotivosacompañante = AdoRegistro.Fields!MOTIVOS_CONSULTA_SEGUN_ACOMPAÑANTE
frmdatospersonales.txtnumerohistoria = AdoRegistro.Fields!N_HISTORIA_CLINICA
frmdatospersonales.txtreceta = AdoRegistro.Fields!RECETA_MEDICA
frmdatospersonales.txtedadmeses = AdoRegistro.Fields!EDAD_MESES
frmdatospersonales.txtedadaños = AdoRegistro.Fields!EDAD_AÑOS

If AdoRegistro.Fields!ACOMPAÑANTE = "Solo" Then
frmdatospersonales.optsolo.Value = True
(EN ESTA LINEA ME SALE EL ERROR) ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Padre" Then frmdatospersonales.optpadre.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Madre" Then frmdatospersonales.optmadre.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Pareja" Then frmdatospersonales.optpareja.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Pariente" Then frmdatospersonales.optpariente.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Ambos" Then frmdatospersonales.optambos.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Otros" Then frmdatospersonales.optotros.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE = "Amigo/a" Then frmdatospersonales.optamigos.Value = True
ElseIf AdoRegistro.Fields!ACOMPAÑANTE Is Null Then
End If
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar