السلام عليكم ورحمة الله وبركاته
أخوتي أبحث عن مساعده في الحصول على امر
هو عندما اقوم باضافة سجل جديد يتاكد من انه غير مدرج مسبقا وذلك بعد تحديث الرقم الوظيفي
أفيدوني جزاكم الله خيرا
ارفق لكم الملف
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
مشكورررررررررررررر عزيزي بارك الله فيك
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
أخي العزيز azaam2002
عند القيام بالتفحص البرنامج
وجدت مشكلة وهو عندما تقوم باضافة رقم موجود مسبقا بالفعل تاتي المسج ويقوم بايصالك الى موقع الرقم نفسه بينما يقوم باضافة سجل جديد بنفس الرقم
حاولت ان اعمل me.undo
بس بدون فائدة
بانتظار ردك بارك الله فيك
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
أخي
جرب إضافة
docmd.CancelEvent
إذ ربما
مع تحياتي
Dim myrec As Recordset
Set myrec = CurrentDb.OpenRecordset("SELECT الاجازات.[الرقم الظيفي] " & _
" FROM الاجازات " & _
" WHERE (((الاجازات.[الرقم الظيفي]) =" & Me.no & ")) " & _
" GROUP BY الاجازات.[الرقم الظيفي];")
If myrec.RecordCount > 0 Then
DoCmd.CancelEvent
MsgBox "soooooooooooooory this no alreday here???? "
'DoCmd.CancelEvent
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[الرقم الظيفي] = " & Str(Me.no)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
DoCmd.GoToControl "LEA"
End Ifلم يعمل
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
الف شكر لك يا اخي العزيز بارك الله فيك ولك الاجر
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
مشكور اخي
الباشق
هذا الموضوع مغلق.