د.كاف يار

تفضل هذا التعديل Dim fso As Object, oFSO As Object, oFolder As Object, _ oFile As Object, FilePath As String, SetFileName As Variant, CastumerID As Integer CastumerID = 1 Set oFSO = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set oFolder = oFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) For Each oFile In oFolder.Files SetFileName = Split(Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1), ".")(0) If SetFileName = CastumerID Then FilePath = FilePath & vbNewLine & Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1) End If Next oFile End If End With MsgBox FilePath و لا تنسى اضافة المكتبة

تفضل هذا التعديل Dim player As WindowsMediaPlayer Set player = WindowsMediaPlayer3.Object With player .URL = CurrentProject.Path & "\MyAudio.mp3" .settings.setMode "loop", True End With MyAudio.zip

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

جرب هذا MyAudio.zip

تفضل هذا التعديل =IIf([حالة الدفع]="تم السداد";[مجموع]-[مبلغ];IIf([حالة الدفع]="تم السداد";[مجموع]-0;IIf([حالة الدفع]="مؤجل";[مجموع]-0;0)))

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

اعانكم الله

العفو شكرال لكم جميعا فردا فردا تعجز الكلمات عن التعبير شكرالكم على دعمكم المعنوي و الأخوي و لا حرمني الله من اخوتكم

تفضل هذا التعديل A- DATA (3).accdb

تفضل هذا لتعديل ترقيم بقناع.accdb

تفضل التعديل A- DATA (3).zip

ما شاء الله عليك مبدع و عجبتني هذي الرسمة ماشاء الله تبارك الرحمن

تفضل هذا التعديل تم عمل بعض التعديلات حيث ان تم انشاء جدول للطلبات و جدول للموظفين و يتم جمع جميع طلبات الموظف داخل الارشيف في حدث الحالي A- DATA.accdb

تفضل التعديل On Error GoTo ErrH Dim fso As New FileSystemObject If fso.FolderExists(Environ("USERPROFILE") & "\Desktop\Folder2") = True Then fso.DeleteFolder (Environ("USERPROFILE") & "\Desktop\Folder2") Else fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\Folder2") End If DoCmd.RunSavedImportExport "export" fso.CopyFile Environ("USERPROFILE") & "\Desktop\Folder2\Table1.xlsx", True Exit Sub ErrH: MsgBox "Err Number : " & Err.Number & vbNewLine & "Err Description :" & _ vbNewLine & Err.Description, vbCritical

تفضل التعديل Msaneed List.zip

بهذا تكون المشكلة انتهت ما راح تحتاج تطبق باقي الفاتورة كيف تنفذ هذه بدون المواصفات الفاتورة الكترونية اذا فأنت بحاجة post and get كذلك استدعاء API فلن تستطيع استقبال post رقم فاتورة اذا لم تكن برمجيا مستوفي الشروط الدنيا يجب ان تقرأ المواصفات جيدا حتى تتمكن من انشاء الفاتورة الالكتروني الموضوع ليس كما تفضلت به مجرد كود استجابة سريع يا سلام عليك فعلا انت استاذ و رئيس قسم من الطراز الفاخر فهلا هذا مطابق للمواصفات

و بما ان الموضوع مطروح للنقاش آمل من ان نتشارك بتطوير نظام للحصول على مخراجات المرحلة الأولى من الفاتورة الالكترونية الدليل به ادق التفاصيل المساعدة 8.1 Introduction This chapter describes the different VAT information that can be provided in an electronic invoice. Please also see VAT category codes for details on the VAT category code list, and Calculation of VAT for detailed explanation and example on how to perform the calculations for VAT Breakdown.

للأسف هذه غير مطابقة للمواصفات لو رجعنا الى الدليل الارشادي للمطورين ستجد بأن الأرقام لابد ان تكون هندية الصحيح بأن تبدء من الآن في جدولة الأعمال لكي تصل للنتيجة قبل الوقت المحدد ! مرفق المواصفات الفنية لقواعد البيانات و مخراجت ملف XML الموضوع بسيط 442806521_20210528_ZATCA_Electronic_Invoice_XML_Implementation_Standard_vShared(1).pdf

تفضل هذا لتعديل Msaneed List.zip

لفتح ملف استخدم التالي Dim myPath As String myPath = Environ("USERPROFILE") & "\Downloads\EXCELFile.xlsx" ' مسار الملف Call Shell(myPath, vbNormalFocus) و لإغلاق ملف استخدم التالي Dim SetApplication As Object, FilePath As String FilePath = Environ("USERPROFILE") & "\Downloads\EXCELFile.xlsx" ' مسار الملف Set SetApplication = GetObject(FilePath) SetApplication.Application.Quit

تفضل التعديل Database9.accdb

تفضل هذا التعديل =IIf(DCount("*";"[Workermain]";"[Worker] Like '" & [Forms]![WorkerSub]![Worker] & "'")>0;"موجود";IIf(IsNull([Forms]![WorkerSub]![Worker]);"";"غير موجود")) Worker.accdb

تفضل هذا التعديل Dim fso As New FileSystemObject If fso.FolderExists(Environ("USERPROFILE") & "\Desktop\" & "\Folder2") Then Else fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\" & "\Folder2") End If DoCmd.RunSavedImportExport "export" fso.CopyFile Environ("USERPROFILE") & "\Desktop\" & "Folder2\Table1.xlsx", True

استخدم Environ("USERPROFILE") & "\Desktop\" & fldrname

تفضل هذا التعديل Create Folder .accdb