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

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

السلام عليكم 

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

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

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

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

وشكراً ..

Test.mdbFetching info...

[عمر ضاحى]

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

 

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

 

لشرح ما تم 

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

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

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

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

[أبوبسمله]

السلام عليكم

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

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

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

بالتوفيق

Test.mdbFetching info...

[Eng.Qassim]

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

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

 

TestCOMP.rarFetching info...

[أبوبسمله]

  في 25‏/6‏/2022 at 17:19, Eng.Qassim said:

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

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

Expand  

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

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

[Eng.Qassim]

  في 25‏/6‏/2022 at 17:17, احمد الفلاحجي said:

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

Expand  

احسنت استاذي

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

  في 25‏/6‏/2022 at 17:22, احمد الفلاحجي said:

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

Expand  

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

[أبوبسمله]

  في 25‏/6‏/2022 at 17:22, Eng.Qassim said:

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

Expand  

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

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

  في 25‏/6‏/2022 at 17:22, Eng.Qassim said:

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

Expand  

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

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

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

[Eng.Qassim]

  في 25‏/6‏/2022 at 17:31, احمد الفلاحجي said:

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

Expand  

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

[أبوبسمله]

  في 25‏/6‏/2022 at 17:35, Eng.Qassim said:

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

Expand  

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