بحث وفرز

[mostafa2500]

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

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

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

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

test.accdbFetching info...

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

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

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

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

تحياتي

[mostafa2500]

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

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

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

[mostafa2500]

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

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

  في 4‏/8‏/2020 at 21:14, mostafa2500 said:

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

Expand  

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

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

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.rarFetching info...

تحياتي

[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.rarFetching info...

تحياتي

[mostafa2500]

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

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

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

test7.rarFetching info...

تحياتي

[mostafa2500]

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

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

  في 6‏/8‏/2020 at 01:33, mostafa2500 said:

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

Expand  

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

تحياتي