amiralex
شنبه 29 خرداد 1395, 11:33 صبح
با سلام
من یه جدول دارم و یه فرم
در فرمم میخوام با یک حلقه عدد مثلا یک رو در فیلد خاصی قرار بدم
اون فیلد از نوع Number هست
میخوام با این حلقه عدد یک رو وارد این فیلد کنم
اما ارور میده
Dim db As Database
Dim rst As Recordset
Dim StrSQL As String
Dim I As Integer
Dim X As Long
StrSQL = "SELECT * FROM Table1"
Set db = CurrentDb
Set rst = db.OpenRecordset(StrSQL)
rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
For I = 1 To X
rst.Edit
Me.txtMin.Value = 1
rst.Update
rst.MoveNext
Next I
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
Me.Refresh
ارور هم اینه:
You can't assign a value to this object.
اشکال کار کجاست؟
من یه جدول دارم و یه فرم
در فرمم میخوام با یک حلقه عدد مثلا یک رو در فیلد خاصی قرار بدم
اون فیلد از نوع Number هست
میخوام با این حلقه عدد یک رو وارد این فیلد کنم
اما ارور میده
Dim db As Database
Dim rst As Recordset
Dim StrSQL As String
Dim I As Integer
Dim X As Long
StrSQL = "SELECT * FROM Table1"
Set db = CurrentDb
Set rst = db.OpenRecordset(StrSQL)
rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
For I = 1 To X
rst.Edit
Me.txtMin.Value = 1
rst.Update
rst.MoveNext
Next I
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
Me.Refresh
ارور هم اینه:
You can't assign a value to this object.
اشکال کار کجاست؟