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

أهلا بك أخي @waheidi إضافة إلى ما قدمه أخي @Amr Ashraf من فكرة ال TAG أضفت لك خاصية إخفاء جميع الأزرار الأخرى عند الضغط على زر معين .. ولكن يجب أن تنتبه لعدة أمور : كما ذكر لك أخي Amr يجب أن تضع نفس الـ Tag لكل مجموعة أزرار فرعية ، ثم عند الضغط على الزر ( الرئيسي للمجموعة ) تضع هذا الأمر عند الضغط : hideSubBtns ("Tag") ' بين القوسين تضع التاج الخاص بتلك المجموعة BtnClick الأمر الثاني .. جميع الأزرار الفرعية ( يجب ) أن يبدأ اسمها بـ (SBtn) ... بالنسبة للأزرار الفرعية عندما تربطها بأمر معين كفتح نموذج أو تقرير مثلا .. تضع هذا الكود بعده، وذلك لكي يخفي جميع الأزرار الفرعية : hideSubBtns ("") وهنا شكل التعديل وقد أصلحت لك خاصية طي القائمة الرئيسية أيضا : مرفق لك التعديل : New Microsoft Access Database (2).accdb

عفوا اباجودي ، بس علشان تكون مركز ، انا جعفر ، وانت في منتدى اوفسينا 🙂 طلبات ايه واحلام ايه وتوجيهات ايه واوامر ايه ، انت عاوز تودينا في ستين داهية 😮 🤣🤣🤣🤣🤣

=IF(C2<>"",MAX($B$1:$B1)+1,"")

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

اتفضل يا استاذ @Moosak اوامر ياباشا طلب تم بفضل الله New Microsoft Access Database (4).accdb

السلام عليكم 🙂 @Moosak و @ابو جودي ياريت تضعون اجابتكم في الموضوع الاصل ، حتى يصبح ذلك الموضوع متكامل (مع مراعاة هذا مستقبلا كذلك 🙂 شكرا) : جعفر

السلام عليكم ورحمة الله وبركاته التطبيق اهداء الى منتدانا الحبيب ورواد المنتدى العمل حتى يخرج بهذه الصورة يعلم الله وحده الجهد المبذول به اسال الله تعالى ان يتقبل هذا العمل صدقة جارية الى ما شاء الله تعالى ms access becomes an authorized e-invoicing solution provider in Saudi Arabia by www.officena.net Start your e-invoicing journey حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية يتم قراءة الرمز الناتج ان شاء الله عبر القارىء الرسمي الخاص بالهيئة ( تطبيق جوال ) حمل من هنا : التطبيق الرسمي لهيئة الزكاة والضريبة والجمارك يتم قراءة الرمز الناتج ان شاء الله عبر قارىء خاص ( تطبيق جوال ) حمل من هنا : تطبيق قرائة رمز الاستجابة طبقات لمتطلبات هيئة الزكاة والضريبة والجمارك التطبيق المقدم لكم تمت تجربته وهو متوافق مع النواتين 32 , 64 تم تصميم الاكواد داخل روتين عام ليسهل التعامل معها بكل سهولة ممكنة حاولت جاهدا جمع الاكواد المستخدمة فى موديول ليسهل نقله يتم التعامل مع الروتين باسناد فقط اسماء الحقول من النموذج المستخدم والتى يمكن تغير اسمائها تبعا لتصميمك كالاتى Call CreateInvoice(ID, SellerName, VatNo, TimeStamp, InvoiceWithVat, VatTotal) ID >>-----> اسم الحقل الدال على رقم الفاتورة وهذا ليتم تسمية ملف رمز الاستجابة الناتج بناء عليه SellerName >>-----> اسم الحقل الدال على اسم البائع VatNo >>-----> اسم الحقل الدال على الرقم الضريبي TimeStamp >>-----> اسم الحقل الدال على الوقت وتاريخ انشاء الفاتورة InvoiceWithVat >>-----> اسم الحقل الدال على القيمة الاجمالية للفاتورة VatTotal >>-----> اسم الحقل الدال على القيمة الاجمالية لمبلغ الضريبة فقط بعد تشفير البيانات يتم اسناد الشفرة الى متغير عام باسمstrHashCode والذى من خلاله يت حفظ البيانات المشفرة داخل الجدول تبعا لكل سجل ---------------------------------------------- الية العمل بعد اسناد اسماء الحقول الى الروتين يتم تمرير البيانات من تلك الحقول الى الملف التنفيذى الملحق مع القاعدة والذى بدورة يقوم بانشاء كل من 1- رمز الاستجابة السريع بعد تشفير البيانات طبقا للمطلبات from string to hex to base64 2- انشاء ملف نص به تشفير البيانات بعد ذلك تقوم باقى الاكواد بجلب البيانات المشفرة من ملف النص واسنادها الى المتغير الذى تم تخصيصه لذلك --------------------------------------------- تفاصيل الاكواد داخل الموديول كالتالى الروتين MkDir لعمل المجلدات عند الحاجة دوال الـ API الخاصة بـ ShellWait والمتوافقة مع كلتا النواتان 32 , 64 وتمت التجربة بنجاح على اوفيس 32 تارة واوفيس 64 تارة اخرى بفضل الله بنجاح حيث يتم ارسال البيانات من الحقول الى الملف التنفيذى الملحق من خلال الروتين Shell_n_Wait ليتم انشاء رمز الاستجابة السريع من خلال الروتين الخاص به وهو CreateInvoice وانشاء الملف النصى بجوار الملف التنفيذى فى نفس المسار لالحاق البيانات المشفرة طبقا للمطلبات from string to hex to base64 وبعد ذلك يتم جلب البيانات المشفرة من خلال الروتين ReadFileToText ولابد من استخلاص التشفير من خلال الروتين StripSpChars للاحتفاظ بالنص دون اى زيادات وبعد ذلك يتم الحاق البيانات المشفرة الى المتغير الذى قمت بتخصيصه لذلك وهو يحمل الاسم strHashCode والذى يتم الحاق البيانات من خلاله لكل سجل الى الحقل المخصص به للاحتفاظ بتلك الشفرة حسب طلبات السادة رواد المنتدى الكرام الملف التنفيذى تم عمله من خلال الفيجوال دوت نت ليقوم بتحويل النص طبقا للمطلبات from string to hex to base64 وتم دمج ملفات الـ Dll الخاصة بانشاء رمز الاستجابة بداخل الملف التنفيذى لسهولة التعامل معه من خلال الاكسس ليكون ملف تنفيذى واحد فقط يتم التعامل معه من خلال الـ Command Line دون الحاجة لتثبيت او تسجيل او الاستعانة بأى مكتبات خارجية او حتى ملحقة بالاكسس وذلك لسهولة نقل الموديول الى اى قاعدة دون التقيد باى مكتبات --------------------------------------------- تنبيه هام جدا جدا جدا بجوار قاعدة البيانات فى نفس مسارها مجلد باسم KSA-QR-Tool لايمكن تغيير اسم المجلد والا يحدث خلل وان استدعت الحاجة تغيير الاسم يجب ذلك داخل المدويول يتم كذلك انشاء ملف نصى اليا داخل المجلد KSA-QR-Tool لذلك يجب تحرى الحذر عند محاولة تغيير اسم المجلد داخل الموديول لذلك يرجى عدم محاولة تغير اسم المجلد كذلك داخل المجلد السابق ذكرة الملف التنفيذى KSAQR.exe لا تحاول تغيير اسم الملف لان الاكواد كذلك تتعامل مع هذا الملف من خلال اسمه كذلك لا يمكن نقل المجلد او الملف من مسار قاعدة البيانات الا بالتعديل على الاكواد وفى الختام فضلا وكرما وليس امرا الرجاء الاهتمام بالرد بما يفيد نتيجة تجربتكم الشخصية وتقييم تلك التجربة فلا تبخلوا علينا بذلك... لكم منا خالص الشكر واتمنى لكم تجربة ممتعة ومن يريد طريقتى والتى احبها وافضلها وتعلمتها من استاذى الجليل ومعلمى الجليل الاستاذ @jjafferr بتحميل الملف التنفيذى داخل القاعدة للتأكد دائما من عدم حذفه لا يتردد فى طلب ذلك فقط حاولت تقديم القاعدة بأبسط شكل حتى يقف كل من يريد استخدامها او نقلها الى تطبيقه الخاص على الاكواد المهمة فقط من خلال موديول واحد فقط تيسيرا وتسهيلا عليه وحتى تعم الفائدة هذه الاكواد المستخدمة فى الملف التنفيذى الذى تم انشاؤه من خلال الـ فيجوال دوت نت بناء على رغبة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل لمن يريد التعلم من اكواد التشفير وبناء على طلب استاذى القدير @ابوآمنة Imports System.Drawing Imports System.IO Imports System.Text Imports QRCoder Module Module1 Sub Main() Try Dim sellerName As String = "" Dim vatNumber As String = "" Dim timeStamp As String = "" Dim invoiceTotal As String = "" Dim vatTotal As String = "" Dim imagePath As String = "" Dim filePath As String = "" If My.Application.CommandLineArgs.Count >= 6 Then sellerName = My.Application.CommandLineArgs(0) vatNumber = My.Application.CommandLineArgs(1) timeStamp = My.Application.CommandLineArgs(2) invoiceTotal = My.Application.CommandLineArgs(3) vatTotal = My.Application.CommandLineArgs(4) imagePath = My.Application.CommandLineArgs(5) filePath = My.Application.CommandLineArgs(6) Else Environment.Exit(0) End If If Not String.IsNullOrEmpty(filePath) Then File.WriteAllText(filePath, String.Join(" ", sellerName, vatNumber, timeStamp, invoiceTotal, vatTotal), Encoding.UTF8) End If End Dim tlvInvoice = CreateInvoice(sellerName, vatNumber, timeStamp, invoiceTotal, vatTotal) Dim qrGenerator As New QRCodeGenerator() Dim qrData As QRCodeData = qrGenerator.CreateQrCode(tlvInvoice, QRCodeGenerator.ECCLevel.Q) Dim qrCode As QRCode = New QRCode(qrData) Dim qrCodeImage As Bitmap = qrCode.GetGraphic(20) qrCodeImage.Save(imagePath) If Not String.IsNullOrEmpty(filePath) Then File.WriteAllText(filePath, tlvInvoice, Encoding.UTF8) End If Catch ex As Exception End Try End Sub Function CreateInvoice(sellerName As String, vatNumber As String, timeStamp As String, invoiceTotal As String, vatTotal As String) As String Dim invoiceHex As String = "" For i = 1 To 5 Dim txt As String = "" Select Case i Case 1 txt = sellerName Case 2 txt = vatNumber Case 3 txt = timeStamp Case 4 txt = invoiceTotal Case 5 txt = vatTotal End Select Dim hexTxt As String = StringToHex(txt) Dim hexLen As String = Hex(Encoding.UTF8.GetBytes(txt).Length) If hexLen.Length = 1 Then hexLen = "0" & hexLen End If invoiceHex = invoiceHex & "0" & i & hexLen & hexTxt Next Return HexToBase64(invoiceHex) End Function Function StringToHex(txt As String) As String Dim b As Byte() = Encoding.UTF8.GetBytes(txt) Return BitConverter.ToString(b).Replace("-", "") End Function Function HexToBase64(txt As String) As String Dim bytes = New Byte((txt.Length \ 2) - 1) {} For i = 0 To bytes.Length - 1 Dim mi = txt.Substring(i * 2, 2) bytes(i) = Convert.ToByte(mi, 16) Next i Return Convert.ToBase64String(bytes) End Function End Module E-Invoicing.zip Ksa Qr 32x 64x 2007 to 2021 _Last Version.zip

طيب بعد اذنك استاذ @Moosak انظر الى هذا التعديل New Microsoft Access Database (3).accdb

نسيته ورديت أضفته من جديد الآن موجود 😄

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

حفظك الله ساجرب وارد ان شاء الله

الشكر لله ... اهلا بك اتفضل اتمنى كون قدرت افهم طلبك بس انت باقى لك الحفول اللى بالتقرير rpt2 تضبط مصدر بياناتها ومصدر بيانات التقرير هو الاستعلام qryRpt2 تقدر كذلك تقوم بالتعديلات المناسبة لاختيار الحقول التى تريدها reglemen1 (4).accdb

انا لم اضع حل بل رفعت المرفق فقط انا احاول فهم طلبك الاول خلينا بالفورم المسمى imrimer_tous_Fc وش تقصد بالحقل العنوان وهل له بيانات فى احد الجداول وان كان له بيانات باحد الجداول رجاء اذكر اسم الجدول واسم الحقل الذى يحتوى على البيانات الخاصة بـالعنوان وش تقصد بالحقل الفترة وهل لها بيانات فى احد الجداول وان كان لها بيانات باحد الجداول رجاء اذكر اسم الجدول واسم الحقل الذى يحتوى على البيانات الخاصة بـالفترة وش تقصد بالحقل اخر اجل وهل له بيانات فى احد الجداول وان كان له بيانات باحد الجداول رجاء اذكر اسم الجدول واسم الحقل الذى يحتوى على البيانات الخاصة بـاخر اجل هذا اولا ثانيا هل تريد التقرير يفتح بناء على البيانات التى سوف يتم تسجيلها بالفورم المسمى imrimer_tous_Fc

جزاك الله الف خير ابو جودي انا اللي ما وضحت التفاصيل كاملة من البداية ولك الف شكر

https://top4top.io/ ولكن لو عملت ضغط واصلاح لقاعدة البيانات يصغر حجمها. وهذا ملفك reglemen1 (4).zip

عسى ولعل تقرير العمل.xlsm

مش حنتركك .. سنخرجك من صمتك ..

طيب جرب واعلمنا بالنتيجة ..................... s.rar

تفضل اخي الكريم If Len(Me.[الخدمة] & vbNullString) = 0 Then Me.[السعر] = 0 Else Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], IIf([الخدمة] = "يومي", (Nz([عدد الايام]) * Nz([الايجار])), 0)) End If بيانات القيد.rar تحياتي

السلام عليكم ان الوضع الحالي هو اتاحة التعديل لمجموعة الخبراء فى عضون 24 ساعة من اضافة المشاركة سبب التقييد هو انه احيانا كان يتم التغيير بما يؤثر على المشاركات و الردود التالية ، فتصبح غير ذات مغزى بعد تعديل المشاركة الأصلية لذا يفضل أن يتم عمل تقرير او التواصل مع احد الاخوة المشرفين لطلب دمج المشاركة او عمل التعديل المطلوب ، لان اتاحة التعديل للمجموعة لفترة اطول قد يكون له ايضا سلبيات كما ذكرت

طب معلش يعني ايه أغير من g1 الى g2 علشان خبرتي قليلة في الأكواد ألف شكر أ.عبدالله الصاري أنا فعلا ما أخدتش بالي إني مكرر g1 تسلم ياباشا الله يبارك في حضرتك

وعليكم السلام ورحمة الله وبركاته g1 = Range("H13").Value غير من g1 الى g2 تحياتي

تفضل ان شاء الله هو المطلوب شرح الفكرة : بالنسبة للعناصر المطلوب اظهارها واخفاءها يتم الاستفادة بخاصية Tag بحيث يكون لهم نفس Tag ويتم استخدام كود بسيط لاظهار او اخفاء مجموعة العناصر صاحبة الTag المطلوب وتطبيقا على قاعدتك ستجد ان ازرار الموظفين لها تاج باسم Emp وعناصر الطلاب لها تاج Stu . فى الفكرة ايضا اذا ضغطت على الزر يقوم باظهار العناصر الخاصة به و اذا ضغطت مرة اخرى تختفى العناصر وينطبق الموضوع على زر الموظفين و الطلاب سواء الأعلى او الجانبى . يمكنك تعديلها كما تريد . بالتوفيق Amr.accdb

كل الشكر والفضل والامتنان لكم بعد رب العزة سبجانه وتعالى استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @ابوخليل انتم اساس وعمود وروح ومظلة المنتدى الذى نستظل ونتكئ عليه بفضل الله انتم وكل اساتذتنا العظماء أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخره..وان يرزقكم البركة فى العمر والعلم والاهل والولد.. وان يتقبل كل اعمالكم فى موازين حسناتكم كعلم ينتفع بع وصدقة جارية اللهم آمين آمين آمين

كذا جميع الخيارات متاحة .. الف شكر حبيبنا ابا جودي

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

كل الشكر والتقدير والامتنان لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل وجزاكم الله خيرا ورزقكم مثل ما دعوتم لنا اضعافا مضاعفة انت وكل امة محمد صل الله عليه وسلم وبعد اذن استاذى الجليل ومعلمى القدير هذا تعديل ان اردنا الحصول فقط على 10 طلاب بدمج الفكرتين بآخر مرفقين Top10.accdb

="<>" & Range("E5").Value

So simple Criteria1:="<>WATE"

السلام عليكم ورحمة الله ضع هذه المعادلة فى شيت ديسمبر الخلية D7 ثم اسحب يسارا و للاسفل =MAX(اكتوبر!D7;نوفمبر!D7) اما المعادلة التالية فى شيت المتوسط فى الخلية D7 ثم اسحب يسارا وللاسفل =AVERAGE(اكتوبر!D7;نوفمبر!D7;ديسمبر!D7)

وينه المرفق انا قرات الرد مرتين وشكيت بعيونى وينه المرفق انا قرات الرد مرتين وشكيت بعيونى

عزيزي ابو جودي لم يتم حل المشكلة اي ادخال في حقل الخدمة غير ايواء و يومي يظهر الحقل فارغ احتاج يكون فية 0 في مرفق المثال بيانات القيد.accdb