Carlos
19 de Enero del 2005

Hola Foro. Tengo un bucle simple (en realidad es mas complicado, pero lo he reducido para buscar el error) que me da el error 'Next sin For' y no se porqué. Se os ocurre algo? Gracias! Es este:
Private Sub cmdAddTabla_Click(Index As Integer)
Set Base = OpenDatabase("Test.mdb")
Dim Nombre_tabla As String
Dim N As Integer
For N = 0 To Base.TableDefs.Count - 1
If Base.TableDefs(N).Attributes = 0 Then

'Guardar en una variable el nombre de la tabla
Nombre_tabla = Base.TableDefs(N).Name
If Nombre_tabla = Text1(0).Text Then
MsgBox "Igual"
Else
MsgBox "Distinto"
End If
Next N
End Sub

l_island
19 de Enero del 2005

Identar el código es una buena costumbre que ayuda muchísimo a la hora de localizar errores de este tipo, fíjate en los ?????, ¿que es lo que falta?

Private Sub cmdAddTabla_Click(Index As Integer)
Set Base = OpenDatabase("Test.mdb")
Dim Nombre_tabla As String
Dim N As Integer

For N = 0 To Base.TableDefs.Count - 1
If Base.TableDefs(N).Attributes = 0 Then

'Guardar en una variable el nombre de la tabla
Nombre_tabla = Base.TableDefs(N).Name
If Nombre_tabla = Text1(0).Text Then
MsgBox "Igual"
Else
MsgBox "Distinto"
End If

??????

Next N
End Sub

Saludos!!
l_island

mamerto
19 de Enero del 2005

Exacto. todo lo que abras cierralo.