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

[asdfar]

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

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

[sandanet]

اخي الكريم ببساطة لن تحصل على مساعدة بهذه الطريقة .. فلا احد يعرف عن ماذا تتحدث .. لذلك ارفق قاعدة بياناتك واشرح فيها المطلوب 

[asdfar]

عند نقل بيانات من نموذج (رئيسى مرتبط مع فرعى) الى جدولين مرتبطين أيضا ب  باستخدام 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

تم تعديل أبريل 8, 2018 بواسطه أبو آدم
احتواء الكود

[asdfar]

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

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

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

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

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

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

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

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

[asdfar]

اين الردود من المشرفيين المتميزين - الامر هام

 

[أبو آدم]

بالنسبة لي لا استطيع ان اتصور الاجراء مجردا دون القاعدة ... فعذرا

[asdfar]

الأخ المحترم أبو ادم اليك القاعدة

 

abdel.rar

[asdfar]

الرجال المحترمون هو الامر صعب

 

 

[أبو آدم]

إصبر قليلا .... قيد الاجراء

[أبو آدم]

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

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

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

 

[asdfar]

والله انت معلم

الف مليونننننننننننننننننننننن  شكرررررررررررررر

 

 

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات