[ Foro de BASIC ]

Error No se ha declarado el nombre en Visual Basic

21-Oct-2015 23:20
Saulo David Jorgez
3 Respuestas

Estoy haciendo una base de datos con access y visual basic y me da este error, no entiendo que hacer. Declaré la variable y me sigue dando el error. aquí el código de lo que he hecho hasta ahora. Quería hacer una prueba pero me da este error

 
Public Class Form1
 
    Public accion AS STRING
    Public sql AS STRING
 
    Private SUB AFILIADOSBindingNavigatorSaveItem_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles AFILIADOSBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.AFILIADOSBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ASAPROVEDataSet)
 
    END SUB
 
    Private SUB Form1_Load(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'ASAPROVEDataSet.AFILIADOS' Puede moverla o quitarla según sea necesario.
        Me.AFILIADOSTableAdapter.Fill(Me.ASAPROVEDataSet.AFILIADOS)
 
    END SUB
 
    Private SUB CALLETextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles CALLETextBox.TextChanged
 
    END SUB
 
    Private SUB CALLELabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB Button1_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button1.Click
        NÚMERO.text = ""
        NÚMERO.Enabled = True
        NOMBRES.text = ""
        NOMBRES.Enabled = True
        APELLIDOS.text = ""
        APELLIDOS.Enabled = True
        PROFESIÓN.text = ""
        PROFESIÓN.Enabled = True
        CÉDULA.text = ""
        CÉDULA.Enabled = True
        RESIDENCIA.text = ""
        RESIDENCIA.Enabled = True
        CALLE.text = ""
        CALLE.Enabled = True
        CASA.text = ""
        CASA.Enabled = True
        CIUDAD.text = ""
        CIUDAD.Enabled = True
        ESTADO.text = ""
        ESTADO.Enabled = True
        TELF_HAB.text = ""
        TELF_HAB.Enabled = True
        TELF_TRAB.text = ""
        TELF_TRAB.Enabled = True
        MOVIL.text = ""
        MOVIL.Enabled = True
        E_MAIL.text = ""
        E_MAIL.Enabled = True
        accion = "nuevo"
    END SUB
 
    Private SUB E_MAILLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB CASATextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles CASATextBox.TextChanged
 
    END SUB
 
    Private SUB CASALabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB CIUDADTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles CIUDADTextBox.TextChanged
 
    END SUB
 
    Private SUB CIUDADLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB ESTADOTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles ESTADOTextBox.TextChanged
 
    END SUB
 
    Private SUB ESTADOLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB TELF_HABTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles TELF_HABTextBox.TextChanged
 
    END SUB
 
    Private SUB TELF_HABLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB TELF_TRABTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles TELF_TRABTextBox.TextChanged
 
    END SUB
 
    Private SUB TELF_TRABLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB MOVILTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles MOVILTextBox.TextChanged
 
    END SUB
 
    Private SUB MOVILLabel_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs)
 
    END SUB
 
    Private SUB NÚMEROTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles NÚMEROTextBox.TextChanged
 
    END SUB
 
    Private SUB NOMBRESTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles NOMBRESTextBox.TextChanged
 
    END SUB
 
    Private SUB APELLIDOSTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles APELLIDOSTextBox.TextChanged
 
    END SUB
 
    Private SUB PROFESIÓNTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles PROFESIÓNTextBox.TextChanged
 
    END SUB
 
    Private SUB CÉDULATextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles CÉDULATextBox.TextChanged
 
    END SUB
 
    Private SUB RESIDENCIATextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles RESIDENCIATextBox.TextChanged
 
    END SUB
 
    Private SUB E_MAILTextBox_TextChanged(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles E_MAILTextBox.TextChanged
 
    END SUB
 
    Private SUB Button2_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button2.Click
        NÚMERO.Enabled = True
        NOMBRES.Enabled = True
        APELLIDOS.Enabled = True
        PROFESIÓN.Enabled = True
        CÉDULA.Enabled = True
        RESIDENCIA.Enabled = True
        CALLE.Enabled = True
        CASA.Enabled = True
        CIUDAD.Enabled = True
        ESTADO.Enabled = True
        TELF_HAB.Enabled = True
        TELF_TRAB.Enabled = True
        MOVIL.Enabled = True
        E_MAIL.Enabled = True
        accion = "editar"
    END SUB
 
    Private SUB Button3_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button3.Click
        IF accion = "nuevo" THEN
            sql = "insert into Datos ( NÚMERO,NOMBRES,APELLIDOS,PROFESIÓN,CÉDULA,RESIDENCIA,CALLE,CASA,CIUDAD,ESTADO,TELF_HAB,MOVIL,E_MAIL )" _
                & "values ('" & NÚMERO.text & "' , '" & NOMBRES.text & "' , '" & APELLIDOS.text & "' , '" _
                & PROFESIÓN.text & "' ,'" & CÉDULA.text & "' , '" & RESIDENCIA.text & "' , '" _
                & CALLE.text & "' ,'" & CASA.text & "' , '" & CIUDAD.text & "' , '" & ESTADO.text & "' , '" _
                & TELF_HAB.text & "' , '" & TELF_TRAB & "' , '" & MOVIL.text & "' , '" & E_MAIL.text & "' )"
            conexion.Execute(Sql)
            MsgBox("El regitro se guardó correctamente")
        END IF
        IF accion = "editar" THEN
            sql = "update Datos set NOMBRES='" & NOMBRES.text & "' , " _
                                & "APELLIDOS='" & APELLIDOS.text & "' , " _
                                & "PROFESIÓN='" & PROFESIÓN.text & "' , " _
                                & "CÉDULA='" & CÉDULA.text & "' , " _
                                & "RESIDENCIA='" & RESIDENCIA.text & "' , " _
                                & "CALLE='" & CALLE.text & "' , " _
                                & "CASA='" & CASA.text & "' , "
                                & "CIUDAD='" & CIUDAD.text & "' , " _
                                & "ESTADO='" & ESTADO.text & "' , " _
                                & "TELF_HAB='" & TELF_HAB & "' , " _
                                & "TELF_TRAB='" & TELF_TRAB & "' , " _
                                & "MOVIL='" & MOVIL.text & "' , " _
                                & "E_MAIL='" & E_MAIL.text & "' " _
                                & "where NÚMERO='" & NÚMERO.text & "'"
            Debug.PRINT(Sql)
 
            conexion.Execute(Sql)
            MsgBox("La edición del registro se realizó con éxito")
        END IF
    END SUB
 
    Private SUB Button4_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button4.Click
        DIM x AS INTEGER
        x = MsgBox("En realidad desea eliminar el registro", MsgBoxStyle.YesNo)
        IF x = vbYes THEN
            sql = "delete from Datos where NÚMERO='" & NÚMERO.text & "'"
            conexion.Execute(Sql)
            MsgBox("Registro eliminado")
            NÚMERO.text = ""
            NOMBRES.text = ""
            APELLIDOS.text = ""
            PROFESIÓN.text = ""
            CÉDULA.text = ""
            RESIDENCIA.text = ""
            CALLE.text = ""
            CASA.text = ""
            CIUDAD.text = ""
            ESTADO.text = ""
            TELF_HAB.text = ""
            TELF_TRAB.text = ""
            MOVIL.text = ""
            E_MAIL.text = ""
 
        END IF
    END SUB
 
    Private SUB Button5_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button5.Click
        DIM NÚMERO AS STRING
        DIM rs AS ADODB.Recordset
 
        NÚMERO = InputBox("Digite el Número de ASAPROVE")
        Sql = "Select * from Datos where NÚMERO='" & NÚMERO & "'"
        rs = conexion.Execute(Sql)
 
        IF rs.BOF <> True THEN
            rs.MoveFirst()
            NÚMERO.text = rs.Fields(0).Value
            NOMBRES.text = rs.Fields(1).Value
            APELLIDOS.text = rs.Fields(2).Value
            PROFESIÓN.text = rs.Fields(3).Value
            CÉDULA.text = rs.Fields(4).Value
            RESIDENCIA.text = rs.Fields(5).Value
            CALLE.text = rs.Fields(6).Value
            CASA.text = rs.Fields(7).Value
            CIUDAD.text = rs.Fields(8).Value
            ESTADO.text = rs.Fields(9).Value
            TELF_HAB.text = rs.Fields(10).Value
            TELF_TRAB.text = rs.Fields(11).Value
            MOVIL.text = rs.Fields(12).Value
            E_MAIL.text = rs.Fields(13).Value
        ELSE
            MsgBox("El regitro no existe")
        END IF
    END SUB
 
END Class
 


 


25-Oct-2015 00:54
Nacho Cabanes (+31)

El código es largo, y es difícil de replicar porque es un fragmento de un programa cuya parte visual no podemos replicar. Por eso, ayudaría saber en qué línea obtienes el mensaje de error.


27-Oct-2015 03:28
Saulo David Jorgez

El error consiste en que, en la compilación me dice que no e ha declarado el nombre de la variables, tengo 92 errores. cuando trato de declarara con DIM, entonces me dice que txt no es un elemento que pertenece a string que es al tipo de variable a la que las declaro.  


30-Oct-2015 23:59
Nacho Cabanes (+31)

Pero esos errores te los marcará en líneas concretas. Al no poder rehacer el formulario, es difícil encontrar los errores si no se trata de errores terriblemente evidentes o das más detalles sobre las líneas concretas que se te quedan marcadas en color rojo.






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)