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

السلام عليكم ورحمة الله وبركاته درسنا اليوم يتكلم عن كيفية تحزيم برنامج الأكسس بعد أن تنتهي من تصميم برنامجك وتكون مستعدا لتحويله إلى ملف EXE وذلك ليسهل عليك تنصيبه في أجهزة الحاسوب سواءا لعملائك أو أجهزة العمل أو غيرها .. كل ما ستحتاجه لتطبيق درس اليوم هو : ملف الأكسس / وأيكونة برنامجك الخاص ( اختياري) / وصورة لشاشة البدء بصيغة BMB ( اختياري) / وبرنامج الوينرار WinRAR . فعلى بركة الله ..

اعرض الملف الفاتورة السعودية المبسطة أهلا بكم.. محاولة متواضعة لتنفيذ الفاتورة السعودية المبسطة باستخدام الجافا سكريب ومتصفح الويب.. أرجو أن تنال استحسانكم.. صاحب الملف أبو إبراهيم الغامدي تمت الاضافه 03 ينا, 2022 الاقسام قسم الأكسيس  

السلام عليكم 🙂 بعيد عن مكتبات الوندوز API هناك طريقتين ، جلب التاريخ من السيرفر ، وجلب التاريخ من جهاز آخر . وكذلك جلب الوقت عن طريق جدول اكسس او جدول SQL Server على السيرفر او اي جهاز آخر: . جعفر

حقيقة لا توجد كلمة شكر تفي حقكم جميعاً استاذتنا الفضلاء ... شكرا لكم جميعا فرداً فرداً كلاً باسمه وصفته دون استثناء والشكر موصول ايضاً الى ادارة الموقع والقائمين عليه .. لايسعنا الا ان ندعوا الله لكم بما يسركم ويفرحكم وان يجعل ما تبذلوه من جهود في سبيل نشر العلم والمعرفة في ميزان حسناتكم دمتم رائعين ..

غير للكود ده Private Sub tx0_Change() On Error GoTo Proc_Err Dim txtsearch As String: txtsearch = Me.tx0.Text Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True Me.tx0.SetFocus Me.tx0 = txtsearch Me.tx0.SelStart = Len(txtsearch) Exit Sub Proc_Err: Select Case Err.Number Case Is = 2185 Me.FilterOn = False Me.tx0.SetFocus Me.tx0.SelStart = Me.tx0.SelLength Beep MsgBox "There are no results" Case Else MsgBox "Error " & Err.Number & vbNewLine & Err.Description End Select End Sub

في الشيت 1 مثلا يمكن Sub test() Sheets("sheet1").Cells.SpecialCells(xlCellTypeConstants, 2).Select End Sub

الغاء وتمكين عمل زر الـ Shift يتناسب مع جميع تنسيقات قواعد البيانات ولو كانت قواعد البيانات المحمية بكلمة مرور المرفق يتناسب مع كلتا النواتان 32 , 64 Bit تمكين الشفت.mdb

السلام عليكم ورحمة الله وبركاته التطبيق اهداء الى منتدانا الحبيب ورواد المنتدى العمل حتى يخرج بهذه الصورة يعلم الله وحده الجهد المبذول به اسال الله تعالى ان يتقبل هذا العمل صدقة جارية الى ما شاء الله تعالى 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

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل اخى الكريم Sub Copie_sh() Application.EnableEvents = False Sheets("ENTP-SH").Range("E13:AI72").Value = Sheets("ENTP.EL AMINE G").Range("E13:AI72").Value Sheets("ENTP-SH").Range("E101:AI164").Value = Sheets("ENTP.EL AMINE G").Range("E101:AI164").Value Application.EnableEvents = True End Sub

انا راح اصور لك الشاشة الحين اتفضل شوف بنفسك

وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام اخى ومعلمى العزيز جعفر 🌹💐 تذكرت هذه المواضيع ولكن انشغال العقل لم يتح لى البحث عنهم جزاك الله عنا كل خير تقبلوا تحياتى اخوكم الصغير احمد

وعليكم السلام اخى @محمد عدنان طلبك من البدايه كان ترحيل صف واحد وهو في الخليه b4 من شيت data وهذا ما تم عمله اختر افضل اجابه لسؤالك وافتح موضوع جديد بالطلب الجديد وان شاء الله تجد مطلبك سواء منى او من الاساتذه

مساء الخير راجع الملف المرفق لعل فيه ما تريد... استخراج البيانات (1).xlsx

الحمد لله الذي بنعمته تتم الصالحات وفيك بارك اخى الكريم

جرب المرفق الاتى SelStart (1).accdb

بورك فيكما "hassona229" و "محي الدين ابو البشر".... فهمتما السؤال بسهولة و ساعدتاني ببساطة ...♥️♥️♥️ شكرا بورك فيك بورك فيك ♥️ بعض الاسئلة بسيطة الى غاية انها لا تحتاج الى اي عناء رفع و شرح .. .. كيف افعل كذا و كذا لعمل كذا ... فمثلا بعض الاخوة ربما يضطرون الى التواصل عبر الهاتف و لا يسعفهم الحظ في التعامل مع ملفات الماكرو و رفعها بواسطة الهاتف ... شكرا

فکرة جمیلة

تفضل اخى محمد جرب هذا التعديل نسخة من دفتر علامات 2022.xlsm

اخى احمد انت رائع

Sheets("Sheet1").Cells(1,1) = Me.TextBox1.Value & " " + Me.TextBox2.Value في الخلية A1?

اخى محمد عدنان هذا الموضوع يمكنك الاستفادة منه

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم Me.TextBox3.Value = Me.TextBox1.Value & " " + Me.TextBox2.Value

شكرا لك استاذ موسى ..و مزيد من العطاء

اخوي موسى 🙂 عمل جميل ، شكرا على المشاركة 🙂 جعفر

لله درك يا رجل .. 😃 أنَّا لك كل هذا العلم 😁 بسم الله ما شاء الله عليك .. حاولت أفصص وأفكك الدوال والأكواد وما فقهت منها إلا قليلا 😅

السلام عليكم اخوانى واساتذتى محمد عصام ومحمد سلامه برجاء الاطلاع ع الرابط التالى وتجربة الحلول التى به ان شاء الله تنحل المشكله لديكم باذن الله https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit تقبلوا تحياتى ومرورى

والله المدير زهق منك وهيسوى لك استدعاء ولى امر 🤭

فكرة جديدة تدرج الوان ولا اروع سهولة ومرونة فى تغيير تدرج الالون وبدون برق ورعد فاهم قصدى طبعا يا استاذ @Moosak وبصراحة مش فاضى للتطوير اكثر فى الوقت الحالى ShowHideSideBareRight (4).zip

عمل جميل اباجودي ، شكرا جزيلا 🙂 بس ياريت تضيف مجموعة نماذج ، علشان لما يتم النقر على زر ، يتم فتح النموذج الخاص به ، فليس كل الاعضاء محترفين مثلك 🙂 ومرة بعد اخرى ، نرى ان الاكسس مرن كفاية لعمل "تقريبا" كل شيء يجي على البال 🙂 اكيد عنده الادرينالين مرتفع ، وننتظر نتائجها 🙂 جعفر

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

السلام عليكم ورحمة الله تعالى وبركاته تعديل فاخر من الاخر ولا اى html يحتوى المرفق على عدد 3 نماذج 1- FormUIBoht هذا النموذج معد لتعمل القائمة من كلا الجانبين للواجهتين العربية او الانجليزية فقط بتغيير شئ بسيط هذا الكود فى هذا السطر من الكود تغير الحروف من ML الى MR يناسب الواجهات العربية وان كانت الواجهة انجليزة يظل كما هو Const strOrientationChk = ML 2- النموذج الثانى FormUILT يتناسب فقط للواجهات الانجليزية 3- النموذج الثالث FormUIRT يتناسب فقط مع الواجهات العربية والمرونة فى التصميم لا يتم تعديل اى شئ حسب الازرار فقط لابد من ان تكون اسماء ازرار القائمة تبدأ بـ cmdMnu وبعد ذلك اضف ما تريد المرفق سريع وخفيف جدا ShowHideSideBareRight.accdb

وعليكم السلام ورحمة الله بركاته من خلال التجربة كود استاذنا الفاضل بن عليه سريع جدا اما طول الكود فتم اختصاره بكود من المنتدى وكما يقال كل الطرق تؤدي الى روما . فكود السيد بن عليه والكود المختصر يؤديان نفس النتيجة تحياتي كشف حضور وغياب1.xlsm

وعليكم السلام - لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وشكرا !!!!