ABOUOMER

شباب هل فية طريقة لعمل ذلك؟ up

شباب هل فية طريقة لعمل ذلك؟

السلام عليكم ما هو كود دمج عدة ملفات pdf في ملف واحد؟ تحياتي

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

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

السلام عليكم ورحمة الله وبركاتة عند تصدير استعلام او فورم الى اكسل فى حالة الحقل حقل رقمى تنسيقة standerd Deicmal Places تساوى 0 عند التصدير الى اكسل ياتى الرقم متبوعا بصفرين زيادة فما الحل اكرمكم الله مع العلم انى احتاج هد التنسيق شكرا لكم

نسخة zip من فضلكم

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

رسالة خطا اخى جعفر

جهاز العمل لا يوجد بة ون رار الرجاء نسخة ZIP

الاخوة الافاضل رسالة الخطا السابقة مستمرة

تظهر رسالة حطا علما انى استخدم اكسس 2013

ZIP يا شباب

ممكن نسخة zip

تم حل المشكلة تحياتى

كود الخطا لم يعمل معى انا وصعت الكود عند دبل كليك على صورة Image5_DblClick On Error GoTo err_Image5_DblClick: Kill Replace(Me.txtPath, ".csv", ".xls") 'now we have a csv file correctly saved, 'convert it to xls Dim objXLApp As Object Dim wBook As Object Set objXLApp = CreateObject("Excel.Application") Set wBook = objXLApp.Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close 'False objXLApp.Quit Set wBook = Nothing Set objXLApp = Nothing 'delete the temp cvs file Kill nFile_Name Exit_Image5_DblClick: Exit Sub err_Image5_DblClick: If Err.Number = 53 Then 'file not found Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If

اشتغل اول مرة بنجاح ولكن عن تشغيلة مرة اخرى ظهرت الرسالة التالية On Error Resume Next تمت اضافة السطر السابق وانحلت المشكلة Kill Replace(Me.txtPath, ".csv", ".xls") 'now we have a csv file correctly saved, 'convert it to xls Dim objXLApp As Object Dim wBook As Object Set objXLApp = CreateObject("Excel.Application") Set wBook = objXLApp.Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close 'False objXLApp.Quit Set wBook = Nothing Set objXLApp = Nothing 'delete the temp cvs file Kill nFile_Name سلمت يداك اخى العزيز جعفر زاداك الله من علمة ونفع بك

نسخة مضغوطة ZIP

شاهد اخى الكريم

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

الاكسل لا يزال مفتوحا اخى الكريم وموجود فى Task Manager

تفضل اخى 298.Remove_3_Lines_csv.mdb.zip

If Dir("\\PC1689\Ras Laffan Common Folder\Report\SupplyDetailed.csv") = "" Then MsgBox "file SupplyDetailed.csv not found", vbCritical DoCmd.CancelEvent Exit Sub End If Dim TextLine, File_Name, File_ext, Folder_Name, nFile_Name File_Name = Dir(Me.txtPath) 'the file name only File_ext = Mid(File_Name, InStrRev(File_Name, ".") + 1) 'the file extension Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name 'a temp csv file to transfer to it the correct lines nFile_Name = Folder_Name & Mid(File_Name, 1, Len(File_Name) - Len(File_ext) - 1) & "_2." & File_ext 'open both Input and Output files Open Me.txtPath For Input As #1 Open nFile_Name For Output As #2 i = 0 Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. i = i + 1 'skip the 1st 3 lines, and write the rest If i >= 1 Then Print #2, TextLine End If Loop Close #1 Close #2 'now we have a csv file correctly saved, 'convert it to xls 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False 'delete the temp cvs file Kill nFile_Name الاخ الفاضل جعفر نحية طيبة وبعد الكود السابق من من تصميمك وهو خاص بتحويل ملف csv الى اكسل بعد حذف سطر واحد فقط المشكلة انة تظهر رسالة فى حالة وجود ملف سابق ويظهر ملف بصيغة csv مرقم برقم 2 ولا يمكن حذفة الا بعد عمل اعادة تشغيل للجهاز هل يمكن تحويل الملف الى اكسل وحذف الاسطر المطلوبة بدون ظهور هذة الرسالة وحتى فى حالة وجود ملف سابق تحياتى

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

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