Bucle recorrer tabla
Publicado por Miguel (29 intervenciones) el 09/11/2014 11:42:48
Hola, en un formulario continuo tengo dos campos (Fuente y elLink), necesito recorrer uno de ellos y poner los datos modificados en el otro campo. Tengo un código que lo hace sólo para uno, cómo podría hacerlo para que con un bucle lo haga para todos los registros? El código es:
Private Sub Comando12_Click()
Dim elTexto As String
Dim elCaracter As String
Dim largoTexto As Long
Dim i As Long, j As Long
elTexto = Nz(Me.Fuente.Value, "")
If elTexto = "" Then Exit Sub
largoTexto = Len(elTexto)
For i = 1 To largoTexto
elCaracter = Mid(elTexto, i, 1)
If elCaracter = "#" Then
j = j + 1
Exit For
Else
j = j + 1
End If
Next i
Me.elLink.Value = Right(elTexto, (largoTexto - j))
End Sub
Private Sub Comando12_Click()
Dim elTexto As String
Dim elCaracter As String
Dim largoTexto As Long
Dim i As Long, j As Long
elTexto = Nz(Me.Fuente.Value, "")
If elTexto = "" Then Exit Sub
largoTexto = Len(elTexto)
For i = 1 To largoTexto
elCaracter = Mid(elTexto, i, 1)
If elCaracter = "#" Then
j = j + 1
Exit For
Else
j = j + 1
End If
Next i
Me.elLink.Value = Right(elTexto, (largoTexto - j))
End Sub
Valora esta pregunta
0
