Emad.85 قام بنشر مارس 19 مشاركة قام بنشر مارس 19 السلام عليكم ورحمة الله عند قاعدة بيانات وفيها نموذج ادخال بيانات داخل النموذج عندما اختار رقم المشروع اريد تظهر ليا قائمة في حقل reference no تلقائي ويمكن التعديل عليه انه يضيف الرقم الاخير يدويا. بمعني اريد حقلين Project no & Reference no مرتبطين وعندما اختار رقم المشروع يظهر رقم المرجع تلقائي المرتبط برقم المشروع واني اقدر اعدل علي اخر ارقام فيه اتمني تكون الفكرة وصلتكم واكون شاكر لكم New Microsoft Access Database.accdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 19 مشاركة قام بنشر مارس 19 لم لا تستعمل دالة Dlookup 😊 رابط هذا التعليق شارك More sharing options...
Emad.85 قام بنشر مارس 19 الكاتب مشاركة قام بنشر مارس 19 هو ممكن اضيف جدول تاني بارقام المشاريع و كل مشروع له اسم Reference no بمعني في النموذج لو اخترت رقم المشروع 10002 (-reference no (Building - 10002- CD واضيف الرقم الاخير يدوي بصراحة دالة Dlookup مش عارفها ازاي رابط هذا التعليق شارك More sharing options...
Emad.85 قام بنشر مارس 19 الكاتب مشاركة قام بنشر مارس 19 لان عندي اكثر من جدول وكلهم فيهم Project no & Reference no رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 20 مشاركة قام بنشر مارس 20 تفضل اخي @Emad.85 . هل هذا طلبك ؟؟ New Microsoft Access Database (3).accdb رابط هذا التعليق شارك More sharing options...
Emad.85 قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 استاذ Foksh شركا علي ردك فعلا لكن لم تظهر اي نتائج ولا يوجد تعديل يمكن تكون تم تحميل النموذج القديم رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 20 مشاركة قام بنشر مارس 20 افتح سجل جديد اخي الكريم واخبرني بالنتيجة 😅 رابط هذا التعليق شارك More sharing options...
Emad.85 قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 هذه النتيجة اخي رابط هذا التعليق شارك More sharing options...
Emad.85 قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 أ/ فوكش انا ممكن اعمل قائمة منسدلة مبنية علي المشاريع وكل مشروع له Reference رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 20 مشاركة قام بنشر مارس 20 هذا الكود في حدث بعد التحديث 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان