mr steev قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 (معدل) السلام عليكم في قاعدة البيانات المرفقة : أريد التعديل على الكود التالي في زر أمر ترقيم عند النقر المزدوج : 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 قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 وعليكم السلام ما يصير Dsum من الجدولين في خطوة واحدة لازم تطلب الرقم الاعلى من الجدول الاول ، ثم الرقم الاعلى من الجدول الثاني ، ثم تقارن بين الرقمين ، وتختار الاعلى ، ثم تضيف اليه 1 جعفر
mr steev قام بنشر أبريل 8, 2015 الكاتب قام بنشر أبريل 8, 2015 جزاك االله خير يرجى افادتنا بطريقة كتابة ذلك الكود برمجيا
ابوخليل قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 ولماذا جدولين ؟ فقد ذكرت لك رأيي هنا ولكنك لم ترد ولم تناقش http://www.officena.net/ib/index.php?showtopic=60128
jjafferr قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 وهذا هو الكود: 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 جعفر
رمهان قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 (معدل) مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم 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 بواسطه رمهان 1
jjafferr قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم 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 قام بنشر أبريل 8, 2015 حياك الله أخوي أبوخليل وربي يحييك اخوي جعفر اخي ابوخليل : كذلك انت لم ترد وتناقش هنا http://www.officena....wtopic=60209= العفو ... ما علمت بها غير الساعة وقد كتبت الرد هناك
mr steev قام بنشر أبريل 8, 2015 الكاتب قام بنشر أبريل 8, 2015 أحسن الله إليكم جميعا وجزاكم الله خيرأ سنعتمد حل الأستاذ رمهان جزاه الله خيراً إلى لقاء آخر في مواضيع جديدة ان شاء الله DMax function two table.rar
jjafferr قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 على بركة الله بس لازم تتأكد ان حقل BornNo لا يحتوي على رقم ، وإلا فإنك ستكتب عليه الرقم الجديد لهذا السبب استخدمت كود للتأكد بان الحقل فاضي ، واذا ما كان فاضي ، فالكود يسألك اذا كنت تريد تغيره هذا بداية الكود (الكود الكامل موجود في مشاركتي رقم 5): 'check if BornNo is in the Record If Len(Me.BornNo & "") <> 0 Then جعفر
رمهان قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 ومع الاستاذ جعفر بهذه الملاحظة ويمكن باستخدام فحص ان السجل جديد وباستخدام if me.newrecord then بالتوفيق 1
jjafferr قام بنشر أبريل 8, 2015 قام بنشر أبريل 8, 2015 ومع الاستاذ جعفر بهذه الملاحظة ويمكن باستخدام فحص ان السجل جديد وباستخدام if me.newrecord then بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.