Do while y update como guardar datos en access?
Dim A As Byte
A = 1
Do While A < 15
CurrentDb.Execute "Update ASIG" & _
" Set FOL_FILIACION= '" & Me.Controls("FOL" & A) & "', " & _
" CCT1= '" & Me.Controls("ct" & A) & "' " & _
" Where ID_PLAZA = " & Me.Controls("i" & A) & ""
A = A + 1
Loop
End Subhola tengo el código anterior
en mi formulario tengo varios cuadros de texto
fol1, fol2, fol3 .... Hasta fol15
lo mismo pasa con el campo ct ye i
ct1, ct2, ct3, etc
i1, i2, i3.....i15
En mi formulario tengo varios registros
I1 - fol1 - ct1 - que son los datos de mi tabla asig (id_plaza, fol_filiacion, cct1)
Lo que estoy intentando es editar
Pero no me reconoce el i1, i2, etc que son los id de mi tabla
¿Cómo debería de quedar mi consulta para editar?
Respuesta de Eduardo Pérez Fernández
Pruebe con esto
Dim A As Byte
For A=1 To 15
CurrentDb.Execute "Update ASIG" & _
" Set FOL_FILIACION= '" & Me.Controls("FOL" & A) & "', " & _
" CCT1= '" & Me.Controls("ct" & A) & "' " & _
" Where ID_PLAZA = " & A) & ""
Next A
End Sub
