كود لفتح النموذج على سجل رقم 18

[غرام العقول]

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

إخوتي الأحباب في هذا المنتدى الرائع, واجهتني مشكلة في برنامجي وهي أنني أريد أن أجعل البرنامج ينتقل إلى سجل معين أثناء حدث معين, وليكن عند الفتح, وهذا السجل ليس التالي ولا السابق ولا الأخير ولا الأول, فأرجو ممن لديه الخبرة أن يفيدني بالكود الذي يقوم بالانتقال إلى سجل معين وليكن السجل رقم 18 أو 25 مثلاً ولكم الشكر.

[Bluemind]

اخوي

تم عمل المطلوب حسب طلبك بالرغم من غموض الهدف منه

تم وضع الكود التالي في حدث on load او عند التحميل وتم تحديد رقم العميل با 18 على سبيل المثال

Private Sub Form_Load()

 Dim varID As Variant

    Dim strDelim As String

    varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18")

    If IsNumeric(varID) Then

        With Me.RecordsetClone

            .FindFirst "[CustomerID] = " & strDelim & varID & strDelim

            If Not .NoMatch Then

                Me.Bookmark = .Bookmark

            End If

        End With

    End If


End Sub

طبعا يمكن تغير رقم العميل من الكود اعلاه وتحديدا من سطر الكود

 varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18")

شوف المرفق و ان شاء الله يكون المطلوب

Open Record.zip

[غرام العقول]

اخوي

تم عمل المطلوب حسب طلبك بالرغم من غموض الهدف منه

تم وضع الكود التالي في حدث on load او عند التحميل وتم تحديد رقم العميل با 18 على سبيل المثال

Private Sub Form_Load()

 Dim varID As Variant

    Dim strDelim As String

    varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18")

    If IsNumeric(varID) Then

        With Me.RecordsetClone

            .FindFirst "[CustomerID] = " & strDelim & varID & strDelim

            If Not .NoMatch Then

                Me.Bookmark = .Bookmark

            End If

        End With

    End If


End Sub

طبعا يمكن تغير رقم العميل من الكود اعلاه وتحديدا من سطر الكود

 varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18")

شوف المرفق و ان شاء الله يكون المطلوب

بارك الله فيكم أستاذي العزيز, والله لقد حصلت منكم على فائدة عظيمة, بالرغم من أن هذا لم يكن مطلوبي, لكنني كنت أبحث عن مثل هذا الكود لشئ آخر, فجزاكم الله خيراً. بالنسبة للمطلوب من السؤال فقد أجابني عليه أحد الإخوة في منتدىً آخر, وهو هذا الكود:

DoCmd.GoToRecord, , , 18

فشكراً لاستجابتكم لي, وتعبكم معي, جعله الله في ميزان حسناتكم .. آمين