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