طريقة ربط كمبوبوكس بمربعين نص

[طارق عبد الرازق]

السلام عليكم 

الأساتذة أعضاء المنتدي المحترمين .. إحترامي وتحياتي للجميع 

وكل عام وحضراتكم بخير 

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

وكنت أريد عند أختيار أسم الشركة من الكمبوبوكس يظهر ليا الرقم الضريبي والعنوان 

وشكراً ..

Test.mdb

[عمر ضاحى]

هل هذا ما تريد ؟

 

برجاء اذا كان هذا ما تريد اختيار افضل اجابه ^_^

 

لشرح ما تم 

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

اضفت هذا الكود 

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("companies", dbOpenDynaset)
With rst
    .FindFirst Criteria:="[م]=" & Text74
    If Not .NoMatch Then
    Combo76 = ![الرقم الضريبي]
    Text82 = ![العنوان]
    End If
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

 

وتم التعديل على مصدر بيانات الكمبوبوكس لاحضار رقم المعرف وتم اخفائه عن طريق جعل مساحته 0 وباقى المساحه للسماء الشركات (طبعا تم تعديل عدد الاعمدة الى 2)

 

 

نصيحه لك (مهمه جدا جدا)

حاول الا تجعل اسماء الحقول فى الجداول بالعربي ^_^

 

 

Test_S7.mdb

تم تعديل يونيو 25, 2022 بواسطه عمر ضاحى

[ابوبسمله]

السلام عليكم

مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا

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

Private Sub Text74_AfterUpdate()
    Combo76 = Me.Text74.Column(1)
    Text82 = Me.Text74.Column(2)
End Sub

بالتوفيق

Test.mdb

[Eng.Qassim]

وعليكم السلام

في مثل هذه الحالات نستخدم دالة Dlookup للسهولة

 

TestCOMP.rar

[ابوبسمله]

3 دقائق مضت, Eng.Qassim said:

وعليكم السلام

في مثل هذه الحالات نستخدم دالة Dlookup للسهولة

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

جزاكم الله عنا كل خير

[Eng.Qassim]

5 دقائق مضت, احمد الفلاحجي said:

ببساطه قمت باضافه البيانات المطلوبه للكمبو ثم استدعائها

احسنت استاذي

لا اعلم لماذا نفكر بالحلول الصعبة ..مع ان هناك حلول ابسط 😄

2 دقائق مضت, احمد الفلاحجي said:

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

هل تعلم استاذ احمد باني كنت اعملها بداية تعلمي الاكسس ...الظاهر نسيتها مع الزمن

[ابوبسمله]

4 دقائق مضت, Eng.Qassim said:

لا اعلم لماذا نفكر بالحلول الصعبة ..مع ان هناك حلول ابسط 😄

عن نفسى لجهلى باشياء كثيره فكنت استخدم ما اتعلمه واوظفه فيما اريد ان افعله وعندما اتعلم شىء جديد ويسهل الامور علي بعتمد ع الاسهل والايسر

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

7 دقائق مضت, Eng.Qassim said:

احمد باني كنت اعملها بداية تعلمي الاكسس ...الظاهر نسيتها مع الزمن

النسيان شىء وارد وطبيعى ونحمد الله على كل حال ربنا يعطيكم الصحه

جزاكم الله عنا كل خير

هو الموقع فيه مشكله ام عندى بس شاشه المحرر فيها مشكله الجزء الخاص بالتنسيقات غير ظاهر عندى ؟

[Eng.Qassim]

3 دقائق مضت, احمد الفلاحجي said:

فيه مشكله ام عندى بس شاشه المحرر فيها مشكله الجزء الخاص بالتنسيقات غير ظاهر عندى ؟

نعم هذه المشكلة ظهرت عندي قبل فترة ..لكنها بعد فترة اعيدت التنسيقات

[ابوبسمله]

3 ساعات مضت, Eng.Qassim said:

نعم هذه المشكلة ظهرت عندي قبل فترة ..لكنها بعد فترة اعيدت التنسيقات

الحمد لله اتظبط دلوقتى 💐