تعديل علي حقل combo box

[Emad.85]

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

عند قاعدة بيانات وفيها نموذج ادخال بيانات

داخل النموذج عندما اختار رقم المشروع اريد تظهر ليا قائمة في حقل reference no تلقائي ويمكن التعديل عليه انه يضيف الرقم الاخير يدويا.

 

بمعني اريد حقلين Project no & Reference no  مرتبطين 

وعندما اختار رقم المشروع يظهر رقم المرجع تلقائي المرتبط برقم المشروع واني اقدر اعدل علي اخر ارقام فيه

اتمني تكون الفكرة وصلتكم

واكون شاكر لكم

 

New Microsoft Access Database.accdb

[Foksh]

لم لا تستعمل دالة Dlookup 😊

[Emad.85]

هو ممكن اضيف جدول تاني بارقام المشاريع و كل مشروع له اسم Reference no 

بمعني في النموذج لو اخترت رقم المشروع 10002

(-reference no  (Building - 10002- CD 

واضيف الرقم الاخير يدوي

 

 

بصراحة  دالة Dlookup  مش عارفها ازاي

[Emad.85]

لان عندي اكثر من جدول وكلهم فيهم Project no & Reference no 

 

[Foksh]

تفضل اخي @Emad.85 . هل هذا طلبك ؟؟

 

New Microsoft Access Database (3).accdb

[Emad.85]

استاذ Foksh شركا علي ردك فعلا

لكن لم تظهر اي نتائج ولا يوجد تعديل 

يمكن تكون تم تحميل النموذج القديم

[Foksh]

افتح سجل جديد اخي الكريم واخبرني بالنتيجة 😅

[Emad.85]

هذه النتيجة اخي

 

[Foksh]

🧐🤔😵

[Emad.85]

أ/ فوكش 

انا ممكن اعمل قائمة منسدلة مبنية علي المشاريع

وكل مشروع له Reference 

[Foksh]

هذا الكود في حدث بعد التحديث

Private Sub ProjectNo_AfterUpdate()
    Dim strSQL As String
    Dim rs As DAO.Recordset
    strSQL = "SELECT LEFT(ReferenceNo, Len(ReferenceNo) - 5) AS ReferenceWithoutDDDD FROM Incoming WHERE ProjectNo = '" & Me.ProjectNo & "'"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If Not rs.EOF Then
        ReferenceNo.Value = rs!ReferenceWithoutDDDD
    Else
        MsgBox "لا توجد بيانات متطابقة"
    End If
    rs.Close
    Set rs = Nothing
End Sub

وهذا الملف بعد فحصه ومتأكد انه يعمل خلاف ما اظهرت في الصورة.

New Microsoft Access Database (3).accdb