تنفيذ دالة DMax من جدولين معاً

[mr steev]

السلام عليكم

في قاعدة البيانات المرفقة :

أريد التعديل على الكود التالي في زر أمر ترقيم عند النقر المزدوج :

 

Private Sub Cmd0_DblClick(Cancel As Integer)
    BornNo = Nz(DMax("[EarNo]", "AnimalsRecords" Or "BornsRecords", "[CowNo]=  form![CowNo] and [Season]=form![Season]"), 0) + 1
End Sub

وذلك ليقوم الكود بجعل قيمة الحقل BornNo تساوي (أعلى رقم في الحقل EarNo من الجدولين AnimalsRecords و BornsRecords) مضاف إليه 1

 

أو افادتنا بطريقة أخرى برمجيا لتنفيذ الأمر

 

وجزاكم الله خيراً

DMax function two table.rar

تم تعديل أبريل 8, 2015 بواسطه mr steev

[jjafferr]

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

 

ما يصير Dsum من الجدولين في خطوة واحدة  

 

لازم تطلب الرقم الاعلى من الجدول الاول ،

ثم الرقم الاعلى من الجدول الثاني ،

ثم تقارن بين الرقمين ، وتختار الاعلى ، ثم تضيف اليه 1 

 

 

جعفر

[mr steev]

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

 

يرجى افادتنا بطريقة كتابة  ذلك الكود برمجيا

[ابوخليل]

ولماذا جدولين ؟

فقد ذكرت لك رأيي هنا ولكنك لم ترد ولم تناقش http://www.officena.net/ib/index.php?showtopic=60128

[jjafferr]

وهذا هو الكود:

Private Sub Cmd0_DblClick(Cancel As Integer)

    'BornNo = Nz(DMax("[EarNo]", "AnimalsRecords" Or "BornsRecords", "[CowNo]=  form![CowNo] and [Season]=form![Season]"), 0) + 1
    'A = DMax("[EarNo]", "AnimalsRecords", "[CowNo]=" & Me.CowNo & " and [Season]=" & Me.Season)
    
    'check if BornNo is in the Record
    If Len(Me.BornNo & "") <> 0 Then
        
        Dim Msg, Style, Response
        Msg = "Ear Number already exists in this Record, Do you want to over write?"
        Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.

        Response = MsgBox(Msg, Style)
        If Response = vbYes Then
        
            ' User chose Yes, over write
            A = Nz(DMax("[EarNo]", "AnimalsRecords"), 0) + 1
            B = Nz(DMax("[EarNo]", "BornsRecords"), 0) + 1
    
            BornNo = A
            If B > BornNo Then BornNo = B
        Else
        
            ' User chose No.
            Exit Sub
        End If
    End If
    
End Sub

جعفر

[jjafferr]

حياك الله أخوي أبوخليل 

[رمهان]

مشاركة مع الأستاذ جعفر

اعمل استعلام جديد وباسم qr1  ومصدره الجملة التالية:

select DISTINCT [AnimalsRecords].[EarNo] from [AnimalsRecords] UNION select DISTINCT [BornsRecords].[SeasonalNo] from [BornsRecords];

وهذا الكود :

Private Sub Cmd0_DblClick(Cancel As Integer)
    BornNo = Nz(DMax("[EarNo]", "qr1"), 0) + 1
End Sub

اخي ابوخليل : كذلك انت لم ترد وتناقش هنا

 

http://www.officena.net/ib/index.php?showtopic=60209&hl=

 

تحياتي

تم تعديل أبريل 8, 2015 بواسطه رمهان

[jjafferr]

مشاركة مع الأستاذ جعفر

اعمل استعلام جديد وباسم qr1  ومصدره الجملة التالية:

select DISTINCT [AnimalsRecords].[EarNo] from [AnimalsRecords] UNION select DISTINCT [BornsRecords].[SeasonalNo] from [BornsRecords];

وهذا الكود :

Private Sub Cmd0_DblClick(Cancel As Integer)
    BornNo = Nz(DMax("[EarNo]", "qr1"), 0) + 1
End Sub

اخي ابوخليل : كذلك انت لم ترد وتناقش هنا

 

http://www.officena.net/ib/index.php?showtopic=60209&hl=

 

تحياتي

 

طريقة جميلة أخي رمهان 

 

 

 

جعفر

[ابوخليل]

حياك الله أخوي أبوخليل 

 

وربي يحييك اخوي جعفر

 

 

اخي ابوخليل : كذلك انت لم ترد وتناقش هنا

 

http://www.officena....wtopic=60209=

  العفو ...  ما علمت بها غير الساعة  

وقد كتبت الرد هناك 

[mr steev]

أحسن الله إليكم جميعا وجزاكم الله خيرأ 

سنعتمد حل الأستاذ رمهان جزاه الله خيراً

 

إلى لقاء آخر في مواضيع جديدة ان شاء الله

DMax function two table.rar

[jjafferr]

على بركة الله 

 

بس لازم تتأكد ان حقل BornNo لا يحتوي على رقم ، وإلا فإنك ستكتب عليه الرقم الجديد

لهذا السبب استخدمت كود للتأكد بان الحقل فاضي ، واذا ما كان فاضي ، فالكود يسألك اذا كنت تريد تغيره 

 

هذا بداية الكود (الكود الكامل موجود في مشاركتي رقم 5):

'check if BornNo is in the Record
    If Len(Me.BornNo & "") <> 0 Then

جعفر

[رمهان]

ومع الاستاذ جعفر بهذه الملاحظة

ويمكن باستخدام فحص ان السجل جديد وباستخدام

if me.newrecord then

بالتوفيق

[jjafferr]

ومع الاستاذ جعفر بهذه الملاحظة

ويمكن باستخدام فحص ان السجل جديد وباستخدام

if me.newrecord then

بالتوفيق