Visual Basic - Error de Compilacion: Etiqueta no definida

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Leonardo leonardo2013.d@gmail.com (5 intervenciones) el 14/01/2015 17:32:38
Error de Compilacion: Etiqueta no definida


Ante todo muy buenas tardes. Es un placer estar en esta comunidad de programadores. Soy nuevo en la materia y actualmente estoy programando en Visual Basic 6.0

He adelantado un Sistema pero al momento de ejecutar una pantalla (Estudiantes) y hacerle clic en el botón Agregar me da el siguiente error:

Error de Compilacion: Etiqueta no definida


error



El código que estoy realizando es el siguiente:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub cmdAgregar_Click()
On Error GoTo Verificar
Conectar
Dim micom As ADODB.Command
Set micom = New ADODB.Command
micom.CommandType = adCmdText
Set RG = New ADODB.Recordset
SQL = "SELECT * FROM TBESTUDIANTES"
RG.Open SQL, cn, adOpenDynamic, adLockOptimistic
VAR1 = Me.txtCI.Text
VAR2 = Me.txtApe.Text
VAR3 = Me.txtNom.Text
VAR4 = Me.txtDir.Text
VAR5 = Me.mskTLF.Text
VAR6 = Me.cldFN.Day
VAR7 = Me.cldFN.Month
VAR8 = Me.cldFN.Year
VAR9 = VAR6 & "/" & VAR7 & "/" & VAR8
RG.MoveFirst
Do While RG.EOF = False
bu = RG!CI
If bu = Me.txtCI.Text Then
MsgBox "ESTE USUARIO YA SE ENCUENTRA REGISTRADO", vbCritical, "Error de Redundancia de datos"
cmdLimpiar_Click
Bloquear_Estu
Exit Sub
End If
RG.MoveNext
If RG.EOF = True Then
micom.CommandText = "Insert into TBESTUDIANTES (CI, APE, NOM, DIR, TLF,FNAC) values ('" & VAR1 & "', '" & VAR2 & "', '" & VAR3 & "', '" & VAR4 & "', '" & VAR5 & "', '" & VAR9 & "')"
micom.ActiveConnection = cn
micom.Execute
Set micom = Nothing
MsgBox "Registros Guardados"
cmdLimpiar_Click
Bloquear_Estu
Me.txtCI.SetFocus
Exit Sub
End If
Loop
RG.Close
Desconectar
Exit Sub
Verificar:
If Error = "El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual." Then
GoTo 1
Exit Sub
Else
MsgBox "Imposible realizar accion por favor consulte manual del sistema"
cmdLimpiar_Click
Bloquear_Estu
Exit Sub
End If
End Sub


Estaré muy agradecido si me ayudan.

Saludos!
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
Imágen de perfil de Andres Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Andres Leonardo (698 intervenciones) el 14/01/2015 18:14:20
Estimado Amigo espero te ayude

Private Sub cmdAgregar_Click()
On Error GoTo Verificar ' Verificar es la etiqueta en caso de error ... esa aparece

'pero en esa haces un GO TO 1
Verificar:
If Error = "El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual." Then
GoTo 1 ' esta no existe

Saludos
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
Imágen de perfil de Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Leonardo (5 intervenciones) el 14/01/2015 18:21:29
Ok muchas gracias amigo Andres, pero como la colocaria entonces?
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
Imágen de perfil de Andres Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Andres Leonardo (698 intervenciones) el 14/01/2015 19:07:14
ELimina la etiqueta y solo muetra el error
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
Imágen de perfil de Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Leonardo (5 intervenciones) el 14/01/2015 20:11:25
Nada aun, persiste el error.
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
Imágen de perfil de Andres Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Andres Leonardo (698 intervenciones) el 15/01/2015 00:23:48
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub cmdAgregar_Click()
On Error GoTo Verificar
Conectar
Dim micom As ADODB.Command
Set micom = New ADODB.Command
micom.CommandType = adCmdText
Set RG = New ADODB.Recordset
SQL = "SELECT * FROM TBESTUDIANTES"
RG.Open SQL, cn, adOpenDynamic, adLockOptimistic
VAR1 = Me.txtCI.Text
VAR2 = Me.txtApe.Text
VAR3 = Me.txtNom.Text
VAR4 = Me.txtDir.Text
VAR5 = Me.mskTLF.Text
VAR6 = Me.cldFN.Day
VAR7 = Me.cldFN.Month
VAR8 = Me.cldFN.Year
VAR9 = VAR6 & "/" & VAR7 & "/" & VAR8
RG.MoveFirst
Do While RG.EOF = False
bu = RG!CI
If bu = Me.txtCI.Text Then
MsgBox "ESTE USUARIO YA SE ENCUENTRA REGISTRADO", vbCritical, "Error de Redundancia de datos"
cmdLimpiar_Click
Bloquear_Estu
Exit Sub
End If
RG.MoveNext
If RG.EOF = True Then
micom.CommandText = "Insert into TBESTUDIANTES (CI, APE, NOM, DIR, TLF,FNAC) values ('" & VAR1 & "', '" & VAR2 & "', '" & VAR3 & "', '" & VAR4 & "', '" & VAR5 & "', '" & VAR9 & "')"
micom.ActiveConnection = cn
micom.Execute
Set micom = Nothing
MsgBox "Registros Guardados"
cmdLimpiar_Click
Bloquear_Estu
Me.txtCI.SetFocus
Exit Sub
End If
Loop
RG.Close
Desconectar
Exit Sub
Verificar:
MsgBox "Imposible realizar accion por favor consulte manual del sistema"
cmdLimpiar_Click
Bloquear_Estu
Exit Sub
End Sub
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
Imágen de perfil de Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Leonardo (5 intervenciones) el 15/01/2015 00:28:14
Muchas gracias amigo Andres. me resulto muy bien..
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
Imágen de perfil de andres leonardo

Error de Compilacion: Etiqueta no definida

Publicado por andres leonardo (698 intervenciones) el 15/01/2015 01:20:28
Que bueno saludos cordiales desde Ecuador.
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
Imágen de perfil de Leonardo

Error de Compilacion: Etiqueta no definida

Publicado por Leonardo (5 intervenciones) el 15/01/2015 04:25:25
Saludos desde Venezuela.!!
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