محمد حمزه

الله يسعدك تمام

مافي اضافات اخي الكريم

ابا جودى السلام عليكم اخي الكريم شكرا على مرورك الكريم اريد اضافه صنف مثل صنف زيوت الطعام او معجون طماطم اذا قولت لدي 10 كرتونه معجون طماطم وتحتوي كل كرتونه على 150علبة هنقول : 100*150=1500 علبة اريد ان ادخل الـ 1500 علبة تلقائيا كيف......؟ العمليه مثلها مثل توزيع سلف الموظف على شهور يعني عندي موظف اخد 5000 ريال سلفة على 10 اشهر بكتب قيمة كل شهر وعدد الشهور ومن ثم تاريخ بداية اول قسط وعند الضغط على زر توزيع الاقساط يتم توزيع الاقساط تلقائيا نفس الشيء في طلبي وجزاكم الله خير الجزاء

هل من طريقه بارك الله فيكم

السلام عليكم ورحمة الله وبركاتة لدي نموذج رئيسي ونموذج فرعي يربطهما علاقة طرف بكثير وهو عباره عن استلام فاتورة مشتريات المطلوب مساعدتي فيه هو اذا جاء فرد المشتريات باعطائي فاتورة مكونه من 15صفحه ومجمل الفواتير تحتوي على 200صنف الصنف الواحد مثل زيوت الطعام وهو 100 كرتونه في 24 زجاجه بيساوي 2400 زجاجه وعند الصرف تصرف عن طريق الباركود زجاجه زجاجه واذا تم ادخال اجمالي الكرتون في عدد الكرتونه الواحده بيعطيني اجمالي الزجاجات وهنا تمت الاضافه ولكن عند الصرف عند قراءت الباركود ياتي بكافة الكميه كلها وهذا غير مطلوب تم عمل في النموذج الرئيسي كود الصنف واسم الصنف والوحد والسعر هنا لكي اسهل علي كتابة الصنف الذي يحتوي على كمية كبيره وتم اضافة من رقم باركود ثم العدد الذي يحتويه الصنف من عدد زجاجات ومن ثم الى رقم باركو يعني وليكن لدي صنف كوده 100001 اسمه زيت العلا 2لتر الوحده زجاجه السعر 14 ريال هنا تمت بالفعل وتم اضافة من رقم بركود ثم عدد الوحدات التي سوف يتم عمل بركودلها ومن ثم الى رقم بركود وبعد الادخل يتم ترحيل كل وحده على حده في النموذج الفرعي مثل طريقة توزيع الاقساط في سلف العاملين ولكن لم تفلحي معي واليكم المرفق رقم الباركود.rar

احسنت اخي الكريم هذا هو المطلوب بالفعل بارك الله فيك اخي الكريم

حاولت التعديل على هذا الكود بدلا من استعلام الحاق DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = -1;" Forms![Form_StorPri]![Form_StorExchSubform]![ItimeCode] = Me![ItimeCode] Forms![Form_StorPri]![Form_StorExchSubform]![NameItemIn] = Me![NameItem] Forms![Form_StorPri]![Form_StorExchSubform]![UnetIn] = Me![Unet] Forms![Form_StorPri]![Form_StorExchSubform]![A-NoIn] = Me![A-No] Forms![Form_StorPri]![Form_StorExchSubform]![QtyIn] = Me![Qty] Forms![Form_StorPri]![Form_StorExchSubform]![PraicIn] = Me![Praic] Forms![Form_StorPri]![Form_StorExchSubform]![TotalIn] = Me![Total] DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True Me.Requery DoCmd.Close ولكن لم يفلح معي

استاذي محمد أبوعبدالله مشكور على مرورك اخي الكريم اخي محمد أبوعبدالله عند الاختيار بعد التحديد والضغط على موافق لم يرحل معي كل الاصناف كل ماريده هوا مثل هذا الكود Forms![FormName]![SubFormFormName]![Text] = Me![Text] Forms![FormName]![SubForm_FormName]![Text] = Me![Text] Forms![FormName]![SubForm_FormName]![Text] = Me![Text] Forms![FormName]![SubForm_FormName]![Text] = Me![Text] docmd.close

السلام عليكم ورحمة الله وبركاته استاذتي الكرام لديل جدول المستودعات اساسي وفرعي بالجدول الفرعي عند النقر على كود الصنف به زر تحديد الكل والغاء التحديد اريد عند الضغط على تحديد الكل ومن ثم الضغط على زر موافق يتم نقل كافة السجلات المحدده ومرفق الملف للتعديل عليه جزاكم الله خير الجزاء Hmza.rar

أبو عبدالله الحلوانى بارك الله فيك اخي الكريم تمت بنجاح اشكرك كل الشكر ناقل شكر كل الشكر اخي الكريم تمت العملية

DoCmd.RunSQL "INSERT INTO Table_777_MaturityscheduleOte ( Dart,Finncy ,Stop-Salary , CodeStaff,NameStaff , CodeJ,NameJop ,CodeSec,NameSection,CodeAdm,NamAdmin,NamCopmany,DateStarWork,NameAsthkak,SalaryPrimry,BadelMove,BadelTravil,BadelOther,PricDay,NoHourse,NoDayStadar,NoDayAchoal,HorsOverTim,ValueOverTim,HorsBack,ValueHorsBack,StopDay,ValueStopDay,GoAfters,ValueQun,GoAprovit,ValueAprovit,SalaryCut,Akopat,ValueAkopat,Kadwoo,ValueKadwoo,TotalS,TotalCut,TotalFree,Descrption,AccountBank,CodeBancks,NamesBancks,AccountBankCombany,Tawgih,Depet,Elpians,PisceLink )SELECT tblOrders.&_" FROM Table_776_Maturityschedule.Dart, Finncy, Table_776_Maturityschedule.Stop - salary, Table_776_Maturityschedule.CodeStaff, Table_776_Maturityschedule.NameStaff, Table_776_Maturityschedule.CodeJ, NameJop, Table_776_Maturityschedule.CodeSec, Table_776_Maturityschedule.NameSection, Table_776_Maturityschedule.CodeAdm, Table_776_Maturityschedule.NamAdmin, Table_776_Maturityschedule.NamCopmany, Table_776_Maturityschedule.DateStarWork, Table_776_Maturityschedule.NameAsthkak, Table_776_Maturityschedule.SalaryPrimry, Table_776_Maturityschedule.BadelMove, Table_776_Maturityschedule.BadelTravil, Table_776_Maturityschedule.BadelOther, Table_776_Maturityschedule.PricDay, Table_776_Maturityschedule.NoHourse, Table_776_Maturityschedule.NoDayStadar, "" Table_776_Maturityschedule.NoDayAchoal , Table_776_Maturityschedule.HorsOverTim, Table_776_Maturityschedule.ValueOverTim, Table_776_Maturityschedule.HorsBack, Table_776_Maturityschedule.ValueHorsBack, Table_776_Maturityschedule.StopDay, Table_776_Maturityschedule.ValueStopDay, Table_776_Maturityschedule.GoAfters, Table_776_Maturityschedule.ValueQun, Table_776_Maturityschedule.GoAprovit, Table_776_Maturityschedule.ValueAprovit, Table_776_Maturityschedule.SalaryCut, Table_776_Maturityschedule.Akopat, Table_776_Maturityschedule.ValueAkopat, Table_776_Maturityschedule.Kadwoo, Table_776_Maturityschedule.ValueKadwoo, Table_776_Maturityschedule.TotalS, Table_776_Maturityschedule.TotalCut, Table_776_Maturityschedule.TotalFree, Table_776_Maturityschedule.Descrption, Table_776_Maturityschedule.AccountBank, Table_776_Maturityschedule.CodeBancks, Table_776_Maturityschedule.NamesBancks, Table_776_Maturityschedule.AccountBankCombany, Table_776_Maturityschedule.Tawgih , Table_776_Maturityschedule.Depet, Table_776_Maturitysc ,PisceLink " WHERE (((tblOrders.OrderNumber)=[forms]![frmorders]![OrderNumber]));" DoCmd.RunSQL "DELETE Table_776_Maturityschedule.OrderNumber FROM tblOrders WHERE (((tblOrders.OrderNumber)=[forms]![frmorders]![OrderNumber]));" حاولت عمل &_ لكي انشاء سطر لما تفلح معي

د.كاف يار استاذنا الكريم بارك الله فيك على مجهودك الكريم نعم تم تشغيل معي بدون غلطه 100% ولكن في التقرير في حدث عن الفتح حاولت اخلي يترجم ما داخل النص ولكني عجزت وستخدمت هذا الكود Private Sub Report_Open(Cancel As Integer) On Error Resume Next Items_NameAdd_Exch.Text = Translate(Items_NameAdd_Exch.Text, "ar", "en") End Sub ولكنه تفشل معي هل الترجمه تنص فقط على الليبل فقط ولا تنطبق على ماهو داخل النص شكرا لكم