رياض البرعي قام بنشر يناير 29, 2017 قام بنشر يناير 29, 2017 السلام عليكم ورحمة الله وبركاته اخواني انا مبتدئ في الاكسس و الحمد لله تعلمت من هذا الصرح الكبير الكثير و الكثير و انا اعمل على برنامج مبيعات و مشتريات و الحمد لله انهيتة و كل فترة و اعمل له بعض التعديلات حسب طلب العميل الذي يستخدمة و المطلوب في النظام هو انة عند فتح التقرير و القيام بحفظة يتم حفظ التقرير باسم العميل الذي في السجل اي ان : اذا كان السجل خاص بالعميل : احمد محمد خالد فيتم حفظ التقرير بهذا الاسم في مجلد معين و المرفق موجود للتعديل علية من قبل المختصين وهو access 2013 و الف شكر مقدماً لكل من سيبحث و يساعدني db1.zip
أبو عبدالله الحلوانى قام بنشر يناير 29, 2017 قام بنشر يناير 29, 2017 وعليكم السلام ورحمة الله أرجو التوضيح أكثر ماذا تعنى بحفظ التقرير باسم العميل - حيث أن المعتاد هو حفظ سجلات العميل داخل الجدول ويتم عرض هذه البيانات من خلال التقرير هل تقصد تصدير التقرير الى أحد الصيغ Word أو Pdf مثلا وحفظ هذا الملف باسم العميل - ان كان هذا ما تعنى فهذا أمر مستغرب تصدير كل هذه الملفات وحفظها - اذا ما جدوى وجود قاعدة البيانات وانشاء التقارير التى بامكانى استدعائها متى شئت وقت الحاجة وعلى كل ان كان هذا مرادك عملنا لك على تنفيذه ان شاء الله - ولكن نرجو توضيح السبب.
رياض البرعي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 الي اقصدة هو تصدير التقرير كما قلت pdf ولكن عند تصديرة اريدة ان ياخذ اسم العميل الي قمت بتصدير بياناته اما السبب ان مستخدم النظام يحتاج لهذة الطريقة من اجل رفع ملفات الpdf الي الواتس لابلاغ كل عميل بحسابة و يحتاج ليكون كل ملف باسم عميل معين
Shivan Rekany قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 13 ساعات مضت, رياض البرعي said: الي اقصدة هو تصدير التقرير كما قلت pdf ولكن عند تصديرة اريدة ان ياخذ اسم العميل الي قمت بتصدير بياناته اما السبب ان مستخدم النظام يحتاج لهذة الطريقة من اجل رفع ملفات الpdf الي الواتس لابلاغ كل عميل بحسابة و يحتاج ليكون كل ملف باسم عميل معين اتفضل اخي اليك هذا الكود Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X وهذا ملفك بعد التعديل اذا تريد غير مسار الملف من قرص دي الى اي مكان تريد db1 (7).zip 1
رياض البرعي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 4 ساعات مضت, Shivan Rekany said: اتفضل اخي اليك هذا الكود Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X وهذا ملفك بعد التعديل اذا تريد غير مسار الملف من قرص دي الى اي مكان تريد db1 (7).zip تسلم اخي Shivan Rekany من قرائتي للكود ارى انك فهمت قصدي وهو المطلوب ولكن عند التنفيذ ظهرت المشكلة التي في الصورة فهل هناك اي اعدادت او مكتبات لازمة لعمل الكود
co2002co قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 السلام عليكم ورحمة الله وبركاته الكود شغلا ميه ميه المشله ب اعدادات الاكسس عندك
رياض البرعي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 11 دقائق مضت, co2002co said: السلام عليكم ورحمة الله وبركاته الكود شغلا ميه ميه المشله ب اعدادات الاكسس عندك و ما الحل هل من اعدادات يجب ان اعملها مع العلم اني استخدم اكسس 2013
رياض البرعي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 1 ساعه مضت, co2002co said: هل الجهاز عندك فيه بارتشن D ايوة موجود
أبو عبدالله الحلوانى قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 هل اضفت الى الكود شىء أو جعلته مع أكواد أخرى أو أرسل لنا مثالا الذى حدثت به المشكلة
رياض البرعي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 23 دقائق مضت, أبو عبدالله الحلوانى said: هل اضفت الى الكود شىء أو جعلته مع أكواد أخرى أو أرسل لنا مثالا الذى حدثت به المشكلة لم اضف على الكود شي و لم يشتغل معي بالاساس على الملف الي حملتة ازلت اوفيس 2013 و ثبت 2007 و ظهرت رسالة جديدة كما في الصورة التالية غيرت الامتدادت (التنسيق) .docx و PDF و XML و مافي فائدة
أبو عبدالله الحلوانى قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 جرب هذا التعديل ووافنا بالنتائج نصيحتى لك والتى تعلمناها من أساتذتنا بالمنتدى اجعل لاحقة خاصة بكل كائن تدل عليه ولنفرض مثلا لاحقة للجداول tbl - وللاستعلامات qry - وللنماذج frm > وهكذا تسبق اسم الكائن أو تلحقه للتميز بين الكائنات داخل الأكواد ولتتمكن من الرجوع اليها بسهولة اذا طال بمشروعك زمن. وانظر ايضا المرفق الخاص بالاستاذ جعفر بهذا الموضوع فهو مشابه لموضوعك 1
Shivan Rekany قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 10 ساعات مضت, رياض البرعي said: تسلم اخي Shivan Rekany من قرائتي للكود ارى انك فهمت قصدي وهو المطلوب ولكن عند التنفيذ ظهرت المشكلة التي في الصورة فهل هناك اي اعدادت او مكتبات لازمة لعمل الكود عفوا اخي على التأخير الرد لكن انا جربت على اوفيس 2013 و اشتغل بالضبط لكن هل عندك برامج لفتح ملفات pdf ؟ 6 ساعات مضت, رياض البرعي said: لم اضف على الكود شي و لم يشتغل معي بالاساس على الملف الي حملتة ازلت اوفيس 2013 و ثبت 2007 و ظهرت رسالة جديدة كما في الصورة التالية غيرت الامتدادت (التنسيق) .docx و PDF و XML و مافي فائدة وبالنسبة اكسس 2007 ما يشتغل عليه لانه الكائن pdf ليس موجود بين الصيغ اللي حولناه التقرير هذا والله اعلم 1
أبو عبدالله الحلوانى قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 11 ساعات مضت, أبو عبدالله الحلوانى said: جرب هذا التعديل ووافنا بالنتائج آسف نسيت المرفق تفضل db2.rar 1 1
رياض البرعي قام بنشر يناير 31, 2017 الكاتب قام بنشر يناير 31, 2017 5 ساعات مضت, أبو عبدالله الحلوانى said: آسف نسيت المرفق تفضل db2.rar تسلم اخي اشتغل معي على 2013 في جهاز اخر هناك مشكلة في جهازي الف الف الف شكر لك ولكل من عمل على مساعدتي 1
رياض البرعي قام بنشر فبراير 1, 2017 الكاتب قام بنشر فبراير 1, 2017 16 ساعات مضت, أبو عبدالله الحلوانى said: آسف نسيت المرفق تفضل db2.rar السلام عليكم اخي ابو عبدالله ثقلت عليك كثير فاعذرني هناك طلب اخير انشاء الله اذا كنت اريد ان اجعل المستخدم هو من يحدد مسار الملف دون التدخل برمجيا اي وضع زر عند النقر علية تفتح نافذة لتحديد مسار تصدير الملف و يتم حفظ الملف في المسار المرغوب من قبل المستخدم
Shivan Rekany قام بنشر فبراير 1, 2017 قام بنشر فبراير 1, 2017 2 ساعات مضت, رياض البرعي said: السلام عليكم اخي ابو عبدالله ثقلت عليك كثير فاعذرني هناك طلب اخير انشاء الله اذا كنت اريد ان اجعل المستخدم هو من يحدد مسار الملف دون التدخل برمجيا اي وضع زر عند النقر علية تفتح نافذة لتحديد مسار تصدير الملف و يتم حفظ الملف في المسار المرغوب من قبل المستخدم اليك هذا الكود لكن لازم انت تكتب الاسم اي بأي اسم تريد تصديره DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)" هذا والله اعلم 3
TAMER AGOOR قام بنشر ديسمبر 16, 2020 قام بنشر ديسمبر 16, 2020 السلام عليكم Private Sub Command172_Click() On Error GoTo Err_Command172_Click Dim strDefaultPrinter As String strDefaultPrinter = Application.Printer.DeviceName Set Application.Printer = Application.Printers("Universal Document Converter") Dim stDocName As String stDocName = "Urine cc" DoCmd.OpenReport stDocName, acNormal Set Application.Printer = Application.Printers(strDefaultPrinter) Exit_Command172_Click: Exit Sub Err_Command172_Click: MsgBox Err.Description Resume Exit_Command172_Click End Sub ده زر امر بطبع بيه التقرير ازاى استخدم الكود المكتوب هنا بتاع تغير اسم التقرير ياسم العميل بحيث اسم التقرير المخزن يطلع باسم العميل وشكرا
seeef قام بنشر ديسمبر 20, 2020 قام بنشر ديسمبر 20, 2020 في ٣١/١/٢٠١٧ at 14:16, أبو عبدالله الحلوانى said: آسف نسيت المرفق تفضل db2.rar الكود يعمل على المرفقات بشكل ممتاز ولكن اضفته على برنامج عندي ويعطي اسم الفورم بدل من الاسم الموجود بالسجل في حين ان الكود يقبل تسميه ملف البي دي اف برقم الفاتورة هذا التعديل باسم المشتري ولكن التقرير لايحفظ بالاسم Private Sub Command18_Click() Dim X As String X = Me.name & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub هذا التعديل رقم الفاتورة والامور تمام يحفظ التقرير برقم الفاتورة Private Sub Command18_Click() Dim X As String X = Me.nemar & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub هل من حل للمشكلة ؟
ابوبسمله قام بنشر ديسمبر 21, 2020 قام بنشر ديسمبر 21, 2020 وعليكم السلام اخى الفاضل @seeef في ٢٠/١٢/٢٠٢٠ at 21:31, seeef said: Private Sub Command18_Click() Dim X As String X = Me.name & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub غير فالنموذج اسم الحقل name الى txtName مثلا وعليه يتغير الكود الى Private Sub Command18_Click() Dim X As String X = Me.txtName & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub وذلك لان الاشاره بـ me.name فهى لاسم النموذج بالتوفيق 2
seeef قام بنشر يناير 18, 2021 قام بنشر يناير 18, 2021 في ٢٢/١٢/٢٠٢٠ at 01:02, احمد الفلاحجي said: وعليكم السلام اخى الفاضل @seeef غير فالنموذج اسم الحقل name الى txtName مثلا وعليه يتغير الكود الى Private Sub Command18_Click() Dim X As String X = Me.txtName & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub وذلك لان الاشاره بـ me.name فهى لاسم النموذج بالتوفيق ماشاء الله تبارك الله الان الكود يعمل بشكل ممتاز جزاك الله كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.