التعديل على ملف

[Ahmed_J]

استاذي العزيز

3 دقائق مضت, Foksh said:

ام تريد ان تكون القيمة في B اذا كانت موجودة في أحد الحقول في السجل المحدد فيكون التطابق موجود وإذا لم تكن القيمة في أي من الحقول ضمن نفس السجل فتكون الحالة عدم تطابق ؟؟؟؟ 

نعم هذا هو المطلوب

مثلا (A) في النموذج = 3

في الجدزل  (TP2) يكون (GradeNO) =  3   والتطابق يكون في  (رئيس مهندسين) و (مدير) فقط

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

[Foksh]

4 دقائق مضت, Ahmed_J said:

استاذي العزيز

نعم هذا هو المطلوب

مثلا (A) في النموذج = 3

في الجدزل  (TP2) يكون (GradeNO) =  3   والتطابق يكون في  (رئيس مهندسين) و (مدير) فقط

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

الفكرة وصلت ، لكن راسي صف على اليمين وأخذ استراحة محارب ..
محتاج منك طلب بسيط ,, اتعب معي شوي وان شاء الله تنحل مشكلتك

 

اعمل لي نموذج حسب فكرتك بحيث يكون عند المقارنة بين (رئيس مهندسين) و (مدير) تكون القيم موجودة فعلاً وليس تصوراً ..

يعني A تساوي GradNo

B تساوي Txt_h

C تساوي Txt_e <<<<< صحيح ولا لأ .

 

يعني كيف أجعل المقارنة في التطابق  (رئيس مهندسين) و (مدير) بدون توافر شروط البحث

[Ahmed_J]

استاذ @Foksh

الله يبارك فيك ويحفظك من كل مكروه

والله تعبتك معي كتير

لايوجد  C فقط A و B

الكود تبع استاذ @ابوخليل شغال تمام  لكن لايمكن تكرار الدالة DLOOKUP لعشرين مرة  اطلع عليه لو احببت ذلك 

تحياتي 

Test-1.accdb

ابو خليل.accdb

تم تعديل فبراير 28, 2024 بواسطه Ahmed_J

[Foksh]

قلتلك استراحة محارب ، خلني بس أوصل البيت وأصحصح استأنف 😎

[ابوخليل]

انا كنت اعمل على الكود

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

الآن وبعد تأكيد ما فهمته من قبل الاستاذ احمد اليكم الحل

دالة تأخذ قيمة B وتقارنها بأي حقل داخل السجل :

Public xfld As Byte
Public Function Allfld(x As String) As String
On Error GoTo ErrHandler
Dim rs As Object, i As Integer
  Set rs = CurrentDb.OpenRecordset("SELECT TP2.* FROM TP2 WHERE TP2.GradeNO= " & [Forms]![form1]![A] & "")
     i = 0
      For Each Field In rs.Fields
         i = i + 1
         If x = rs.Fields(i) Then
                xfld = 1
        Exit Function
      End If
      Next
     Set rs = Nothing
ErrHandler:
If Err.Number = 3256 Then
Exit Function
End If
End Function

ويتم مناداتها من النموذج :

Private Sub B_AfterUpdate()
xfld = 0
Call Allfld(Me.B)
If xfld = 0 Then
  MsgBox "البيانات غير متطابقة"
        Undo
        Exit Sub
End If
End Sub

 

 

Test-11.rar

[Foksh]

13 دقائق مضت, ابوخليل said:

انا كنت اعمل على الكود

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

الآن وبعد تأكيد ما فهمته من قبل الاستاذ احمد اليكم الحل

دالة تأخذ قيمة B وتقارنها بأي حقل داخل السجل :

Public xfld As Byte
Public Function Allfld(x As String) As String
On Error GoTo ErrHandler
Dim rs As Object, i As Integer
  Set rs = CurrentDb.OpenRecordset("SELECT TP2.* FROM TP2 WHERE TP2.GradeNO= " & [Forms]![form1]![A] & "")
     i = 0
      For Each Field In rs.Fields
         i = i + 1
         If x = rs.Fields(i) Then
                xfld = 1
        Exit Function
      End If
      Next
     Set rs = Nothing
ErrHandler:
If Err.Number = 3256 Then
Exit Function
End If
End Function

ويتم مناداتها من النموذج :

Private Sub B_AfterUpdate()
xfld = 0
Call Allfld(Me.B)
If xfld = 0 Then
  MsgBox "البيانات غير متطابقة"
        Undo
        Exit Sub
End If
End Sub

 

 

Test-11.rar 29.12 kB · 0 downloads

عيني عليك بارده من الحسد 🥰

ومنكم نتعلم وما زلنا معلمنا الفاضل @ابوخليل

 

جزاك الله كل خير 🤝

 

انا كنت فاهم باتجاه آخر 😅

[Ahmed_J]

السلام عليكم

كل شيء تمام 100%

استاذي العزيز @Foksh

شكرا لك على مجهودك الكبير 

الله يجعلها في ميزان حسناتك

استاذي العزيز @ناقل

الله يبارك فيك والله يجعلها في ميزان حسناتك

استاذ العزيز والكبير @ابوخليل

تحية اعتزاز وامتنان لك 

الله يجعلها في ميزان حسناتك

بارك الله فيكم جميعا

اخوكم احمد

 

 

تم تعديل فبراير 29, 2024 بواسطه Ahmed_J