نجوم المشاركات

رائع جدا لکن هناك بيطلع خطأ عند اختيار كومباكت بيعطيك رسالة الخطأ المرقمة ب 3045 اي لا يجد القاعدة هناك لكي يعمل كومباكت >>>>> وممكن ان تظاف اليه كومباكت القاعدة الحالية ام قاعدة اخر بدون نسخة احتياطية لكي يكتمل اكثر تحياتي

جزاك الله كل خير أستاذ سليم كود رائع بارك الله فيك وهذا كود اخر لإثراء الموضوع Sub MyPrint2() ActiveSheet.Unprotect Password:="123" Application.ScreenUpdating = False With Sheets("Print") With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

جرب هذا الكود F34 to A1 تحديد مدى الطباعة من في الكود الاول يجب ازالة كلمة Rem من أمام السطر الذي تريده لاننا امام خيارين (معاينة قبل الطباعة Print Preivew او طباعة رأساً Print) Option Explicit Sub Button1_Click() PRint_erea 'اختر هنا السطر الذي تريده ' من امامه Rem و ذلك بازالة كلمة Rem ActiveSheet.PrintPreview Rem ActiveSheet.Print End Sub '====================================== Sub PRint_erea() Range("E14:E37").EntireRow.Hidden = False Range("E14:E37").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub '===================================== Sub SHOW_ROWS() Range("E14:E37").EntireRow.Hidden = False End Sub الملف مرفق Print_tableau.xls

تفضل اخى الكريم tableau.xlsm

اعرض الملف النسخ الاحتياطي والضغط بخيارات متقدمة بسم الله الرحمن الرحيم كل عام أنتم بخير وسعادة ورضا بمناسبة عشر ذي الحجة وعيد الأضحى المبارك أعاده الله علينا جميعا بالصحة والسعادة استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بالتعامل مع قواعد البيانات النسخ الاجتياطي أو الضغط والإصلاح بطريقتين أولا لقاعدة البيانات الحالية والثانية لقاعدة بيانات يتم تحديدها مع إمكانية استعمال المجلد الحالي أو أي مجلد يتم تحديده كمكان للنسخ أو الضغط والنسخ وكل ذلك في نموذج واحد وبأبسط كود ممكن ويوجد في الملف الكثير من الأكواد التعليمية الرائعة مثل: استعمال متصفح الملفات المضمن في الأوفيس بدون دوال الويندوز استعمال متصفح المجلدات المضمن في الأوفيس بدون دوال الويندوز استخلاص اسم الملف من مساره الكامل استخلاص امتداد الملف من مساره استخلاص اسم الملف بدون امتداده من مساره استخدام أوامر الدوس داحل الأكسس ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل بإذن الله إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 12 أغس, 2018 الاقسام قسم الأكسيس

السلام عليكم ورحمة الله أردت أن أقدم لإخوتي وأخواتي الكرام بعض الدوال الإضافية في إكسيل جميلة ومهمة حسب بعض الحاجيات في البرنامج... أرجو أن تكون مفيدة... نقوم بتنصيب الملف بعد تحميله من الرابط التالي (برنامج إكسيل يجب أن يكون مغلقا) دوال مستحدثة morefunc ونختار أثناء التنصيب اللغة التي تكون بها هذه الدوال (الفرنسية أو الإنجليزية) وبعد التنصيب يفتح برنامج إكسيل ورقة نجد فيها مساعدات حول هذه الدوال... نغلق الملف المفتوح (ملف المساعدة) إذا لم نكن بحاجة إليه... وسنجد هذه الدوال الجديدة (حوالي 70 دالة جديدة) بعد فتح أي ملف جديد أو قديم في قائمة الدوال تحت عنوان morefunc...

مش كنت ضايفهم لك في التعديل الأول 🤔 ؟

شكرا لمروركم العطر أخي @نهر الفنون وفقنا الله جميعا لكل ما يحب ويرضى ☝️

اخي الكريم ساعود لك بعد ان اغير النطام الي العربي لانني لا استطيع ان ارى اين المشكلة تحياتي

هذا كود اننشاء مجلد واحد Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار" Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد في المسار" End If End If

اخي العزيز هل QQ اسم نموذج الاستعلام ؟ لم ارى هذاالاستعلام في ملفك؟ ارجو الافادة

السلام عليكم جرب هذا الكود لم استطيع التعديل على ملفك لانه بالعربي وانا النطام عندي بالانكليزي If DCount("*","NameOfYourQuery") = 0 Then Msgbox "No records found تحت Command82 انطر للصورة

السلام عليكم جرب هذا الكود لم استطيع التعديل على ملفك لانه بالعربي وانا النطام عندي بالانكليزي If DCount("*","NameOfYourQuery") = 0 Then Msgbox "No records found

تفضل اخى الكريم هذا بالكود examp.xlsm

جرب ذلك من خلال هذه الخطوات New ورقة عمل Microsoft Excel.xlsx

السلام عليكم ورحمة الله تع الى وبركاته جزاكم الله خيرا استاذى الحبيب @Khalf هل ان اثقل على كاهلكم بشى هل يمكن عمل الحسابات كما بالنموذج فى استعلام مبشرة بالاحرى انا حاولت عمل هذا السطر فى الاستعلام DSum(" [Expr2] ","qryDiffcalcA"," [Emp_Code] = [Emp_Code] and [Expr1] = [Expr1] ")/60 ولكن للاسف لم استطع

قد تجد ضالتك هنا https://www.officena.net/ib/topic/64989-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل-،-32بت-و-64بت/

السلام عليكم لعل سؤالك هذا هو الوحيد الذي قد أحمل إجابته من بين أسئلتك : أضف زراً و عدل الحدث اجعله EXPORTWITHFORMATING و اختر الجدول و الاستعلام و حدد نوع الملف إكسل مثلاً . بالنسبة للأكواد أجعل الحدث ... DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "اسم الجدول كما ترغب به", "اسم الجدول الذي ترغب بإضافته" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "اسم الجدول كما ترغب به", "اسم الجدول الذي ترغب بتصديره"

وليه تطبع النموذج ؟؟ الأفضل دائما طباعة التقرير

أستاذى الكريم اسم المستخدم وكلمة السر صحيحان ولكن عليك بكتابة اسم المستخدم كما هو على ان يكون أول حرف ,حرف كبير أى كالتالى : Reem وكلمة السر : 232629

السلام عليكم قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب.... بن علية حاجي New.xlsx

السلام عليكم ورحمة الله استخدم هذا الكود Sub SaveFile() Dim fname As String Dim path As String fname = Range("A1").Value path = Application.ActiveWorkbook.path If True Then Application.ActiveWorkbook.SaveAs Filename:=path & "\" & fname, _ FileFormat:=xlOpenXMLWorkbook , CreateBackup:=False End If End Sub

شاهد هذا الفيديو https://www.youtube.com/watch?v=9PPVWGJUtZ4

وإذا كنت ترديد الاستمرار في طريقتك بترك حقل الانصراف فارغ فضع هذه الجمله لحساب الوقت الاضافي Expr1: IIf(IsNull([last TI]) Or IsNull([time out]);"00:00";Format(TimeSerial(Hour(Nz([last TI]))-Hour(Nz([time out]));Minute(Nz([last TI]))-Minute(Nz([time out]));Second(Nz([last TI]))-Second(Nz([time out])));"Short Time")) ::بالتوفيق::

نتمنى التعديل على هذا الملف لإرسال رسائل مختلفة ........... ختى ولو استغرق وقتاً في الإرسال

وإياكم أستاذ محمد لا تنس أن الفكرة من موضوعك هذا تطوير للفكرة فهل التطوير للأفضل ؟

السلام عليكم اسمحوا لي ان انقل تجربتي فى برنامج المخازن لعلها تفيدكم لو هتتعامل مع اكثر من مخزن يبقا لازم نعمل حقل يسمي ( نوع الصرف --نوع الاضافة ) لان بيكون فى صرف داخلي للمخزن نفسه وصرف خارجي للمخازن الاخري وكذلك الاضافة ....... فى اضافة مشتراه للمخزن واضافه محوله من مخزن اخر