ماهي طريقة تحديد الاسم الاول في القائمة

[rey360]

السلام عليكم أعضاء المنتدى الكرام أريد طريقة لتحديد أوتماتكيا الاسم الاول في القائمة بحيث عند النقر على ايقونة البحث والضغط valider يختار الاسم الاول مباشرة عند القيام بالبحث أو بدونه وشكرا 

test.accdb

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

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

اخي الكريم للبحقث بالاسم استخدم الكود التالي

    mySQL = "Select * From Clients"
    'بحث nomComplet
    mySQL = mySQL & " WHERE nomComplet = '" & Me.Texte2.Value & "'"
    Me.txtliste3.RowSource = mySQL
    Me.txtliste3.Requery

للبحث بالرقم استخدم الكود التالي

    mySQL = "Select * From Clients"
     'بحث idClient
    mySQL = mySQL & " WHERE idClient = " & Me.Texte2.Value
    Me.txtliste3.RowSource = mySQL
    Me.txtliste3.Requery

test(5).rar

تحياتي

[rey360]

أستاذ محمد ابوعبد الله أنت لم تفهم سألي أنا لا أريد البحث انما أريد عند الضغط على valider بدون تحديد الاسم من القائمة يحدد الاسم الاول

 

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

8 دقائق مضت, rey360 said:

انما أريد عند الضغط على valider بدون تحديد الاسم من القائمة يحدد الاسم الاول

هل تقصد يقوم بتحديد الاسم الاول في القائمة فقط ؟

 

تم تعديل يناير 2, 2020 بواسطه محمد ابوعبد الله

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

انتظرت ردك اخي الكريم

فان كنت تقصد تحديد الاسم الاول في القائمة عن الضغط على الزر فاليك الامر التالي

Me.txtliste3.Selected(0) = True

تحياتي

[rey360]

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

ما أريده هو عند الضغط 

ثم عند الضغط على valider بدون اختيار الاسم 

يضهرلي الاسم الاول على القائمة في فورم f_chercherclient

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

تمام ان شاء الله

يكفيك ان تضع هذا الامر فقط

Texte2 = Me.txtliste3.Column(1)

تحياتي

[rey360]

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

 

[rey360]

أرجو من أساتذة الكرام أن يساعدونا أريد استبدال التحديد اليدوي في قائمة الاسماء txtliste3 بتحديد أوتوتيكي بشرط أن يكون الاسم الذي في أعلى القائمة 

كما أنا زر valider به هذا الكود 

On Error Resume Next
      Dim db As DAO.Database
      Dim rs As Recordset
      Set db = CurrentDb
      Set rs = db.OpenRecordset("SELECT * FROM Clients WHERE idClient=" & Me.txtliste3, dbOpenDynaset)
      If Not rs.EOF Then rs.MoveFirst
      Form_f_historiquefacture.Texte23 = rs!idClient


      rs.Close
      Set rs = Nothing
      db.Close
      Set db = Nothing
DoCmd.Close acForm, Me.Name
DoCmd.Requery

الذي يمكن من الاخذ الاسم المحدد من القائمة txtliste3 الى Texte23 في الفورم f_historiquefacture 

كل ما أريدوه هو أن يتم تحديد الاسم أعلى القائمة أوتماتيكيا بدون الحاجة الى تحديده يدويا وشكرا

تم تعديل يناير 3, 2020 بواسطه rey360

[kha9009lid]

اخي @rey360 اذا كان فهمي لطلبك صحيح فان الاستاذ محمد اعطاك حل صحيح

جرب الملف المرفق

test(5).accdb

[rey360]

شكرا لك أستاذ kha9009lid وشكرا للاستاذ محمد ابوعبد الله على كل ماقمتم به أرجو أن يكون في ميزان حسناتكم 

test(5).accdb

تم تعديل يناير 3, 2020 بواسطه rey360

[kha9009lid]

بالتوفيق اخي والشكر لله سبحانه