how to iterate records of a form in datasheet

[zeta]

Hi, this is what I'm doing:

1 - create a table [2 fields], let's call it "greetings". Populate it with 5 records:

field1 , field 2
==========================
hi , bye
hola , adios
hein , struchtlicht
bon jour, au revoir
hallo , ha det

2 - create a form with the datasheet default view

3 - Whenever i add a new record (using the form), i want to write a sub that displays a msgbox with the values of field 1. (hi, hola, hein, bon jour, hallo)

I've tried different stuff with recordsets but i all get are errors.

Thanks

[ADezii]

1. Assuming your Form is based on a Table named tblGreetings with 2 Fields:
   1. [Field1] {TEXT}
   2. [Field2] {TETXT}
2. Your Form consists of at least 2 Fields whose Control Sources are : [Field1] and [Field2].
3. In the AfterUpdate() Event of your Form, place the following Code:
   

   Private Sub Form_AfterUpdate()
   Dim MyDB As DAO.Database
   Dim rst As DAO.Recordset
   Dim strBuild As String
    
   Set MyDB = CurrentDb
   Set rst = MyDB.OpenRecordset("tblGreetings", dbOpenForwardOnly)
    
   With rst
     Do While Not .EOF
       strBuild = strBuild & ![Field1] & ", "
         .MoveNext
     Loop
   End With
    
   If strBuild <> "" Then MsgBox Left$(strBuild, Len(strBuild) - 2)
    
   rst.Close
   Set rst = Nothing
   End Sub
    

4. OUTPUT (String in Msgbox() after adding a New Record):
   

   hi, hola, hein, bon jour, hallo, New Field1 Value

[zeta]

thanks for your answer.

[ADezii]

You are more than welcome.