كل الانشطه

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

السلام عليكم الأخوة الأفاضل في هذا المنتدى الجميل في هذ الموضوع اريد أنشاء برنامج مخزن ، وقد قمت بانشاء الجداول والنمادج الخاصة به كمايلي: جدول : table_categorie_sunf جدول خاص بإدخال الأصناف مثل : الحمص – العدس-....مع تحديد الرصيد الأولي جدول: table_classe_categorie جدول خاص بتحديد أقسام الأصناف مثال: صنف : العدس القسم الخاص به هو المواد الغدائية جدول : table_client جدول خاص بالعملاء أو الزبائن وهم الأشخاص الذين يتم أعطائهم السلع من المخزن جدول: table_fournisseur جدول خاص بالموردين أو الممونين وهم الأشخاص الذين يمونون المخزن بمختلف السلع جدول : table_magasin جدول خاص بتسمية مختلف المخازن الموجودة مثال : مخزن 1- مخزن 2 جدول: table_entre وفيه نقوم بإدخال مختلف الأصناف (السلع) الواردة إلى المخزن من طرف الممونين (المردين) مع تحديد الكمية الواردة. جدول: table_sortie و فيه نقوم بإخراج مختلف السلع من المخزن وتسليمها للعملاء (الزبائن) ، مع تحديد الكمية المخرجة وكذا المخزن المخرجة منه. - وقمت بإنشاء نماذج لهذه الجداول وتحمل نفس الاسم. كبداية أريد حساب رصيد الأصناف في نموذج forms_credit_categorie : وهذا انطلاقا من: الرصيد الأولي للصنف الرصيد الوارد الرصيد الصادر الرصيد النهائي:...؟ الرجاء منكم اخواني المساعدة والتوجيه وبارك الله فيكم وربي يجازيكم خير الجزاء stock.accdb

تحية طيبة للمهندسين الكرام، تم الربط للمرحلة الثانية لشركة لديها نظام اكسس عبر نظام وسيط، والربط جاهز وسريع، تم العمل عليه من قبل مختصين و خبراء في الربط مع هيئة الزكاة والضريبة والجمارك للمرحلة الثانية، وتم ترحيل الفواتير للبرودكشن إضافتاً عن مميزات البرنامج الوسيط الذي يساعد في اعتماد الفواتير بسرعة عالية وتنفيذ كامل بدون أخطاء. للتواصل معي 0596563808 او عبر الايميل said.solution1@gmail.com

الحمد لله والشكر لله بالتوفيق لو أمكن مشاركتها للتجربة

السلام عليكم ورحمة الله وبركاته أخي الكريم لقد قمت بإضافة التعديل للبحث داخل النص عن اسم الكتاب أولاً ولم تتغير النتيجة كما أن الدالة بالفعل تعتمد في البحث عن اسم الكتاب ومع ذلك سأحاول ان اتحقق مرة أخرى إليك النسخة الجديدة في المرفقات وبها تم عمل الدالة المسؤولة عن استخراج الكتب وهي بالأساس تعتمد علي عدد أسماء الكتب المدخلة فقد أضفت اسم كتاب أسد الغابة حتي يظهر بالنتائج قد تأخذ بعض الوقت ولكن إذا كانت مفيدة فهي تستحق الحمد لله ولا حول ولا قوة إلا بالله Smart_Search_Pages_V3.zip فقط بقي أمر واحد وهو معالجة المواضع المتأخرة الحل المقترح في ذهني سيجعل الدالة تعمل لوقت طويل سأحاول التفكير مرة أخرى والله المستعان

لدينا حل ربط نظام بالاكسس MS Access مايكروسوفت مع هيئة الزكاة والضريبة والجمارك للتواصل 0546710242 او على الايميل said.solution1@gamil.com فواتير إلكترونية (Electronic Invoices) الهيئة الزكوية والضريبية (Zakat and Tax Authority) ربط الأنظمة (System Integration) إدارة الفواتير (Invoice Management) تحول رقمي (Digital Transformation) تكامل الأنظمة (System Integration) تقارير ضريبية (Tax Reports) الامتثال الضريبي (Tax Compliance) تقنيات الذكاء الاصطناعي (AI Technologies) إصدار الفواتير (Invoice Issuance) Electronic Invoicing ZATCA Integration Tax Compliance System Integration Invoice Management Digital Transformation Tax Reports AI Technologies Invoice Issuance Tax Authority ZATCA Integration Electronic Invoices Saudi Arabia Tax Compliance Software Digital Transformation in Tax Zakat and Tax Authority Integration AI in Tax Reporting Invoice Management Solutions Saudi Arabia Tax Invoicing System Integration for ZATCA Compliance with ZATCA Regulations

طيب وبعد وقفة طويلة مع النفس وبعد دعوات استاذى الجبيب الاستاذ @ناقل وجدتنى غير راض عن الافكار السابقة لم احس فيها بالمرونة الفائقة فالكود تم تقديمه وفقا لتوجيهات ومتطلبات الدكتورة @safaa salem5 ولذلك اقدم اليكم الاكواد مرة اخرى بشكل اكثر مرونة لتحقيق اكبر قدر ممكن من الاستفادة بشطل عام مع اى قاعدة وفق اى متغيرات اخرى اولا دالة لعمل مجلد او مجلدات وفق الكود التالى ' Function to create directories if they do not exist Public Function CreateDirectories(ByVal basePath As String, ByVal folderNames As String) As String Dim fullPath As String Dim folderArray() As String Dim folderName As Variant ' Split the folderNames string into an array folderArray = Split(folderNames, ",") fullPath = basePath ' Loop through each folder name and create the directory if it doesn't exist For Each folderName In folderArray fullPath = fullPath & "\" & Trim(folderName) If Dir(fullPath, vbDirectory) = "" Then MkDir fullPath End If Next folderName ' Return the final full path CreateDirectories = fullPath End Function دالة تصدير اى تقرير ' Function to export report to PDF Public Function ExportReportToPDF(ByVal reportName As String, ByVal outputFilePath As String) On Error GoTo ErrorHandler ' Export the report to PDF DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, outputFilePath ' Notify the user MsgBox "Report has been exported to: " & outputFilePath, vbInformation Exit Function ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbExclamation End Function واخيرا كود زر الامر Dim baseFolderPath As String Dim folderNames As String Dim finalFolderPath As String Dim outputFilePath As String Dim patientID As String Dim patientName As String Dim visitCodeORvisitDate As String Dim reportName As String Dim outputFileName As String ' Set the values for the parameters patientID = "12345" patientName = "Moh3sam" visitCodeORvisitDate = "2024-06-11" outputFileName = "YourOutputFileName" ' Set the values for the base path and folder names baseFolderPath = CurrentProject.path ' The base path of the current database folderNames = "results" & "," & patientID & "_" & patientName & "," & visitCodeORvisitDate ' Comma-separated folder names ' Create the directories and get the final path finalFolderPath = CreateDirectories(baseFolderPath, folderNames) ' Set the report name and output file path reportName = "rptTest" ' The name of the report outputFilePath = finalFolderPath & "\" & outputFileName & ".pdf" ' The desired output file name with full path ' Call the function to export the report to PDF ExportReportToPDF reportName, outputFilePath وهذا المرفق النهائى.. export report to PDF V. 2.accdb

تحميل برنامج محاسبة مجانى تم اعداد شيت اكسيل احترافى لكى يكون برنامج محاسبة مجانى احترافى , حيث يتميز هذا الشيت بكثير من المميزات التى تجعلة يعمل كبرنامج محاسبة احترافى , فهو يصلح كبرنامج محاسبة للمحلات التجارية والمحلات الصغيرة والمشروعات الصغيرة والمتوسطة , يحتوى الشيت على صفحة رئيسية تجعلك قادر على التنقل فى كل محتويات الشيت بسهولة . تحميل برنامج محاسبة بسيط مجاني عربي تم اعداد هذا الشيت لكى يصبح برنامج محاسبة بسيط ويعمل بسهولة على جميع الاجهزة ويعمل ايضا على الموبايل بسهولة , حيث تم اعداد الشيت بشكل بسيط واحترافى فهو لا يحتوى على اى برمجة تجعلة لا يعمل على اغلب الاجهزة , ولاكن تم اعدادة بمعادلات حسابية تجعلة قادر على تنفيذ كل العمليات المالية والتجارية بسهولة . يمكنك التحميل بسهولة من خلال الرابط التالى : https://www.accarab.com/2024/05/sales.html

ماذا تعنى شجرة الحسابات ؟ شجرة الحسابات (Accounting Tree) هي هيكلية تُستخدم في مجال المحاسبة لتنظيم وتقديم المعلومات المالية بطريقة منظمة وهيكلية. تتألف شجرة الحسابات من مجموعة من الحسابات المالية المختلفة التي تمثل الأصول، الخصوم، وحقوق الملكية في الشركة أو المؤسسة. تبدأ شجرة الحسابات بمستوى عام (مثل الأصول، الخصوم، وحقوق الملكية)، ثم تفصل إلى مستويات فرعية أكثر تفصيلاً تمثل الفئات الفرعية لكل مستوى. على سبيل المثال، في قسم الأصول، يمكن أن تكون هناك فروع للنقد والاستثمارات والمخزون والأصول الثابتة وما إلى ذلك. يساعد استخدام شجرة الحسابات في تنظيم وتصنيف المعلومات المالية بطريقة منطقية ومنظمة، مما يجعلها سهلة الوصول والفهم للمستخدمين الداخليين والخارجيين، مثل المستثمرين والمديرين والجهات التنظيمية. كما يساعد في تسهيل عمليات التقارير المالية تحميل شجرة حسابات جاهزة ودليل حسابات شركة مقاولات Excel من خلال هذا المقال تستطيع تحميل شجرة حسابات جاهزة لكل شركات المقاولات وايضا دليل حسابات شامل لشركات المقاولات , يمكنك الان التحميل بشكل مباشر من خلال الضغط على الرابط https://www.accarab.com/2024/03/tree.html التالى

اشكرك وايد استاذ @Ahmos ❤️🌹 👍 تمة التجربة ميدوال رائع صحيح عند اختيار صورة حجم K4 تمتد الصورة وعند تجربة صورة اقل من الجوده تتم الاقتصاص شفت استاذي @ابو جودي من مرفق امس دخان 😂 من غير رعود ============================ Editor_Size And Cropping an Image With Controll Print v.1.part1.rar Editor_Size And Cropping an Image With Controll Print v.1.part2.rar

السلام عليكم

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

جرب لعله يكون مفيدا Private Sub Worksheet_Change(ByVal Target As Range) Dim ch As Variant Dim cell As Range ' تحقق إذا كانت التغييرات داخل النطاق المطلوب If Not Intersect(Target, Me.Range("E10:E1009")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False ' ضبط الأسماء وإزالة المسافات الزائدة لكل خلية تم تغييرها For Each cell In Intersect(Target, Me.Range("E10:E1009")) ' ضبط الأسماء قبل عملية الأبجدة For Each ch In Array("إ", "أ", "آ") cell.Value = Replace(cell.Value, CStr(ch), "ا", 1, -1, vbTextCompare) Next cell.Value = Replace(cell.Value, "ة", "ه", 1, -1, vbTextCompare) cell.Value = Replace(cell.Value, "ي ", "ى ", 1, -1, vbTextCompare) ' إزالة المسافات الزائدة Do While InStr(cell.Value, " ") > 0 cell.Value = Replace(cell.Value, " ", " ") Loop cell.Value = Trim(cell.Value) Next cell Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

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

خطأ في الكود

انا كاني سامع حد بينادي .... مين بيتكلم ...... انا اسمي موجود ..... انا هنا .... وانا حاضر يا بشمهندس

طيب وحتى لا يقال اننى ناقل عن الاستاذ @ناقل لن اقوم بتعديل الاكواد انا معقد و افضل العمل دائما وفق مرونة واحترافية بقدر الامكان وفقا لذلك هذه طريقتى اولا عمل موديول باسم : basExportReportToPDF الاكواد فى الموديول Option Compare Database Option Explicit ' Function to create directories if they do not exist Public Function CreateDirectoryIfNotExists(ByVal path As String) If Dir(path, vbDirectory) = "" Then MkDir path End If End Function ' Function to export report to PDF Public Function ExportReportToPDF(ByVal patientID As String, ByVal patientName As String, ByVal visitCode As String, ByVal reportName As String, ByVal outputFileName As String) Dim baseFolderPath As String Dim resultsFolderPath As String Dim patientFolderPath As String Dim visitFolderPath As String Dim outputFilePath As String ' Get the base folder path of the current database baseFolderPath = CurrentProject.path ' Define the path for the results folder resultsFolderPath = baseFolderPath & "\results" ' Create the results folder if it does not exist CreateDirectoryIfNotExists resultsFolderPath ' Define the path for the patient folder patientFolderPath = resultsFolderPath & "\" & patientID & "_" & patientName ' Create the patient folder if it does not exist CreateDirectoryIfNotExists patientFolderPath ' Define the path for the visit folder visitFolderPath = patientFolderPath & "\" & visitCode ' Create the visit folder if it does not exist CreateDirectoryIfNotExists visitFolderPath ' Define the output file path outputFilePath = visitFolderPath & "\" & outputFileName & ".pdf" ' Export the report to PDF DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, outputFilePath ' Notify the user MsgBox "Report has been exported to: " & outputFilePath, vbInformation End Function ثانيا زر امر فى النموذج على ان يكون الكود داخل زر الامر كالاتى Dim patientID As String Dim patientName As String Dim visitCode As String Dim reportName As String Dim outputFileName As String ' Set the values for the parameters patientID = "12345" patientName = "Moh3sam" visitCode = "2024-06-11" reportName = "rptTest" outputFileName = "YourOutputFileName" ' Call the function to export the report to PDF ExportReportToPDF patientID, patientName, visitCode, reportName, outputFileName وطبعا تحياتى وكل تقدير لاستاذى الجليل ومعلمى القدير الاستاذ @ناقل قطعا بدأت مشاركتى بمداعبة استاذى القدير . وهذه قاعدة البيانات بالتطبيق export report to PDF.accdb

جرب لعله يكون مفيدا Private Sub Worksheet_Change(ByVal Target As Range) ' تحقق إذا كانت التغييرات داخل النطاق المطلوب If Not Intersect(Target, Me.Range("E10:E1009")) Is Nothing Then ' ضبط الأسماء قبل عملية الأبجدة Dim ch As Variant Application.ScreenUpdating = False With Me.Range("E10:E1009") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا", , , True Next .Replace "ة", "ه", , , True .Replace "ي ", "ى ", , , True End With ' إزالة المسافات الزائدة Dim lr As Long, i As Long lr = Me.Cells(Me.Rows.Count, 5).End(xlUp).Row For i = 10 To lr Do While InStr(Me.Cells(i, 5), " ") > 0 Me.Cells(i, 5).Value = Replace(Me.Cells(i, 5), " ", " ") Loop Me.Cells(i, 5).Value = Trim(Me.Cells(i, 5).Value) Next i Application.ScreenUpdating = True End If End Sub

ما هو فعلا فيه مجلد معمول جاهز بالاسم دا فى البرنامج تمام كد بس ياريت تسمية الريبورت بالاسم مع ال ID مع محتويات التقرير من تحاليل اللى هى SUB TEST لان نفس المريض ممكن يتم عمل تصدير لتحاليل اخرى فى ريبورتات مختلفه لذا وجب تسمية الريبورت بنوع التحليل

ممكن نفكر بصوت عالى انا موافق بعمل الاتى فى المجلد الاساسى الحالى لقاعدة البيانات يتم عمل مجلد باسم results وبداخل المجلد results يتم عمل مجلد ID لكود المريض مع اسم المريض وبداخل مجلد ID يتم عمل مجلد بكود الزيارة او بالتاريخ لسهولة تتبع التقارير مستقبلا من المجلدات حتى وبدون فتح قاعدة البيانات ايه راي حضرتك يا دكتور ؟؟ واعتقد اسم التقرير فقط مجموعة التحاليل يكون افضل

Dim Project_path, Dir_File As String Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1") Dir_File = Project_path & "\ملفات تم تصديرها\" DoCmd.OutputTo acOutputForm, "تذاكر_نموذج_استعلام", "PDFFormat(*.pdf)", Dir_File & "تذاكر " & Format(Now, "DD-MM-YYYY") & ".pdf", False انا لقيت كود للاخ ناقل بس محتاج تعديل

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

لو حبيت اضعهم في Private Sub Worksheet_Change(ByVal Target As Range) يكون ازاي

بشرط ان التقرير يتم تصديره الى مسار البرنامج الحالى حتى مع تغيير المستخدمين لمكان احتفاظهم بالبرنامج عايزه نتيجة كل مريض تتخزن فى فولدر بكود المريض ID داخل فولدر اسمه results هيكون موجود داخل ملفات البرنامج وعايزه اسم التقرير يحتوى على اسم المريض PNAME مع كود المريض ID مع اسم مجموعة التحاليل SUB