reza850101
یک شنبه 20 فروردین 1391, 17:04 عصر
با سلام خدمت دوستان
از نمونه برنامه ای برای جمع فیلد های فرمم استفاده کردم بلحاظ اینکه کد نویسی نمیدانم نتوانستم مشکلش را حل کنم من در ستون سابفرمم دستی"*" وارد میکنم اما کدی که در اون لود فرمم نوشتم فقط یکبار عمل کرده و رکودهای بعدی را آ÷دیت نمیکنه اگر ممکنه مشکلم را حل کنید ضمنا برنامه خیلی سنگین بود عکسش را گرفتم و کدی که واردکردمم راآوردم ممنون میشم
Private Sub Form_Load()
Dim i
Dim X
Dim Rst As DAO.Recordset
Dim FldVal
Set Rst = CurrentDb.OpenRecordset("Sheet1")
Rst.MoveFirst
For X = 1 To Rst.RecordCount
FldVal = 0
For i = 1 To 10
If Rst.Fields(i).Value = True Then
FldVal = FldVal + 1
End If
Next i
Rst.Edit
Rst.Fields("FldCount").Value = FldVal
Rst.Update
Rst.MoveNext
Next X
End Sub
از نمونه برنامه ای برای جمع فیلد های فرمم استفاده کردم بلحاظ اینکه کد نویسی نمیدانم نتوانستم مشکلش را حل کنم من در ستون سابفرمم دستی"*" وارد میکنم اما کدی که در اون لود فرمم نوشتم فقط یکبار عمل کرده و رکودهای بعدی را آ÷دیت نمیکنه اگر ممکنه مشکلم را حل کنید ضمنا برنامه خیلی سنگین بود عکسش را گرفتم و کدی که واردکردمم راآوردم ممنون میشم
Private Sub Form_Load()
Dim i
Dim X
Dim Rst As DAO.Recordset
Dim FldVal
Set Rst = CurrentDb.OpenRecordset("Sheet1")
Rst.MoveFirst
For X = 1 To Rst.RecordCount
FldVal = 0
For i = 1 To 10
If Rst.Fields(i).Value = True Then
FldVal = FldVal + 1
End If
Next i
Rst.Edit
Rst.Fields("FldCount").Value = FldVal
Rst.Update
Rst.MoveNext
Next X
End Sub