كثيرا مانكون بحاجة إلي إدخال قيمة في حقل أو أكثر من حقول النموذج بصورة متكررة مع كل سجل جديد يتم إدخال بياناتة وهذة طريقة مبسطة لهذة العملية وهي إدخال قيمة الي حقل غير منضم في النموذج ثم نقل هذة القيمة الي حقل يتم تحديدة من قبل المستخدم ومن ثم حفظ البيانات المدخلة الي الجدول
ومن الممكن تكرار ذلك علي أكثر من حقل في النموذج بنفس الطريقة والتعديل في الكود حسب إحتياجات المستخدم
هذا الكود يوضع لزر الامر
Private Sub أمر30_Click()
On Error GoTo Err_امر30_Click
Call sa
If Me.txtSchool <> "" Then
If Me.txtSector <> "" Then
If MsgBox(" هل تريد حفظ البيانات التي قمت بادخالها", vbYesNo) = vbNo Then
DoCmd.CancelEvent
Me.txtSchool = ""
Me.txtSector = ""
Else
Me.School = Me.txtSchool
Me.Sector = Me.txtSector
DoCmd.GoToRecord , , acNewRec
Me.txtSchool = ""
Me.txtSector = ""
Call sa
End If
Else
End If
End If
Exit_امر30_Click:
Exit Sub
Err_امر30_Click:
MsgBox Err.Description
Resume Exit_امر30_Click
End Sub
_______________________________________________________________
وهذا هو الكود Function يتم استدعاء
Public Sub sa()
Dim strCariedValue As String
If IsNull(txtToAssign) Then
Select Case frame1.Value
Case 1
MsgBox "لاتوجد قيمة بحقل المدرسة", vbOKOnly + vbInformation + vbMsgBoxRight, "ÊäÈíå"
Me.txtSchool.SetFocus
Case 2
MsgBox "لاتوجد قيمة بحقل القطاع", vbOKOnly + vbInformation + vbMsgBoxRight, "ÊäÈíå"
Me.txtSector.SetFocus
End Select
Else
Select Case Me.frame1.Value
Case 1
strCariedValue = Me.txtToAssign
[txtSchool] = strCariedValue
DoCmd.GoToControl "txtsector"
Me.ÃãÑ30.Caption = "اكمل البيانات واحفظ السجل"
Me.ÃãÑ30.ForeColor = 255
Case 2
strCariedValue = Me.txtToAssign
[txtSector] = strCariedValue
DoCmd.GoToControl "txtschool"
Me.ÃãÑ30.Caption = "اكمل البيانات واحفظ السجل"
Me.ÃãÑ30.ForeColor = 255
End Select
End If
End Sub
_____________________________________________________________
وباقي الاحداث من الممكن متابعتها في المثال المرفق وهي أحداث تتعلق بخانات الاختيار
