ثبت یک فیلد برای چند رکورد بصورت یکباره

[sadegh1944]

با سلام
من یک فرم دارم که از یک سابفرم یک command (دکمه ثبت ) و یک تکس باکس (شماره سند) از نوع unbound تشکیل شده است؛
در سابفرم که داری تعدادی رکورد می باشد کلیه فیلدها بجز یک فیلد (شماره سند) تکمیل شده است حالا من میخواهم با وارد کردن شماره سند در تکس باکس و فشاردادن دکمه ثبت (command ) فیلد شماره سند برای کلیه رکوردهای سابفرم بصورت یکباره ثبت بشه.

[aaa_zarea]

شما مي تونيد در همان دكمه ثبت اين رويدادو اضافه كنيد كه در چند ركورد اضافه كند شما اگه برنامتونو بزاريد من بهتر مي تونم راهنماييتون كنم

[sadegh1944]

نمونه مذكور

[جعفر88]

سلام
يه راه حلي كه به نظر مي رسه استفاده از دستور sql به صورت زير در كد فرمتون هست . البته همان طور كه ميدونيد اين دستور كليه فيلدهايي رو كه در شرط صدق مي كنند به روز ميكنه كه در استفاده از آن بايد محتاط بود و شروط مورد نياز رو حتماً درج كنيد والا تمامي فيلدها رو به روز ميكنه .

Option Compare Database
Private Sub Command1_Click()
Dim strSQL As String
If IsNull(Text1) Or Text1 = "" Then
MsgBox "لطفا شماره سند را وارد كنيد"
Text1.SetFocus
ElseIf Forms!form1!subform1!sabt = 0 Then
strSQL = "UPDATE Table1 SET sanad=" & Text1 & ",sabt=1 " & _
"WHERE (((sanad Is Null) Or sanad="""") And sabt=0);"
'Forms!form1!subform1!Sanad = Me.Text1
'Forms!form1!subform1!sabt = 1
DoCmd.RunSQL strSQL
Me.subform1.Requery
End If
End Sub

[karmand]

Private Sub Command1_Click()
Dim strsql As String

If IsNull(Text1) Or Text1 = "" Then
MsgBox "ÔãÇÑå ÓäÏ ÑÇ æÇÑÏ äãÇííÏ"
Text1.SetFocus
Else
strsql = "UPDATE Table1 SET sabt = 1 , Table1.sanad ='" & Me.Text1 & "' WHERE (((Table1.sabt)=0));"
MsgBox (strsql)
DoCmd.RunSQL strsql
DoCmd.Requery
Me.subform1.Requery


End If
End If
End Sub

[sadegh1944]

Private Sub Command1_Click()
Dim strsql As String

If IsNull(Text1) Or Text1 = "" Then
MsgBox "ÔãÇÑå ÓäÏ ÑÇ æÇÑÏ äãÇííÏ"
Text1.SetFocus
Else
strsql = "UPDATE Table1 SET sabt = 1 , Table1.sanad ='" & Me.Text1 & "' WHERE (((Table1.sabt)=0));"
MsgBox (strsql)
DoCmd.RunSQL strsql
DoCmd.Requery
Me.subform1.Requery


End If
End If
End Sub

ضمن تشکر از کدهای فوق؛
من یک فیلد دیگر به جدول بنام tarikhsanad اضافه و text2 را نیز به فرم اضافه کردم و میخواهم مثل روش قبلی با فشردن دکمه ثبت فیلد sanad و tarikhsanad همزمان از text1 و text2 در فرم ثبت و رکوردهای ثبت شده از اون حذف بشه.
هر کاری کردم نتونستم برای فیلد تاریخ سند مثل فیلد سند اینکارو انجام بدم