اختى الكريمه زهره
بارك الله لنا فيكى واعز بكى الاسلام والمسلمين
اشكر الله اولا ثم اشكرك على صبرك الجميل وادعوا الله العلى القدير ان يوفقك وان يرزقك ماتتمنيه وان يبارك لكى فى عهود وشهد
الحمد لله انتهيت من الاضافه الاخيره وهيا تامين السجلات بعد الادخال
تبقى صوره الرساله فى الاعلى هل لها حل فى عدم الظهور وهل ازرار التنقل مرتبطه باكواد اخرى فى المرفق ام لا
اخي الفاضل : احمد
هذه الرسالة لا تظهر عندي ابداً !!!
متى تظهر عندك عند اي حدث او طريقة ظهورها ياريت تشرح الخطوات حتى تظهر هذه الرسالة ؟
هناك حالة وحيده واتوقع انك قمت بعملها واضافتها للبرنامج لأنني الاحظ عليك هذا الإسلوب كثيرا وهو امر اضافة سجل جديد في اخر الأكواد البرمجية
DoCmd.GoToRecord , , acNewRec
فعندما يوجد هذا الكود في احداث لم تنتهي فحتما ستظهر رسالة افلات التغييرات او حفظ السجل قبل الإنتقال الى السجل الجديد
ولهذا اذا كنت قد قمت بهذه الإضافة فقم بحذفها فورا بدون تردد ولن تظهر لك الرسالة التي تتحدث عنها
بالتوفيق
اختى الكريمه ام عهود
المشكله فى كود الاغلاق هذا
Private Sub CmdClose_Click()
On Error Resume Next
Me.Kind = ""
If IsNull(Me.Kind) Or IsNull(Forms!frmMain!FRMALL.Form!Names) And IsNull(Forms!frmMain!FRMALL.Form!Kod) Then
DoCmd.Close
ElseIf MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÈíÇäÇÊ ÇáÓÇÈÞÉ " & vbCrLf & "ÃÖÛØ (äÚã) ááÅÓÊãÑÇÑ Ãæ (áÇ) áÅáÛÇÁ ÇáÃãÑ.", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈíå") = vbYes Then
DoCmd.Save
DoCmd.GoToControl ("[kod]")
Else
Me.Undo
If IsNull(Forms!frmMain!FRMALL.Form!Names) And IsNull(Forms!frmMain!FRMALL.Form!Kod) Then
DoCmd.Close
End If
End If
End Subفى حالة الاغلاق وهناك بيانات يتم تفريغ الخانات واظهار رسالة هل تريد الحفظ ام لا فى حالة الضغط على ( لا) يحفظ البيانات ويتم الاغلاق وفى حالة الضغط على (نعم) يحفظ ويتم الاغلاق بسبب بداية الكود التاليه
Me.Kind = ""
قمت بتجربة تعديل الكود ووصلت للتالى فى حالة وجود بيانات وظهور الرساله والضغط على( نعم) يتم الحفظ ويتم الاغلاق
وكذلك فى حالة الضغط على (لا) والمفروض عند الضغط على (لا) لايتم الحفظ ويغلق النموذج
Private Sub CmdClose_Click()
On Error Resume Next
If IsNull(Me.Kind) Or IsNull(Forms!frmMain!FRMALL.Form!Names) And IsNull(Forms!frmMain!FRMALL.Form!Kod) Then
Me.Kind = ""
DoCmd.Close
ElseIf MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÈíÇäÇÊ ÇáÓÇÈÞÉ " & vbCrLf & "ÃÖÛØ (äÚã) ááÅÓÊãÑÇÑ Ãæ (áÇ) áÅáÛÇÁ ÇáÃãÑ.", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈíå") = vbYes Then
DoCmd.Save
DoCmd.Close
Else
Me.Undo
DoCmd.Close
End If
End Subاسف على تعبك معايا يا ام عهود ولكن التمسى لى العذر
اخوكى احمد
اختى ام عهود
راجعى المرفق مره اخره
فان زر الاغلاق فى حالة عدم وجود بيانات ياتى برسالة الحفظ
وفى حالة وجود بيانات لا تظهر
اعتذر للاطاله عليكى ياام عهود
تم تعديل هذه المشاركة بواسطة طالب علم مبتدىء في 6 فبراير 2012 في 02:34
اختى ام عهود بارك الله فيكى وجزاكى عنا كل خير على صبرك الجميل فى متابعتنا
المرفق الاخير يحفظ عند الضغط على لا برضه
وقد هدانى الله عز وجل الى تجربه تعديل وهى نقل زر الاغلاق الى النموذج FRMALL ووضع الكود كما كان فى المرفق اللذى فى المشاركه رقم 24 مع حذف جزء بسيط من الكود واللذى كان يشير الى حقل الاداره وقد تم التجربه بنجاح فى حالة كون النموذج خالى يغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على نعم يحفظ ويغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على (لا) لا يحفظ ويغلق .
الحمد والشكر لله ثم لكى يا ام عهود على جهودك الجباره وحلولك الاكثر من رائعه اللتى نتعلم منها ربنا يحفظك يا ام عهود
ارفق الملف بعد التعديل واضافة كود تامين السجلات بعد الادخال على النموذج FRMALL فى حدثى فى الحالى وبعد التحديث للاطلاع والاخذ برائيك فى هذه التعديلات
تم تعديل هذه المشاركة بواسطة طالب علم مبتدىء في 6 فبراير 2012 في 20:21
طالب علم مبتدىء كتب:
اختى ام عهود بارك الله فيكى وجزاكى عنا كل خير على صبرك الجميل فى متابعتنا
المرفق الاخير يحفظ عند الضغط على لا برضه
وقد هدانى الله عز وجل الى تجربه تعديل وهى نقل زر الاغلاق الى النموذج FRMALL ووضع الكود كما كان فى المرفق اللذى فى المشاركه رقم 24 مع حذف جزء بسيط من الكود واللذى كان يشير الى حقل الاداره وقد تم التجربه بنجاح فى حالة كون النموذج خالى يغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على نعم يحفظ ويغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على (لا) لا يحفظ ويغلق .
الحمد والشكر لله ثم لكى يا ام عهود على جهودك الجباره وحلولك الاكثر من رائعه اللتى نتعلم منها ربنا يحفظك يا ام عهود
ارفق الملف بعد التعديل واضافة كود تامين السجلات بعد الادخال على النموذج FRMALL فى حدثى فى الحالى وبعد التحديث للاطلاع والاخذ برائيك فى هذه التعديلات
طالب علم مبتدىء كتب:
اختى ام عهود بارك الله فيكى وجزاكى عنا كل خير على صبرك الجميل فى متابعتنا
المرفق الاخير يحفظ عند الضغط على لا برضه
وقد هدانى الله عز وجل الى تجربه تعديل وهى نقل زر الاغلاق الى النموذج FRMALL ووضع الكود كما كان فى المرفق اللذى فى المشاركه رقم 24 مع حذف جزء بسيط من الكود واللذى كان يشير الى حقل الاداره وقد تم التجربه بنجاح فى حالة كون النموذج خالى يغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على نعم يحفظ ويغلق وفى حالة كون النموذج به بيانات والضغط على اغلاق وظهور الرساله والضغط على (لا) لا يحفظ ويغلق .
الحمد والشكر لله ثم لكى يا ام عهود على جهودك الجباره وحلولك الاكثر من رائعه اللتى نتعلم منها ربنا يحفظك يا ام عهود
ارفق الملف بعد التعديل واضافة كود تامين السجلات بعد الادخال على النموذج FRMALL فى حدثى فى الحالى وبعد التحديث للاطلاع والاخذ برائيك فى هذه التعديلات
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…