البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته بعد مواجهتى لمشكلة فى هذه النقطة عند التعامل مع ملفات الاكسل بسبب اختلاف النسخ والتنسيق لملفات الاكسل تبعا لاختلاف الاصدارات كانت هذه نتيجة وخلاصة افكاارى لحل مشاكلى اليكم الخطوات 1- انشاء وحدة نمطية عامة ليسهل استدعاء الدوال منها فى شتى زوايا التطبيق واعطائها الاسم التالى basFileUtilityKit بها هذه الكود ' Enumeration for the types of file dialogs Enum EnumFileDialogType msoFileDialogFilePicker = 1 msoFileDialogFolderPicker = 4 End Enum ' Enumeration for different file extensions Enum EnumFileExtensions AllFiles TextFiles ExcelFiles ImageFiles VideoFiles AudioFiles PDFFiles WordFiles ' You can add additional file extensions as needed here End Enum ' Enumeration for different options related to file paths Enum EnumOptionFile DirectoryWithoutFileName DirectoryWithFileName FileNameWithExtension FileNameWithoutExtension ExtensionOnly End Enum ' Function to open the folder dialog and return the selected folder path Function GetFolderDialog() As String On Error Resume Next Dim folderDialogObject As Object Set folderDialogObject = Application.FileDialog(EnumFileDialogType.msoFileDialogFolderPicker) With folderDialogObject .Title = "Select Folder" .AllowMultiSelect = False .Show End With If folderDialogObject.SelectedItems.Count > 0 Then GetFolderDialog = folderDialogObject.SelectedItems(1) Else ' Handle the case where no folder is selected MsgBox "No folder selected.", vbExclamation GetFolderDialog = "" End If Set folderDialogObject = Nothing On Error GoTo 0 End Function ' Function to open the file dialog and return the selected file path Function GetFileDialog(ByVal EnumFileExtension As EnumFileExtensions) As String On Error Resume Next ' Check if the Microsoft Office Object Library is referenced ' Make sure to go to Tools > References and select the appropriate version ' e.g., "Microsoft Office 16.0 Object Library" for Office 2016 Dim fileDialogObject As Object Set fileDialogObject = Application.FileDialog(EnumFileDialogType.msoFileDialogFilePicker) With fileDialogObject .Title = "Select File" .AllowMultiSelect = False .Filters.Clear ' Adding filters based on the selected file extension Select Case EnumFileExtension Case EnumFileExtensions.AllFiles .Filters.Add "All Files", "*.*" Case EnumFileExtensions.TextFiles .Filters.Add "Text Files", "*.txt" Case EnumFileExtensions.ExcelFiles .Filters.Add "Excel Files", "*.xlsx; *.xls" Case EnumFileExtensions.ImageFiles .Filters.Add "Image Files", "*.jpg; *.jpeg; *.png; *.gif" Case EnumFileExtensions.VideoFiles .Filters.Add "Video Files", "*.mp4; *.avi; *.mov" Case EnumFileExtensions.AudioFiles .Filters.Add "Audio Files", "*.mp3; *.wav; *.ogg" Case EnumFileExtensions.PDFFiles .Filters.Add "PDF Files", "*.pdf" Case EnumFileExtensions.WordFiles .Filters.Add "Word Files", "*.docx; *.doc" ' You can add additional file extensions as needed here End Select .Show End With If fileDialogObject.SelectedItems.Count > 0 Then GetFileDialog = fileDialogObject.SelectedItems(1) Else ' Handle the case where no file is selected MsgBox "No file selected.", vbExclamation GetFileDialog = "" End If Set fileDialogObject = Nothing Exit Function If Err.Number <> 0 Then Select Case Err.Number Case 3078: Resume Next ' Ignore error if user cancels the file dialog Case 0: Resume Next Case Else ' Call ErrorLog(Err.Number, Error$, strProcessName) End Select ' Clear the error Err.Clear End If End Function ' Function to get the desired option for a file path Function GetFileOption(ByRef strFilePath As String, Optional ByRef EnumOptionFile As EnumOptionFile = DirectoryWithFileName) As String On Error Resume Next Select Case EnumOptionFile Case DirectoryWithoutFileName GetFileOption = Left(strFilePath, InStrRev(strFilePath, "\")) Case DirectoryWithFileName GetFileOption = strFilePath Case FileNameWithExtension GetFileOption = Mid(strFilePath, InStrRev(strFilePath, "\") + 1) Case ExtensionOnly GetFileOption = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, ".")) Case FileNameWithoutExtension GetFileOption = Mid(strFilePath, InStrRev(strFilePath, "\") + 1, InStrRev(strFilePath, ".") - InStrRev(strFilePath, "\") - 1) End Select On Error GoTo 0 End Function ' Function to get additional information about a file Function GetFileInfo(filePath As String) As String On Error Resume Next Dim fileInfo As String fileInfo = "File Information:" & vbCrLf fileInfo = fileInfo & "Path: " & filePath & vbCrLf fileInfo = fileInfo & "Size: " & FileLen(filePath) & " bytes" & vbCrLf fileInfo = fileInfo & "Created: " & FileDateTime(filePath) & vbCrLf GetFileInfo = fileInfo On Error GoTo 0 End Function شرح الوظائف فى هذه الوحدة النمطية Enumerations توفر طريقة لتعريف مجموعة من الثوابت التي يمكن استخدامها لتحديد أنواع معينة من القيم. EnumFileDialogType هذه الـ Enumeration تستخدم لتحديد نوع مربع الحوار الخاص بالملفات: msoFileDialogFilePicker: لفتح مربع حوار لاختيار الملفات. msoFileDialogFolderPicker: لفتح مربع حوار لاختيار المجلدات. EnumFileExtensions هذه الـ Enumeration تستخدم لتحديد نوع الامتدادات التي يمكن اختيارها من مربع حوار الملفات: AllFiles: جميع الملفات. TextFiles: ملفات النصوص. ExcelFiles: ملفات إكسل. ImageFiles: ملفات الصور. VideoFiles: ملفات الفيديو. AudioFiles: ملفات الصوت. PDFFiles: ملفات PDF. WordFiles: ملفات وورد. EnumOptionFile هذه الـ Enumeration تستخدم لتحديد الخيارات المختلفة المتعلقة بالمسارات: DirectoryWithoutFileName: المسار بدون اسم الملف. DirectoryWithFileName: المسار مع اسم الملف. FileNameWithExtension: اسم الملف مع الامتداد. FileNameWithoutExtension: اسم الملف بدون الامتداد. ExtensionOnly: الامتداد فقط. Functions GetFolderDialog هذه الدالة تفتح مربع حوار لاختيار المجلدات وتعيد المسار الكامل للمجلد الذي تم اختياره. إذا لم يتم اختيار أي مجلد، تعرض رسالة تنبيه وتعيد قيمة فارغة. GetFileDialog هذه الدالة تفتح مربع حوار لاختيار الملفات وتعيد المسار الكامل للملف الذي تم اختياره. يمكنك تحديد نوع الملفات المسموح باختيارها عبر الـ EnumFileExtensions. إذا لم يتم اختيار أي ملف، تعرض رسالة تنبيه وتعيد قيمة فارغة. GetFileOption هذه الدالة تستخدم لتحديد أجزاء معينة من مسار الملف بناءً على القيمة المحددة في الـ EnumOptionFile: DirectoryWithoutFileName: يعيد المسار بدون اسم الملف. DirectoryWithFileName: يعيد المسار مع اسم الملف. FileNameWithExtension: يعيد اسم الملف مع الامتداد. FileNameWithoutExtension: يعيد اسم الملف بدون الامتداد. ExtensionOnly: يعيد الامتداد فقط GetFileInfo هذه الدالة تعيد معلومات حول ملف محدد، بما في ذلك المسار، الحجم، وتاريخ الإنشاء. تعرض هذه المعلومات كجزء من نص مرتجع. ------------------------ 2- انشاء وحدة نمطية عامة ليسهل استدعاء الدوال منها فى شتى زوايا التطبيق واعطائها الاسم التالى basExcelDataImport بها هذه الكود Public Const strTableExcel As String = "tblImportExcel" Function ExcelDataImport(ByRef excelFilePath As String) On Error Resume Next ' Disable error handling temporarily Const xlOpenXMLWorkbook As Long = 51 ' Variables for Excel and Access Dim excelApp As Object Dim excelWorkbook As Object Dim excelOpened As Boolean Dim sourceFileName As String Dim mainDirectory As String Dim convertedExcelFilePath As String ' Check if the Excel file path is provided If Nz(excelFilePath, "") = "" Then Exit Function ' Check if the Excel file exists If Dir(excelFilePath) = "" Then Exit Function ' Extract file information sourceFileName = GetFileOption(excelFilePath, FileNameWithExtension) mainDirectory = GetFileOption(excelFilePath, DirectoryWithoutFileName) convertedExcelFilePath = excelFilePath ' Create Excel application object Set excelApp = CreateObject("Excel.Application") ' Check if Excel application is successfully created If Err.Number <> 0 Then Err.Clear Set excelApp = CreateObject("Excel.Application") excelOpened = False Else excelOpened = True End If ' Reset error handling On Error GoTo 0 ' Set Excel application visibility excelApp.Visible = False ' Open Excel workbook Set excelWorkbook = excelApp.Workbooks.Open(mainDirectory & sourceFileName) ' Save the workbook in xlsx format without displaying alerts excelApp.DisplayAlerts = False excelWorkbook.SaveAs Replace(mainDirectory & sourceFileName, ".xls", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False excelApp.DisplayAlerts = True ' Close the workbook without saving changes excelWorkbook.Close False ' Quit Excel application if it was opened by the function If excelOpened = True Then excelApp.Quit ' Update the source file name with the new extension sourceFileName = sourceFileName & "x" ' Reset file attributes SetAttr mainDirectory & sourceFileName, vbNormal ' Import Excel data into Access table DoCmd.SetWarnings False 'acSpreadsheetTypeExcel8 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTableExcel, mainDirectory & sourceFileName, True ExitFunction: ' Enable system alerts before exiting the function DoCmd.SetWarnings True Exit Function ErrorHandler: ' Handle errors Select Case Err.Number Case 3078: Resume Next ' Ignore error if user cancels the file dialog Case 0: Resume Next Case Else ' Call ErrorLog(Err.Number, Error$, strProcessName) End Select End Function ' Function to delete all records from the specified table Sub DeleteAllRecords(Optional ByRef strTable As String = "") On Error Resume Next If Nz(strTable, "") = "" Then strTable = strTableExcel CurrentDb.Execute "DELETE FROM " & strTable ' Handle errors Select Case Err.Number Case 3078 If strTable = strTableExcel Then Resume Next Else Case Else ' HandleAndLogError strProcessName End Select End Sub شرح الوظائف فى هذه الوحدة النمطية الدالة ExcelDataImport تستورد بيانات من ملف Excel إلى جدول في قاعدة بيانات Access. strTableExcel: ثابت يحدد اسم الجدول في قاعدة بيانات Access الذي سيتم استيراد بيانات Excel إليه. excelFilePath: مسار ملف Excel الذي سيتم استيراد البيانات منه. ------------------------ 3- انشاء نموذج وفى الحدث عند النقر على زر الامر استخدم الكود التالى Private Sub cmdSubmit_Click() ' Get the path of the Excel file Dim strFilePath As String strFilePath = GetFileDialog(EnumFileExtensions.ExcelFiles) ' Check if a file was selected If strFilePath <> "Cancelled" Then ' Show status label Me!lblStatus.Visible = True Me!lblStatus.Caption = "Please wait ... " ' Clear TableData DeleteAllRecords ' Import data from Excel ExcelDataImport strFilePath ' Add Or Update Yor Table ' Hide the status label or reset any visual indicator Me!lblStatus.Visible = False Else ' User canceled the file selection MsgBox "File selection canceled", vbExclamation End If End Sub الان يتبقى عمل الاستعلام اللازم لاضاقة او تحديث وتعديل بياناتك طبقا لجدول الاكسس حسب رغباتك وتطلعاتك واخيرا مرفق قاعدة البيانات ImportFromExel.accdb

التصميم فكرة مش مجرد برنامج ___البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات اتعلم موشن جرافيك بالبوربوينت l رسم وتصوير بالكاميرا https://youtu.be/95RmLp4QoYw

‏ملفات البرنامج تتكون ؟ ملف النماذج ملف البيانات ملف التقرير ملف الاستعلامات الشعار الخاص بالشركة يمكن تغييره من طرف حضرتك باختيار موقع الحفظ مميزات البرنامج البرنامج يدعم العديد من الشركات مثال اذا كان لديك اكثر من شركة او نشاط تجاري تستطيع اضافتهم علي السيستم يدعم تعدد الفروع مثال إذا كان لديك أكثر من فرع في الشركة، تستطيع إضافة جميعهم على السيستم. التقارير يمكن استخراج التقارير الى اكسل او وورد او PDF و CSV و HTML و غيرهم. استيراد البيانات يمكن استيراد البيانات الاساسية من اكسل للنظام. ترقيم المستندات مرونة كاملة فى ترقيم المستندات بمعنى انه يمكن عمل سريال خاص بمستندات كل فرع او كل مخزن. تحليل البيانات يدعم خاصية تحليل البيانات بمعنى انه يمكن معرفة تفاصيل ارصدة الحسابات بمجرد الضغط عليها. تقارير اضافية يدعم امكانية عمل تقارير اضافية بدون الرجوع لشركة PRO TECH. صلاحيات المستخدمين مستوى متقدم جدا من تفصيل الصلاحيات للمستخدمين حسب صلاحية كل مستخدم. الترابط بين الأقسام كافة اجزاء النظام مترابطة مع بعضها البعض. معايير المحاسبة تم بناء نظام PRO TECH مع مراعاة معايير المحاسبة المصرية والدولية. سهولة الاستخدام سهولة كبيرة فى استخدام نظام PRO TECH." النظام الأساسي يشتمل النظام الأساسي على كل ما يتعلق بإدارة المخازن وإدارة المشتريات والموردين وادارة المبيعات والعملاء والحسابات التشغيلية. يتكون النظام الأساسي PRO TECH من: نظام إدارة المخازن نظام إدارة المشتريات والموردين نظام إدارة المبيعات والعملاء نظام إدارة المصروفات نظام إدارة النقدية نظام إدارة أوراق القبض وأوراق الدفع نظام إدارة عُهد الموظفين نظام إدارة الحسابات المدينة والدائنة نظام المرتبات وشئون العاملين نظام ادارة المرتبات وشئون العاملين متخصص فى ادارة كل ما يتعلق بالموظفين داخل المنشأة ويساعد ادارة الموارد البشرية داخل المنشأة فى تنفيذ مهامها بمنتهى الدقة والسهولة. هذا النظام يشتمل على الاتى: جزء كامل لبيانات وملفات الموظفين. ادارة الحضور والانصراف داخل المنشأة مع امكانية تعريف سياسات ولوائح المنشأة حتى يتم تنفيذها بشكل تلقائى. كل ما يتعلق بالاجازات والاذون والمأموريات وسياسات التأخير والوقت الاضافى. السلف والمكافأت والجزاءات. المرتبات والتأمينات للتواصل وشراء النسخة الاتصال علي قم +201068694941

بسم الله الرّحمن الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته إخوتي في الله؛ رُوّاد أوفيسنا المباركون؛ فيما يلي موقِعٌ هديّة خاصّة، لمن يعمل في مجال التّصميم والعروض التقديمية. موقع يحوي آلاف الرسومات الجاهزة مجانًا للموشن جرافيك والعروض التقديمية آلاف الرسومات الجاهزة مجانًا للموشن جرافيك لمشروعك القادم! رسومات توضيحية مجانية رائعة قابلة للتخصيص لمشروعاتك يُمكنك بتخصيص الرسوم التوضيحية وتحريكها وتنزيلها لإنشاء صفحات مخصصة، أو تطبيق أو عروض تقديمية رائعة! رابط الموقع https://storyset.com/ .......................... في أمان الله.

كنت عايز اقفل قاعده البيانات اكسس وفتحها بالسريال نمبر فقط وتحديد عدد الايام وغلقها ويمكن تحديث السريال بعد فتره

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

بسم الله الرحمن الرحيم أنا مبرمج بالأكسس وكنا إذا أردنا حماية البرنامج قمنا بتحويله إلى mde وبعد التحويل لا يستطيع ولا حتى صاحب البرنامج أن يطّلع على الكود المكتوب في vba فكيف يتم ذلك في الإكسل ؟؟ شكرا لكم مقدما

التصميم فكرة مش مجر د برنامج _____البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات اتعلم موشن جرافيك بالبوربوينت l ايس كريم كونو ice cream cono https://youtu.be/tv4Guep71Qo

التصميم فكرة مش مجر د برنامج _____البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات رسم شخصية ميكي بالبوربوينت l اتعلم موشن جرافيك بالبوربوينت https://youtu.be/qpz0-pjAoDc

اتعلم موشن جرافيك بالبوربوينت l رسم وتحريك لحركة اليد بعلامة النصرl ما لاتعرفه عن البوربوينت https://youtu.be/P-1ARJPhHmk

شرح فكرة عمل نفس فكرة Navigation Button فى النموذج بحيث اقدر اعرف رقم السجل من اجمالى السجلات فى تسلسل فى الاكسيس https://youtu.be/JG_c8YjtaDE

• طباعة التقرير مباشرة من نموذج فى الاكسيس • طباعة التقرير من داخل التقرير نفسه • معالجة الاخطاء عند الغاء امر الطباعة RUN TIME ERROR https://youtu.be/nm_gxqt7D-U

كيفية كتابة نص توضيحي داخل TEXT BOX واخفاءه بمجرد الضغط عليه وازاي اقدر اغير لون الكتابة داخل TEXT BOX فى الاكسيس https://youtu.be/pWm5_-fm4rk

لوجوهات l ايقونات صممها بنفسك وبمنتهى السهوله بالبوربوينت l مالا تعرفه عن البوربوينت https://youtu.be/E0dWT_V40KI

ازاي اعمل باسورد للاكواد بحيث امنع المستخدمين من التعديل او الحذف فى الاكواد فى الاكسيس _ معلومه سهله ومهمه جدا - حماية قاعدة البيانات فى الاكسيس بدون اكواد https://youtu.be/ktE91YjNM1M

درس بنشرح فيه ازاي بيتم تلوين السجل بالكامل عند الوقوف على اي حقل من حقول السجل يتم تلوين جميع حقول السجل بلون واحد https://youtu.be/NbNAEthcB5k

ازاي اقدر اعمل تقسيم للبيانات النصيه فى خليه واحد الى اكتر من خليه وازاي اقدر اضم مجموعه من البيانات النصيه من خلايا مختلفه فى خليه واحده لابد من رفع ملف هنا يدعم الفيديو .. حيث لا تكتمل الإستفادة للجميع الا بوجود ملف لهذا الشرح https://youtu.be/tKkdkbyRJIo

عمل بحث سهل من داخل نموذج ادخال البيانات يساعد المستخدم فى معرفة بيانات العميل بسهوله ويسر بحث بواسطة القائمة المنسدله combo box فى الاكسيس قم بتطوير مهاراتك في إدارة البيانات إلى مستوى متقدم باستخدامك للاكسيس احترف الاكسيس https://youtu.be/MFHHeI_gslU

اتعلم موشن جرافيك بالبوربوينت رسم وتحريك لمشهد كسر البيضه وخروج الكتكوت البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات https://youtu.be/zgUGrobp5xc

فكرة عمل انترو مقدمه احترافيه بكل سهوله على الباوربوينت عمل انترو intro او مقدمة فيديو احترافية وجميلة تستخدمها فى قناتك على اليوتيوب وبخطوات سهله جدا وكل هذا على برنامج بوربوينت وهنتعرف على انيميشن او حركة جميلة على البوربوينت https://youtu.be/G-fUXXGJsBM

البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint https://youtu.be/Xlibk8ytk5k

https://youtu.be/CsZ_5md3QCM

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

السلام عليكم اقدم لكم نسخه من برنامج كاشير للمطاعم حسب ارقام الطاولات رقم المظلل بالاحمر يعني ان الطاولة رقم ... محجوز يمكنك رجوع اليها وعمل اوردر من تعديل البرنامج سهل للغايه يعمل فقط على الماوس * - الجدول : _ الفواتير المسدده يمكنك رجوع وتعديل عليها عن طريق الجدول وضغط دبل كليك على المراد تعديله * - التقرير :_ *- حذف الفواتير :_ يمكنك حذف الفواتير عن طريق تحديد الرقم وضغط على حذف يمكن استعلام على الفواتير المحذوفه من التقرير - فواتير محذوفه *- نقل الطاولة :_ يمكن نقل الطاولة حسب طلبك بتحديد على الطاولة المراد نقلها واختيار امر نقل الطاولة يظهر مربع تختار رقم الطاولة الجديد بحيث لا يكون مظلل بالاحمر . *- تعديل على الفاتورة : _ في حال رغبت الزبون طلب اوردر تختار رقم الطاولة المظلل بالاحمر وتغضط تعديل الفاتورة وتضيف الاوردر الثاني ويمكنك تكرار العملية في حال تكرار الصنف تضغط دبل كليك على الصنف +1 في حال الغاء -1 يوجد زر بجانب الشاشة الاصناف -1 في حال الغاء الصنف يوجد زر بجانب الشاشة * * - الاصناف : _ يمكنك اضافة اصناف رئيسية واصناف فرعيه الاصناف لا تحتاج الى كود لانها تختار كود اتوماتيكي طباعه الفواتير بشكل جديد دينماكيه صلاحية كامله للبرنامج الدخول : الدعم الفني كلمة سر : 123 يمكنك اضافت صلاحيات ومستخدمين كما قلت لكم نسخه قيد تطوير ... الحقوق النشر محفوظه ... اتنمنى ان ينال اعجابكم لتحميل : _ ‫كاشير-توزيع.xlsb