kanory

طيب استبدل هذا الكود الموجود في مربع التحرير السرد item في حدث بعد التحديث .... On Error Resume Next Me.unit = DLookup("[unit]", "tb_items", "item='" & Me.item & "'") Me.price = DLookup("[price]", "tb_items", "item='" & Me.item & "'") بهذا الكود ........ Me.unit = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(1) Me.price = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(2)

فكرة ::::::: يمكن عمل جدول حقولها ( الطابعة الافتراضية - طباعة الباركود - طباعة الريست ............................... ) ثم في زر الطباعة لكل تقرير تحدد الحقل المناسب لها عن طريق هذا الكود ..... ( طبعا الفكرة لم اجربها ولكن تكمن في تغيير الطابعة الافتراضية في كل مرة تريد طابعة تقرير معين حسب الجدول الذي قمت انت بتحديد نوع الطابعة في الحقل الخاص به ) جرب واعلمنا بالنتيجة ..... وممكن عند احد الاخوة طريقة افضل On Error Resume Next Dim strRptName strRptName = "ReportName" DoCmd.SelectObject acReport, strRptName, False SetDefaultPrinter ("fieldName") DoCmd.OpenReport strRptName, acViewNormal

تفضل <<<<<<>>>>>>> أوامر الشراء.accdb

لم افهم ماذا تقصد بالكميات السابقة هل هي الموجود في هذا الجدول أم غيره

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

الخطأ :::: لانك سميت احد الكائنات بعبارة محجوزة للاكسس وهي page <<<<<<< غير اسم مربع النص الى اسم اخر مثلا txt_page

في حدث عند تحميل النموذج sirtfecat ضع هذا الكود ... وجرب واعلمنا <<<<<>>>>> DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO sirtf_details ( item_nob, item_descr, unte, contr_Qty, contr_price, nob4 ) SELECT item.item_nob, item.item_descr, item.unte, item.contr_Qty, item.contr_price, DLast(""[nob3]"",""[sirtfecat]"") AS Expr2 FROM item;" DoCmd.SetWarnings True

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

تفضل>>>>>>>>> kan_reportsetting.accdb

بعد إذن أخي الحبيب قاسم تفضل جرب مثالك بعد الضغط على العناوين بالضغط المزدوج ..... واعلمنا بالنتيجة ..... kan_reportsetting.accdb

اشكرك استاذي الفاضل اسرعة تفاعلك ... جعله الله في ميزان حسناتك ..

هذه دلالة انك وجدت الاجابة ........ وعادة توضع لافضل اجابة لك ولسؤالك ..... لان من يرى علامة الصح فلن يدخل الموضوع ( على اساس انك وجدت ضالتك ) فلن تحصل على الاجابات أخي الكريم ...

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

على العموم كل هذه توقعات منكم .. وشكرا الله لكم .... لكن تتوقف الاجابة على رد السائل او ارفاق مرفق واضح لما يريد فعله بالضبط ..

كيف لا ... وقد اختصرت لنا كتابة الاكواد وسرعة الانجاز .... اشكرك مرة اخرى اخي الكريم وكل جهد تبذلة في المنتدى .... هنيئا لنا بك ..

في مصدر بيانات مربع النص ضع هذا =DSum("[Odb_Qty]";"[Odb_PlaningMonthe_ForCost_ProdactionSUM]";"[Odb_Type] Like 'برميل'") وغير لبقية مربعات النص جالون كرتون بالمناسبة هذه الاداة مفيدة جدددددددددددددددددددددددددددا وشكرا لصانعها وبارك فيه

طيب :::: خلينا نفهم انت كيف بتدخل هذه الارقام هل هناك نموذج لذلك ؟؟؟ اذا كانت الاجابة نعم .... 1- نحتاج ان نربط بين جدول هذه البيانات ( الغياب والحضور والقيد ) وجدول الامتحان ........ على الاقل وقت ادخال تلك البيانات 2- نحتاج نضيف حقول في جدول الغياب لليوم والتاريخ والفترة والمادة أو نختصرها بـ ID خاص في جدول الامتحان وهذا الرقم يضاف عند تسجيل البيانات في جدول الغياب 3- الخطوة الاخيرة استعلام للحقول التي نحتاجها في التقرير ....

العين لا تعلو على الحاجب ..... عارف حتقول اذا كان الشخص مقلوب ..... هههههههه

تفضل طريقة اخرى ......... 'السابق Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex - 1) 'التالي Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex + 1) 'اول سجل Me.نص1 = Me.نص1.ItemData(0) 'اخر سجل Me.نص1.Selected(Me.نص1.ListCount - 1) = True

ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint

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

مشاركة مع حبيبنا المهندس قاسم ..... Not Between 500 And 505

امسح اسم التقرير الموجود في الكود واعد كتابته لان به مسافة غير مرئية ولا يكثر من استخدام On Error Resume Next

استبدل هذا الجزء .... Vl = InputBox("ادخل التاريخ") بهذا الجزء ...... Vl = Forms!test1!tx4

وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم ..يمكن ذلك .. وذلك في رأس الصفحة