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

كيف يتم التحويل بين المخازن / تعديل كود


asdfar

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

اريد شرح كيف يتم التحويل لكمية من مخزن لمخزن

فمثلا يوجد لدى مخزن رئيسى للإنتاج التام وأريد ان احول منه الى مخزن اخر وليكن سيارة بيع فكيف يتم ذلك في نموذج تحويل يتم الصرف من مخزن الإنتاج التام والاضافة في مخزن السيارة

رابط هذا التعليق
شارك

  • 4 weeks later...

عند نقل بيانات من نموذج (رئيسى مرتبط مع فرعى) الى جدولين مرتبطين أيضا ب  باستخدام ID

تم نقل البيانات بالفعل ولكن النموذج الفرعى عندما يحتوى على اكثر من سجل ينقل فقط السجل الأول ويكرره

وهذا هو الكود

On Error Resume Next
If Me.mz = False Then
Me.mz.Value = 1
Dim dbs As DAO.Database
  Dim rst As DAO.Recordset
  Dim i
 Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("head")
  rst.AddNew
rst("ID").Value = Nz(DMax("ID", "head")) + 1
rst("التاريخ").Value = Me![التاريخ]
rst("رقم الاذن").Value = "SYS" & Me![رقم الاذن]
rst("مميز الحركة").Value = Me![مميز الحركة]
rst("كود نوع الحركة").Value = Me![كود نوع الحركة]
rst("كود المخزن").Value = Me![الى مخزن]
rst("Descreption").Value = "قيد اضافة مخزنى لاذن رقم" & Me![رقم الاذن]
  rst.Update
  rst.Close
Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("details")
      rst.AddNew
 For i = 1 To Me![tttt]
  rst.AddNew
rst("ID").Value = Nz(DMax("ID", "head"))
rst("كود الصنف").Value = Me![d_s12]![كود الصنف]
rst("الوارد بالكرتونة").Value = Me![d_s12]![المنصرف بالكرتونة]
rst("الوارد الفرعى").Value = Me![d_s12]![المنصرف الفرعى]
DoCmd.GoToRecord , , acNewRec
rst.Update
   Next
MsgBox " تم التحويل بين المخازن بنجاح ", vbInformation, "رسالة"
rst.Close
Set rst = Nothing
   End If

 

 

 

 

 

abdel.rar

تم تعديل بواسطه أبو آدم
احتواء الكود
رابط هذا التعليق
شارك

On ‏١٥‏/‏٠٣‏/‏٢٠١٨ at 1:54 PM, asdfar said:

اريد شرح كيف يتم التحويل لكمية من مخزن لمخزن

فمثلا يوجد لدى مخزن رئيسى للإنتاج التام وأريد ان احول منه الى مخزن اخر وليكن سيارة بيع فكيف يتم ذلك في نموذج تحويل يتم الصرف من مخزن الإنتاج التام والاضافة في مخزن السيارة

المطلوب بشكل اخر

قمت بعمل نموذج تحويل بحيث يقوم بإدخال اذن واحد  يتم تسجيله في المخازن مرتين الأولى كصرف ويكرر مره أخرى كمضاف في المخزن التالى

وقمت بعمل ذلك عن طريق كود تحويل

وللعلم تم المطلوب ولكن في النموذج الفرعى يقوم بتكرار السجل الأول فقط ثم يكرره

مرفق القاعدةabdel.rar

رابط هذا التعليق
شارك

جرب هذا الكود و وافني بالنتيجة

أظن و الله أعلم ان هذا يفي بالغرض و يقضي حاجتك 

Private Sub tr_fere_Click()
On Error Resume Next
If Me.mz = False Then
  Me.mz.Value = 1
End If

Dim dbs As DAO.Database
  Dim rst As DAO.Recordset
  Dim rstX As DAO.Recordset
  Dim myRst As Recordset
  
 Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("head")
  rst.AddNew
rst("ID").Value = Nz(DMax("ID", "head")) + 1
rst("التاريخ").Value = Me![التاريخ]
rst("رقم الاذن").Value = "SYS" & Me![رقم الاذن]
rst("مميز الحركة").Value = Me![مميز الحركة]
rst("كود نوع الحركة").Value = Me![كود نوع الحركة]
rst("كود المخزن").Value = Me![الى المخزن]
rst("Descreption").Value = "قيد اضافة مخزني لاذن رقم" & Me![رقم الاذن]
  rst.Update
  rst.Close
  Set rst = Nothing

Set dbs = CurrentDb
  Set frm = Me.d_s12.Form
  Set myRst = frm.RecordsetClone
    myRst.MoveFirst
    Do While Not myRst.EOF
    
 Set rstX = dbs.OpenRecordset("details")
   rstX.AddNew
rstX("ID").Value = Nz(DMax("ID", "head"))
rstX("كود الصنف").Value = myRst("[كود الصنف]")
rstX("الوارد بالكرتونة").Value = myRst("[المنصرف بالكرتونة]")
rstX("الوارد الفرعي").Value = myRst("[المنصرف الفرعي]")
rstX.Update

myRst.MoveNext
    Loop
    
MsgBox " تم التحويل بين المخازن بنجاح ", vbInformation, "رسالة"

myRst.Close
Set myRst = Nothing
rstX.Close
Set rstX = Nothing

End Sub

 

رابط هذا التعليق
شارك

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