د.كاف يار

جرب هذا 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

استخدم DMax DMax ( expression, domain, [criteria] ) ففي حالة انك تريد استكمال لسلسلة الأرقام لديك في الجدول استخدم التالي expression >>>> المعيار او اسم حقل الترقيم domain >>>> اسم الجدول Nz(DMax ( expression, domain),0)+1

هذه خاصة بالإكسل البديل عنها في الاكسس هي DCount DCount ( expression, domain, [criteria] ) مثال على ذلك DCount("UnitPrice", "Order Details", "OrderID = 10248") كذلك DCount("*", "Order Details", "OrderID = 10248") ففي المثال الخاص بك تم استخدام نفس الدالة للحصول على عدد الطلاب الحاصلين على مجموع درجات تتراوح من 70 الى 90 درجة DCount("*";"[Table1]";"[Number] Between 70 And 90") كذلك للحصول على نسبة هذه الشريحة من الطلاب استخدمنا التالي DCount("*";"[Table1]") ... اجمالي عدد الطلاب DCount("*";"[Table1]";"[Number] Between 70 And 90") ... اجمالي الطلاب الحاصلين على مجموع درجات تتراوح من 70 الى 90 درجة DCount("*";"[Table1]";"[Number] Between 70 And 90")/DCount("*";"[Table1]") .... النتيجة كذلك يمكنك انشاء دالة مشابهة في وظائفها لتلك التي في الاكسل COUNTIF Public Function COUNTIF(criteria As Variant) As Integer COUNTIF = DCount("*", "Table1", "Number" & criteria) End Function و تستخدم بالطريقة التالية COUNTIF(">50")

فقط قم بتعديل اللغة الى العربية من خلال محرر SQL مع تعديل database الى اسم قاعدة البيانات لديك ALTER DATABASE [database] SET SINGLE_USER WITH ROLLBACK IMMEDIATE; GO ALTER DATABASE [database] COLLATE ARABIC_CI_AS; GO ALTER DATABASE [database] SET MULTI_USER; GO