Is it possible to have a query do this?

[Emmy]

The following is a table:

row 1: 6/15/2001
row 2:
row 3:
row 4:
row 5:
row 6: 6/16/2001
row 7:
row 8:
row 9:
row 10:

(rows 2 to 5 and 7 to 10 are blank)

Is it possible to write a query such that it fills rows 2 to 5 with "6/15/2001" and rows 7 to 10 with "6/16/2001"?

Thanks so much!

 

[simongallop]

Don't know about a query but:

Dim MyRS as recordset
Dim Field1Cont
Set MyRS = CurrentDB.OpenRecordset("MyTableName")
MyRS.MoveFirst
Field1Cont = MyRS("NameofField1")
MyRS.MoveNext
Do
If IsNull(MyRS("NameofField1")) = True then
MyRS.Edit
MyRS("NameofField1") = Field1Cont
MyRS.Update
else
Field1Cont=MyRS("NameofField1")
End if
MyRS.MoveNext
Loop Until MyRS.EOF = True
MyRS.Close


Ought to work

HTH

 

[Andy D]

Create a new query and add all fields from you table
Change the query to an update query: From the menu bar choose ‘Query’ - ‘Update Query’
In the ‘update to’ row for fields 2,3 & 4 put [row1]
In the ‘update to’ row for fields 7,8,9 & 10 put [row6]