kajin.tha60 قام بنشر يناير 5, 2020 مشاركة قام بنشر يناير 5, 2020 refresh form Main.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوبسمله قام بنشر يناير 5, 2020 أفضل إجابة مشاركة قام بنشر يناير 5, 2020 اخى الفاضل اكتب Me.Refresh Private Sub barcode_AfterUpdate() DoCmd.SetWarnings False Dim x1 x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.barcode), 0) Me.Refresh If x1 = 0 Then MsgBox "åÐÇ ÇáÕäÝ ÛíÑ ãÓÌá", vbMsgBoxRight + vbCritical, "ÊäÈíå" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit Sub End If DoCmd.SetWarnings True End Sub بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
kajin.tha60 قام بنشر يناير 5, 2020 الكاتب مشاركة قام بنشر يناير 5, 2020 شكرا استاذ ( جزاك الله خيرا ) 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 5, 2020 مشاركة قام بنشر يناير 5, 2020 الشكر لله اخى واياكم اخى بالتوفيق ان شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان