كود بحث عن اسم يحتاج الى تعديل

[حمدى الظابط]

السلام عليكم

اولا / يوجد بالنموذج مربع تص غير منضم وعندالبحث عن اسم يكون فى مشكلة فى الكود

وشكرا مقدما

رسائل.rar

[حمدى الظابط]

اعتذر تم ارسال ملف خطأ وهذا هو الملف الذى يتم التعديل عليه

 

رسائل.rar

تم تعديل ديسمبر 1, 2022 بواسطه حمدى الظابط

[سامي الحداد]

تفضل اخي حمدي التعديل

Private Sub Combo18_AfterUpdate()

'    ' Find the record that matches the control.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[phone_number] = '" & Str(Nz(Me![Combo18], 0)) & "'"
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

 

[حمدى الظابط]

2 ساعات مضت, سامي الحداد said:

تفضل اخي حمدي التعديل

Private Sub Combo18_AfterUpdate()

'    ' Find the record that matches the control.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[phone_number] = '" & Str(Nz(Me![Combo18], 0)) & "'"
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

 

الغالى والمحترم بزيادة

الكود يعمل بكفاءة 100% ولك جزيل الشكر

ولكن هل ممكن بعد البحث وايجاد الاسم فى السجل تظهر الرسالة الخاصة به فى مربع النص الغير منضم ( يعنى ربط السجل مع مربع نص الرسائل بعد البحث)

تم تعديل ديسمبر 1, 2022 بواسطه حمدى الظابط

[حمدى الظابط]

للرفع

[سامي الحداد]

19 ساعات مضت, حمدى الظابط said:

ولكن هل ممكن بعد البحث وايجاد الاسم فى السجل تظهر الرسالة الخاصة به فى مربع النص الغير منضم ( يعنى ربط السجل مع مربع نص الرسائل بعد البحث)

ما هي الفائدة من ربط الرسالة بمربع النص وبما انك تستخدم مربع النص لامر اخر فلا ارى اي ضروره لعمل هذا .. مجرد رأي

على العموم عدلت قليلا على ملفك لانه كان هناك اشاكلية في حقل التلفون , جرب هذا التعديل

تحياتي

تعديل رسائل.mdb

[حمدى الظابط]

4 ساعات مضت, سامي الحداد said:

ما هي الفائدة من ربط الرسالة بمربع النص وبما انك تستخدم مربع النص لامر اخر فلا ارى اي ضروره لعمل هذا .. مجرد رأي

على العموم عدلت قليلا على ملفك لانه كان هناك اشاكلية في حقل التلفون , جرب هذا التعديل

تحياتي

تعديل رسائل.mdb 408 kB · 2 downloads

السلام عليكم وجمعة مباركة علي حضرتك وعلى الاسرة الكريمة

فائدة ربط مربع النص بالسجل

اولا فى الرسالة الفردية اذا فرضنا ان الرسالة طالت غن مدى وسع الحقل بانموذج واريد رؤية الرسالة كاملة قبل الارسال او مرجعتها قبل الارسال اذا الرؤية فى مربع النص تكون افضل واوضح

ثانيا / اذا ارد ان اكتب رسالة جماعية واعممها على كل السجلات فيكون كتبتها افصل فى مربع النص

وهنا يخطر فى ذهنى سؤال لانى ليس لديا خبره كافيه فى كتابة الاكواد واتمنى المساعدة اذا الفكرة اعجبتك

فى حالة الرسالة الجماعية يتم وضع زر فى النموذج عند الضعط عليه ينسخ تلقائيا الرسالة من مربع النص الى كل سجلات النموذج

وبذلك يكون مربع النص هو المتحكم فى الارسال سواء كان رسالة فردية او رسالة جماعية لذلك اردن الربط بين مربع النص وبين السجل

فارجو مرجعة الاكواد الخاصة بالارسال على ان يأخذ كود الارسال من مربع النص 

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