samisalim قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 السلام عليكم ورحمة الله وبركاته اساتذتي الكرام أريد مساعدة عند اختيار سجل او اكثر يتم نقله من نموذجEMPDEVMENU إلى نموذج EMPDEV_ARCHIVES مع طباعة استمارة بواسطة زر إرجاع وطباعة استمارة. حالاً عند الضغط على الزر يتم نقل سجل واحد فقط Test_It_0001.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يوليو 16, 2021 أفضل إجابة مشاركة قام بنشر يوليو 16, 2021 جرب هذا الكود .... On Error Resume Next Me.Refresh Dim i i = Me.IDED If MsgBox("هل تريد إرجاع جهاز وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO EMPDEV_ARCHIVES ( IDED, IDE, IDD, DATEG, STATUS, SystemS, NOTES2, DATER, RECEIPT, NOTES, IDD1, IDD2, Choix ) " & _ " SELECT EMPDEV.IDED, EMPDEV.IDE, EMPDEV.IDD, EMPDEV.DATEG, EMPDEV.STATUS, EMPDEV.SystemS, EMPDEV.NOTES2, EMPDEV.DATER, EMPDEV.RECEIPT, EMPDEV.NOTES, EMPDEV.IDD1, EMPDEV.IDD2, EMPDEV.Choix " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.RunSQL "DELETE EMPDEV.Choix, EMPDEV.* " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.SetWarnings True End If Me.Requery 'Me.Visible = False DoCmd.OpenReport "SCDEV_ARCHIVES", acViewPreview ', , "[IDED]=Forms![EMPDEVMENU]![IDED]", acWindowNormal DoCmd.Close acForm, Me.Name, acSaveNo 'DoCmd.OpenForm "mod1", , , "mcod=" & i 5 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 اعتقد لديك نقص شرط الاختيار ((EMPDEV.Choix)=True)); 1 رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 2 ساعات مضت, kanory said: جرب هذا الكود .... On Error Resume Next Me.Refresh Dim i i = Me.IDED If MsgBox("هل تريد إرجاع جهاز وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO EMPDEV_ARCHIVES ( IDED, IDE, IDD, DATEG, STATUS, SystemS, NOTES2, DATER, RECEIPT, NOTES, IDD1, IDD2, Choix ) " & _ " SELECT EMPDEV.IDED, EMPDEV.IDE, EMPDEV.IDD, EMPDEV.DATEG, EMPDEV.STATUS, EMPDEV.SystemS, EMPDEV.NOTES2, EMPDEV.DATER, EMPDEV.RECEIPT, EMPDEV.NOTES, EMPDEV.IDD1, EMPDEV.IDD2, EMPDEV.Choix " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.RunSQL "DELETE EMPDEV.Choix, EMPDEV.* " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.SetWarnings True End If Me.Requery 'Me.Visible = False DoCmd.OpenReport "SCDEV_ARCHIVES", acViewPreview ', , "[IDED]=Forms![EMPDEVMENU]![IDED]", acWindowNormal DoCmd.Close acForm, Me.Name, acSaveNo 'DoCmd.OpenForm "mod1", , , "mcod=" & i جزاك الله خيراً استاذي العزيز هذا هو المطلوب 2 ساعات مضت, Eng.Qassim said: اعتقد لديك نقص شرط الاختيار ((EMPDEV.Choix)=True)); نعم استاذي وجزاك الله خير رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 17, 2021 الكاتب مشاركة قام بنشر يوليو 17, 2021 في ١٦/٧/٢٠٢١ at 18:43, Eng.Qassim said: اعتقد لديك نقص شرط الاختيار ((EMPDEV.Choix)=True)); نعم استاذي وجزاك الله خير رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 17, 2021 الكاتب مشاركة قام بنشر يوليو 17, 2021 On Error Resume Next Me.Refresh Dim i i = Me.IDED If MsgBox("هل تريد إرجاع جهاز وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO EMPDEV_ARCHIVES ( IDED, IDE, IDD, DATEG, STATUS, SystemS, NOTES2, DATER, RECEIPT, NOTES, IDD1, IDD2, Choix ) " & _ " SELECT EMPDEV.IDED, EMPDEV.IDE, EMPDEV.IDD, EMPDEV.DATEG, EMPDEV.STATUS, EMPDEV.SystemS, EMPDEV.NOTES2, EMPDEV.DATER, EMPDEV.RECEIPT, EMPDEV.NOTES, EMPDEV.IDD1, EMPDEV.IDD2, EMPDEV.Choix " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.RunSQL "DELETE EMPDEV.Choix, EMPDEV.* " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.SetWarnings True End If Me.Requery 'Me.Visible = False DoCmd.OpenReport "SCDEV_ARCHIVES", acViewPreview ', , "[IDED]=Forms![EMPDEVMENU]![IDED]", acWindowNormal DoCmd.Close acForm, Me.Name, acSaveNo 'DoCmd.OpenForm "mod1", , , "mcod=" & i اساتذتي @kanory @Eng.Qassim كيف اقدر ادمج كود تصدير البيانات مع الكود السابق DoCmd.OutputTo acOutputReport, "EMPDEVMENU", acFormatPDF, strPathAndfile, True لكي يتسنى لي حفظ نسخة من بيانات احلال الاجهزة رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 17, 2021 مشاركة قام بنشر يوليو 17, 2021 40 دقائق مضت, samisalim said: اساتذتي @kanory @Eng.Qassim كيف اقدر ادمج كود تصدير البيانات مع الكود السابق DoCmd.OutputTo acOutputReport, "EMPDEVMENU", acFormatPDF, strPathAndfile, True لكي يتسنى لي حفظ نسخة من بيانات احلال الاجهزة تفضل ------->>>>>> On Error Resume Next Me.Refresh Dim i i = Me.IDED If MsgBox("هل تريد إرجاع جهاز وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO EMPDEV_ARCHIVES ( IDED, IDE, IDD, DATEG, STATUS, SystemS, NOTES2, DATER, RECEIPT, NOTES, IDD1, IDD2, Choix ) " & _ " SELECT EMPDEV.IDED, EMPDEV.IDE, EMPDEV.IDD, EMPDEV.DATEG, EMPDEV.STATUS, EMPDEV.SystemS, EMPDEV.NOTES2, EMPDEV.DATER, EMPDEV.RECEIPT, EMPDEV.NOTES, EMPDEV.IDD1, EMPDEV.IDD2, EMPDEV.Choix " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.OutputTo acOutputReport, "EMPDEVMENU", acFormatPDF, strPathAndfile, True DoCmd.RunSQL "DELETE EMPDEV.Choix, EMPDEV.* " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.SetWarnings True End If Me.Requery 'Me.Visible = False DoCmd.OpenReport "SCDEV_ARCHIVES", acViewPreview ', , "[IDED]=Forms![EMPDEVMENU]![IDED]", acWindowNormal DoCmd.Close acForm, Me.Name, acSaveNo 'DoCmd.OpenForm "mod1", , , "mcod=" & i رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 17, 2021 الكاتب مشاركة قام بنشر يوليو 17, 2021 24 دقائق مضت, kanory said: تفضل ------->>>>>> On Error Resume Next Me.Refresh Dim i i = Me.IDED If MsgBox("هل تريد إرجاع جهاز وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO EMPDEV_ARCHIVES ( IDED, IDE, IDD, DATEG, STATUS, SystemS, NOTES2, DATER, RECEIPT, NOTES, IDD1, IDD2, Choix ) " & _ " SELECT EMPDEV.IDED, EMPDEV.IDE, EMPDEV.IDD, EMPDEV.DATEG, EMPDEV.STATUS, EMPDEV.SystemS, EMPDEV.NOTES2, EMPDEV.DATER, EMPDEV.RECEIPT, EMPDEV.NOTES, EMPDEV.IDD1, EMPDEV.IDD2, EMPDEV.Choix " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.OutputTo acOutputReport, "EMPDEVMENU", acFormatPDF, strPathAndfile, True DoCmd.RunSQL "DELETE EMPDEV.Choix, EMPDEV.* " & _ " FROM EMPDEV " & _ " WHERE (((EMPDEV.Choix)=True));" DoCmd.SetWarnings True End If Me.Requery 'Me.Visible = False DoCmd.OpenReport "SCDEV_ARCHIVES", acViewPreview ', , "[IDED]=Forms![EMPDEVMENU]![IDED]", acWindowNormal DoCmd.Close acForm, Me.Name, acSaveNo 'DoCmd.OpenForm "mod1", , , "mcod=" & i الله يفضل عليك دنيا وآخرة واجهتني مشكلة 1-عند الضغط على OK يتم التصدير ولكن لايتم حذف السجلات المحددة في النموذج 2-عند الضغط على Cancel يتم حذف السجلات رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 18, 2021 الكاتب مشاركة قام بنشر يوليو 18, 2021 18 ساعات مضت, samisalim said: الله يفضل عليك دنيا وآخرة واجهتني مشكلة 1-عند الضغط على OK يتم التصدير ولكن لايتم حذف السجلات المحددة في النموذج 2-عند الضغط على Cancel يتم حذف السجلات up رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يوليو 19, 2021 الكاتب مشاركة قام بنشر يوليو 19, 2021 في ١٧/٧/٢٠٢١ at 20:31, samisalim said: الله يفضل عليك دنيا وآخرة واجهتني مشكلة 1-عند الضغط على OK يتم التصدير ولكن لايتم حذف السجلات المحددة في النموذج 2-عند الضغط على Cancel يتم حذف السجلات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.