How do I input a value in a field box one at a time with one button?

[Alphix]

How do I input a value in multiple field boxes one at time using one button at click?



I am not able to code it to recognize an empty field box.

Is there a way???

Thanks

[ranman256]

Treat the attachment field as a recordet

Private Sub btnAddAt_Click()
Dim rst   'As Recordset
Dim rst2Att
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Contacts WHERE (((Contacts.ID)=2))")
 rst.Edit
 
 Set rst2Att = rst.Fields("Attachments").Value
    ' Add a new attachment.
   rst2Att.AddNew
   rst2Att.Fields("FileData").LoadFromFile "\\server\folder\spiderman.png"
   rst2Att.Update
 
rst.Updat
rst.Close
Set rst = Nothing
Set rst2Att = Nothing
End Sub