unforgiven
یک شنبه 14 مرداد 1386, 19:25 عصر
سلام دوستان
من نیاز دارم که فیلد یک جدول رو بر اساس یک پارامتر پر کنم
من می خوام فیلد id_num رو با کلیک کردن بر روی دکمه افزودن از 1 تا 50 پر کنم . البته فقط با یکبار کلیک کردن .
کد زیر این کارو انجام میده ولی یه مشکل داره . اونم اینه که 50 تا رکورد می سازه ولی تو همشون 50 می نویسه . حالا من می خوام که از 1 تا 50 رو تو هر رکورد بنویسه . ضمنا من یه تکست باکس دارم که عدد پایه داخل اون نوشته میشه .
کد :
Private Sub Command1_Click()
Dim i As Integer
'If addFlag Then
For i = 1 To Val(Text1.Text)
clos.AddNew
rs!id_num = Val(Text1.Text)
' addFlag = False
rs.Update
rs.Fields.Refresh
Next i
End Sub
ضمنا یه سوال هم داشتم . آیا این جور وارد کردن رکورد مشکل ساز نخواهد شد . و اگه راه دیگه ای به نظرتون می رسه لطفا بگید .
پیشاپیش متشکرم
من نیاز دارم که فیلد یک جدول رو بر اساس یک پارامتر پر کنم
من می خوام فیلد id_num رو با کلیک کردن بر روی دکمه افزودن از 1 تا 50 پر کنم . البته فقط با یکبار کلیک کردن .
کد زیر این کارو انجام میده ولی یه مشکل داره . اونم اینه که 50 تا رکورد می سازه ولی تو همشون 50 می نویسه . حالا من می خوام که از 1 تا 50 رو تو هر رکورد بنویسه . ضمنا من یه تکست باکس دارم که عدد پایه داخل اون نوشته میشه .
کد :
Private Sub Command1_Click()
Dim i As Integer
'If addFlag Then
For i = 1 To Val(Text1.Text)
clos.AddNew
rs!id_num = Val(Text1.Text)
' addFlag = False
rs.Update
rs.Fields.Refresh
Next i
End Sub
ضمنا یه سوال هم داشتم . آیا این جور وارد کردن رکورد مشکل ساز نخواهد شد . و اگه راه دیگه ای به نظرتون می رسه لطفا بگید .
پیشاپیش متشکرم