Predmet:Re: Kopiranje sa forme u tabelu
Evo ti jedno riješenje
1. Textbox nazovi ( ja sam u svojoj funkciji ) ex001 ,ex002 ,ex003 ,
znaši naziv boxa je ex001 a izvor podataka je KB010
i tako za svaki texbox koji želiš da se ažurira
onda napravi button i smjest na click
Dim ctl As Control
Dim SQLST As String, FILT As String
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
FILT = Right(ctl.Name, Len(ctl.Name) - 2)
If Left(ctl.Name, 2) = "ex" Then
SQLST = "UPDATE Table1 SET Table1.[kolona 5] =" & ctl & " WHERE (((Table1.[kolona 4])=" & """" & FILT & """" & "));"
DoCmd.RunSQL SQLST
End If
End If
Next ctl
I uživaj