البحث في الموقع
Showing results for tags 'السادة أعضاء النتدى الكرام يرجى المساعدة في حل المشكلة'.
تم العثور علي 1 نتيجه
-
Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb 'حيث Table 1 يحتوى على عمود به القيم التى يراد التأكد من مطابقتها ("Set rs = db.OpenRecordset("Table1 For i = 0 To 2 'حيثNo هو الرقم الموجود في الجدول ويراد التأكد من مطابقته معMe.MNo If rs!No.Value = Me.MNo Then 'حيث Dashbord هو النموذج المراد فتحه في حالة تحقق الشرط "DoCmd.OpenForm "Dashboard Else If rs!No.Value <> Me.MNo Then 'حيث Copyهو النموذج المراد فتحه في حالة عدم تحقق الشرط "DoCmd.OpenForm "Copy End If End If Next i المشكلة انه في حالة تحقق الشرط وعدم تحقق الشرط يتم فتح النموذج Copy يرجى المساعدة في حل ه\ه المشكلة ولكم جزيل الشكر
