kaser906

السلام عليكم ورحمة الله وبركاتة هذا الكود يقوم بفتح التقرير على السجل المحدد Dim stDocName As String stLinkCriteria = "[Num_Itinerary_ID]=" & Me![Num_Itinerary] stDocName = "Rpt_1" DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria وهذا كود تصدير التقرير الى ملف pdf DoCmd.OutputTo acOutputReport, "Rpt_1", acFormatPDF, , True, , , acExportQualityPrint المطلوب : اضافة الشرط الى كود تصدير التقرير الى ملف pdf

الله يعطيك الف عافية استاذنا الوزير ويبقى السؤال مفتوحاً بأي برنامج قام الاستاذ منتصر بعمل العلامة المائية ؟

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

فعلا استاذ هذه السطور هي السؤولة عن رسم الكلمة الان اصبح الموضوع معقد أكثر هل هناك برنامج او شفرة معينة تجعلني اكتب الكلام الذي اريده ان يظهر

شكرا لك استاذ شفان انا فعلا توصلت للكود المشكلة لم أتمكن من الوصول الى كلمة ( قيد مقفل ) ممكن تفصيل لو سمحت

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

يعطيك العافية اخوي ابو ياسين لمينجح لكن بعد عدة محاولات نج بهذه الطريقة ;"EmpPdfFiel\" & [emp_id] & "\" & [name_morfke] & "") شكرا لك

تفضل بعد تعديل الفاتورة انقر على زر تحديث بالتوفيق،،، Hussein (4).rar

السلام عليكم ورحمة الله وبركاتة الكود التالي يقوم بتحديد مسار الملف حاولت اضيف عليه اسم مجلد متغير حسب رقم بالنموذج لكن لم تنجح المحاولة الكود يعمل بشكل صحيح فقط تعريف المتغير للمجلد emp_id أمل التعديل عليه المجلد المتغير يحمل نفس الرقم بالنموذج emp_id =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"EmpPdfFiel\" & "[emp_id]\" & [name_morfke])

شكرا استاذ شفان هذا هو المطلوب

يعطيك العافية الطريقة بعيدة عن المطلوب

اخي الكريم لنفترض أنك اغلقت قاعدة البيانات وأغلقت جهاز الحاسب الأمر الطبيعي هنا افراغ الذاكرة المؤقته لجهاز الحاسب وكل التطبيقات ومن ضمنها قاعدة البيانات الحقلين Ta1 و Ta2 حقلين غير منظمين السؤال هنا من أين سيتعرف البرنامج على أخر تاريخ قمت باستخدامه ؟ أذا كانت لديك فكرة تريد تنفيذها من خلال حاجتك لهذه الطريقة فطرحها لعلنا نستفيد منها

السلام عليكم ورحمة الله وبركاتة هذا الوكود يقوم بفتح ملف من جهاز الكمبيوتر بناء على المسار الموجود بالحقل T11 Application.FollowHyperlink Me.T11 المطلوب كود يقوم بحذف الملف من الجهاز حسب المسار الموجود بالحقل T11

تفضل باكرود 3.accdb

اعمل حقل في جدول وادخل التاريخ به عند فتح النموذج او في اي حدث تريد استخدم الدالة Dlookup لجلب قيمة الحقل من الجدول الى مربع النص بالنموذج بالتوفيق،،،

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

وعليكم السلام ورحمة الله وبركاتة ضع مرفق ليتمكن الاعضاء من مساعدتك

هذا ملف pdf باللغة الانجليزية ErrorNumberAccess2010-2003.pdf

استاذنا ابو ابراهيم النتائج ممتازة الله يعطيك ألف عافية

للاسف لم يأتي بنتيجة

الله يعطيك العافية استاذنا اخي الكريم تجاوزنا الان رقم الخطأ فقد تم معرفة الرقم 35 الان المطلوب الاستفادة من الخطأ في تنفيذ إجراء محدد ( إغلاق قاعدة البيانات)

ما شاء الله اليوم استاذنا يثيرينا بأبداعات شكرا لك

كيف لم اصنع شيء

تفضل بالتوفيق ،،، 334.rar

تم التوصل للحل عن طريق هذا الكود وأضعه هنا للفائدة العامه With Application.Forms For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> strExcept Then DoCmd.close acForm, .Name End If End With Next I End With DoCmd.OpenForm "frm_man"