selsct a field of table

[yousef]

I want to change field name or select other feild of tanle in modules
for example my cod is:
Private Sub Command0_Click()
Dim dbs As Database
Dim rst As Recordset
Dim sql As String
Set dbs = CurrentDb
Dim a As Integer
Dim taj As Integer
sql = "select * from Table1 "
Set rst = dbs.OpenRecordset(sql)

Do While Not rst.EOF
taj = Nz(rst!Field1) <<=======
rst.Edit
rst!a1 = taj
rst.Update
rst.MoveNext
Loop
rst.Close
End Sub



taj = Nz(rst!Field1) <=========
I want to change field name â€taj = Nz(rst!Field1)
†for example taj = Nz(rst!FieldName)
Dim a as Integer
a=1
If …. Then
FieldName= “Field†& a ===>> Field1
else
FieldName= “Field†& a+1 ===>> Field2
Please help me.
Please


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...-a3f1-38de29bbb34f&dg=microsoft.public.access