بحث وفرز

[mostafa2500]

السلام عليكم اخوانى الكرام وكل عام وانتم بخير

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

ملحوظة / لم اقصد مربع تحرير وسرد

هذا كود خاص بـ http ( <input name="ctl00$FeaturedContent$FormView1$txtName" type="text" id="FeaturedContent_FormView1_txtName" class="input">) وهى الفكرة التى جعلتى اتمنى ان تطبق على حقل نموذج اكسس

test.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

هذا الموضوع سيفيدك ان شاء الله

تحياتي

[mostafa2500]

شكرا لمتابعة حضراتك استاذنا محمد أبو بد الله

أخي الفاضل المقصود عند كتابة الاسم في حقل الاسم بالنموذج تظهر الأسماء المسجلة من قبل من بداية كتابة الحرف الأول وليس كما تفضلت مشكور بالموضوع البحث مثل جوجل

ولو يجوز لى ارسال رابط لنفس الموضوع فى منتدى اخر يوضح المطلوب اكون شاكرا لحضرتك

[mostafa2500]

عذرا عند كتابة اسم وليكن ( أحمد عبد الوهاب محمد ) فى حقل الاسم بالنموذج وتم تسجيله وبعدها عند تسجيل سجل جديد وفى خانة الاسم أيضا وعند كتابة حرف ( أ ) يظهر مربع حوار به كل ما هو مسجل بحرف الالف ومنها كالمثال السابق ( أحمد عبد الوهاب محمد ) وذلك لتوضيح انه سجل من قبل فى هذا الحقل ... أرجو ان اكون اوضحت فأجزت وشكرا

[محمد أبوعبدالله]

في ٤‏/٨‏/٢٠٢٠ at 23:14, mostafa2500 said:

ملحوظة / لم اقصد مربع تحرير وسرد

وما المشكلة ان يكون مربع تحرير وسرد

انظر الى الكود التالي

Private Sub XName_NotInList(NewData As String, Response As Integer)

   Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!XName
   
   If MsgBox(" الاسم " & " / " & _
   Me.XName.Text & " / ليس ضمن القائمة هل تريد إضافته ", _
      vbOKCancel, "officena") = vbOK Then
      
      Response = acDataErrAdded
      
      strSQL = "INSERT INTO  a(الاسم) VALUES('"
      strSQL = strSQL & NewData & "');"
      
      CurrentDb.Execute strSQL
      
      MsgBox "تمت الاضافة ", , "officena"
   Else
      Response = acDataErrContinue
      ctl.Undo
   End If
   
End Sub

test7.rar

تحياتي

[mostafa2500]

اولا : بارك الله فيك على الشغل الرائع لذا وجب الشكر

ثانيا : ارجو من حضرتك لو امكن عدم اظهار الرسائل التى تفيد بأنه الاسم ليس من ضمن القائمة وأيضا رسالة تمت أضافته لو امكن وتحياتى لك

[محمد أبوعبدالله]

تفضل اخي الكريم

   Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!XName
      
      Response = acDataErrAdded
      
      strSQL = "INSERT INTO  a(الاسم) VALUES('"
      strSQL = strSQL & NewData & "');"
      
      CurrentDb.Execute strSQL

test7.rar

تحياتي

[mostafa2500]

ملحوظة / عند تسجيل اسم والانتقال لسجيل جديد تم الذهاب للجدول فلاحظت انه تم تكرار الاسم مرة اخرى تلقائيا

[محمد أبوعبدالله]

تفضل اخي الكريم

test7.rar

تحياتي

[mostafa2500]

لك منى كل الشكر اخى واعذرنى تعبتك معى وتحياتى لشخص الكريم

[محمد أبوعبدالله]

الان, mostafa2500 said:

لك منى كل الشكر اخى واعذرنى تعبتك معى وتحياتى لشخص الكريم

جزاك الله خيرا اخي الكريم وبالتوفيق يا رب

تحياتي