daha sonra formun Current olayına aşağıdaki kodu yazın.
Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim i As Integer
Dim ctlr As Control
Set rs = CurrentDb.OpenRecordset("tbl_urun")
For Each ctlr In Me.Controls
If TypeOf ctlr Is TextBox Then
For i = 0 To ctlr.Controls.Count
On Error Resume Next
ctlr.Value = rs!urunadi
rs.MoveNext
Next i
End If
Next
End Sub
eğer yukarıdan aşağı sıralamak isterseniz MoveNext, MovePrevious komutlarıyla ayarlamalar yapın.