asdfar

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

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

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

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

abdel.rar

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

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

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

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

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

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

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

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

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

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

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

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