اذهب الي المحتوي
أوفيسنا

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

samisalim

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

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

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

samisalim

samisalim

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

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

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

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

Capture.JPG.81432b59fb675a6c911127228e6df0f6.JPG

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

 

Test_It_0001.rarFetching info...

  • تمت الإجابة
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

قام بنشر
  • الكاتب
قام بنشر
  في 16‏/7‏/2021 at 14:17, 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

 

Expand  

جزاك الله خيراً استاذي العزيز هذا هو المطلوب

  في 16‏/7‏/2021 at 14:43, Eng.Qassim said:

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

((EMPDEV.Choix)=True));

 

Expand  

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

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

قام بنشر
قام بنشر
  في 17‏/7‏/2021 at 15:21, samisalim said:

اساتذتي @kanory @Eng.Qassim

كيف اقدر ادمج كود تصدير البيانات مع الكود السابق 

DoCmd.OutputTo acOutputReport, "EMPDEVMENU", acFormatPDF, strPathAndfile, True

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

Expand  

تفضل ------->>>>>> 

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

  في 17‏/7‏/2021 at 16:02, 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

 

Expand  

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

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

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

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

 

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
  في 17‏/7‏/2021 at 16:31, samisalim said:

1111.JPG.725a95aa101e0effbb310bde8584009d.JPG

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

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

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

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

 

Expand  

up

samisalim

samisalim

قام بنشر
  • الكاتب
قام بنشر
  في 17‏/7‏/2021 at 16:31, samisalim said:

1111.JPG.725a95aa101e0effbb310bde8584009d.JPG

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

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

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

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

 

Expand  

 

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