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?
1 respuesta
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
