اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعدة في كود نقل السجلات

samisalim

بواسطه samisalim
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة kanory,

الردود الموصى بها

samisalim

samisalim

قام بنشر
قام بنشر

السلام عليكم ورحمة الله وبركاته

اساتذتي الكرام

أريد مساعدة عند اختيار سجل او اكثر يتم نقله من نموذجEMPDEVMENU إلى نموذج EMPDEV_ARCHIVES مع طباعة استمارة بواسطة زر إرجاع وطباعة استمارة.

Capture.JPG.81432b59fb675a6c911127228e6df0f6.JPG

حالاً عند الضغط على الزر يتم نقل سجل واحد فقط

 

Test_It_0001.rar

  • تمت الإجابة
kanory

kanory

قام بنشر
  • تمت الإجابة
قام بنشر

جرب هذا الكود .... 

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

 

  • Like 5
samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
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));

 

نعم استاذي وجزاك الله خير

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
في ١٦‏/٧‏/٢٠٢١ at 18:43, Eng.Qassim said:

اعتقد لديك نقص شرط الاختيار 

((EMPDEV.Choix)=True));

 

نعم استاذي وجزاك الله خير

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر 
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

لكي يتسنى لي حفظ نسخة من بيانات احلال الاجهزة

kanory

kanory

قام بنشر
قام بنشر
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

 

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر

1111.JPG.725a95aa101e0effbb310bde8584009d.JPG

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 يتم حذف السجلات

 

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
18 ساعات مضت, samisalim said:

1111.JPG.725a95aa101e0effbb310bde8584009d.JPG

الله يفضل عليك دنيا وآخرة

واجهتني مشكلة

1-عند الضغط على OK يتم التصدير ولكن لايتم حذف السجلات المحددة في النموذج

2-عند الضغط على Cancel يتم حذف السجلات

 

up

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
في ١٧‏/٧‏/٢٠٢١ at 20:31, samisalim said:

1111.JPG.725a95aa101e0effbb310bde8584009d.JPG

الله يفضل عليك دنيا وآخرة

واجهتني مشكلة

1-عند الضغط على OK يتم التصدير ولكن لايتم حذف السجلات المحددة في النموذج

2-عند الضغط على Cancel يتم حذف السجلات

 

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept