|4| فتح النموذج عند أخر سجل تم إضافته أو تعديله

**ابن مسقط** · يوليو 12, 2003

السلام عليكم ورحمة الله وبركاته

نفرض أنك تشتغل على نموذج بصورة شبه يوميه وتريد عندما تفتح النموذج أن يعود بك إلى أخر سجل قمت بإدخاله أو تعديله .

المثال التالي يحل المشكله ان شاء الله وهو يعتمد على نموذج يحتوي على حقل ترقيم تلقائي فريد باسم ( CustomerID )

الشـــرح:-

أولاً : أنشىء جدول باسم "tblSys" يتكون من الثلاث حقول التالية :

Variable (حقل نصي حجمه 20 حرف)

Value (حقل نص حجمه 80 حرف)

Description (حقل نص حجمه 255 حرف)

ثانياً: ضع الكود التالي في حدث عند إلغاء التحميل للنموذج المراد إستخدامه

Sub Form_Unload (Cancel As Integer)

  Dim rs As DAO.Recordset


  If Not IsNull(Me.CustomerID) Then

    Set rs = CurrentDb().OpenRecordset("tblSys", dbOpenDynaset)

    With rs

      .FindFirst "[Variable] = 'CustomerIDLast'"

      If .NoMatch Then

        .AddNew

          ![Variable] = "CustomerIDLast"

          ![Value] = Me.CustomerID

          ![Description] = "Last customerID, for form " & Me.Name

        .Update

      Else

        .Edit

          ![Value] = Me.CustomerID

        .Update

      End If

    End With

    rs.Close

  End If

  Set rs = Nothing

End Sub

ثالثاً: ضع الكود التالي في حدث عند التحميل للنموذج المراد إستخدامه

Sub Form_Load()

  Dim varID As Variant


  varID = DLookup("Value", "tblSys", "[Variable] = 'CustomerIDLast'")

  If IsNumeric(varID) Then

    With Me.RecordsetClone

      .FindFirst "[CustomerID] = " & varID

      If Not .NoMatch Then

        Me.Bookmark = .Bookmark

      End If

    End With

  End If

End Sub

ملاحظة: أضف المرجع DAO 3.6 إلى قائمة المراجع لديك في القاعدة لكي تعمل القاعدة بالشكل المطلوب.

للإستيضاح مرفق مثال على ذلك.

والله الموفق

(المرجع أحد المواقع الأجنبية)

Last_update_Recorde.zip