Foksh

جرب هذه الفكرة صديقي @الحلبي ، مشاركةً مع معلمي الفاضل @ابوخليل .. التوريد.accdb

لا تحتاج لأكواد يا صديقي ، ولا اعلم ما السبب ، نتناقش دون ملف 2016 تعمل معه بكفائة لا اعلم ما علاقة تحديد الأيقونة في النماذج والأكواد

بالضبط ، فعلى أي شروط سيتم جلب البيانات لهذا الصنف ؟؟؟ أم أن للدكتور مغزى من هذا الطلب !!

اذا كانت الفرصة ما زالت متاحة لك ، الغ افضل اجابة عن نفسك أولاً ، ثم اختر اجابة الإستاذ @kkhalifa1960 ، أنت عضو فضي ومن المفترض أنك تعلم هذه الأمور

نعم ، تستطيع ، افتح موضوع جديد وإن شاء الله تجد الحل المناسب

استثني الحقل الاساسي من استعلام الالحاق

انا اعمل على اصدار 2016 نواة 64 ، ويعمل بكفاءة 20240520_180203.zip

انا جربت على 2010 و 2016 و 2019 ويتم الموضوع بنجاح

السلام عليكم ورحمة الله وبركاته ، أتشرف بتلبية دعوتكم للمشاركة أخي @سلمان الشهراني . واسمحوا لي بالبدء بأول تفاعل بعد معلمي الفاضل @ابوخليل ، وبانتظار أساتذتي للدعم وتصحيح مفاهيمي إن كانت خاطئة . بداية أعتقد وجوب وجود المكتبة Microsoft Script Runtime ، هذا الكود الذي خلصت به ولا أعلم إن كانت النتيجة صحيحة كما تريدون أم لا ، إلا أنني قمت بالتجربة على الموقعين في الفيديو وكانت النتيجة مرضية ومطابقة ( الموقع الأول ، الموقع الثاني ) . فيما يلي ، الكود الأول لتحويل النص إلى SHA256 Hex Function TextToBase64(ByVal text As String) As String Dim sha As Object Dim utf8Bytes() As Byte Dim hash() As Byte Dim i As Integer Dim hashHex As String Set sha = CreateObject("System.Security.Cryptography.SHA256Managed") utf8Bytes = StrConv(text, vbFromUnicode) hash = sha.ComputeHash_2(utf8Bytes) hashHex = "" For i = LBound(hash) To UBound(hash) hashHex = hashHex & Right("0" & Hex(hash(i)), 2) Next i TextToBase64 = Base64Encode(hashHex) Set sha = Nothing End Function Function Base64Encode(ByVal strData As String) As String Dim objXML As Object Set objXML = CreateObject("MSXML2.DOMDocument").createElement("b64") objXML.DataType = "bin.base64" objXML.nodeTypedValue = strData Base64Encode = objXML.text Set objXML = Nothing End Function والنتيجة يتكون في مربع النص ( الهدف الأول ) عن طريق زر الإستدعاء كما يلي :- Private Sub btnComputeHash_Click() If IsNull(Me.txtInput) Then MsgBox "يرجى إدخال قيمة ليتم تشفيرها", , "" Me.txtInput.SetFocus Exit Sub End If Dim myText As String myText = Me.txtInput Dim base64Hash As String base64Hash = TextToBase64(myText) Me.txtHashOutput = base64Hash End Sub ثم باستخدام هذا الكود وبعد عدة تجارب يتم تحويل الـ Hex إلى Base64 : Function HexToBase64(ByVal hexString As String) As String Dim bytes() As Byte Dim objXML As Object bytes = HexStringToBytes(hexString) Set objXML = CreateObject("MSXML2.DOMDocument").createElement("b64") objXML.DataType = "bin.base64" objXML.nodeTypedValue = bytes HexToBase64 = objXML.text Set objXML = Nothing End Function Function HexStringToBytes(ByVal hexString As String) As Byte() Dim bytes() As Byte Dim i As Integer ReDim bytes(Len(hexString) \ 2 - 1) For i = 1 To Len(hexString) Step 2 bytes((i + 1) \ 2 - 1) = Val("&H" & Mid(hexString, i, 2)) Next i HexStringToBytes = bytes End Function ويتم الاستدعاء في الزر كالآتي :- Private Sub Btn_Base64_Click() If IsNull(Me.txtHashOutput) Then MsgBox "لم يتم حساب قيمة Hex بعد.", , "" Exit Sub End If Dim base64Value As String base64Value = HexToBase64(Me.txtHashOutput) Me.Txt_Base64 = base64Value End Sub وفي النهاية أترك التجربة للحكم والتعديل . Hash Con.accdb

حدث الأوفيس ليدعم الميزة

أخي @محسن خليل .. أعتقد أن هناك تكرار في جلب قيمة [EMP_ID] مرتين. وأخبرنا ما هو الهدف من النقر على الحقل Name ؟؟ ثم سأنصحك نصيحة من أخوك أن تحاول الابتعاد عن الأسماء المحجوزة للنظام ومنها Name,Date,From .... الخ

بالنسبة لي:- لكل شيء إيجابيات وسلبيات ، فالهدف من الضغط والإصلاح هو تحسين الأداء ، تقليل المساحة وحجم قاعدة البيانات ، إصلاح الأخطاء . إلا أنني انصح بالنسخة الاحتياطية دائماً ، وعمل ضغط وإصلاح قاعدة البيانات أثناء عدم استخدامها إن كانت مشتركة أو مستخدمة من قبل أكثر من مستخدم .. وأيضاً عدم استخدام هذا الأمر بشكل متكرر . هذا رأيي و وجهة نظري 😊

اخي الكريم أنا استخدمت الدالة Select Case لأننا كنا سنتعامل مع متغير واحد له العديد من القيم المحتملة كما في حالتك أعلاه .. والمتغير الذي قصدته هنا هو الكومبوبوكس وكان بالإمكان استخدام الدالة الشرطية If ولكني أعتقد - ومن وجهة نظري - أنها تستخدم للحالات المعقدة أو التي تحتوي شروط كثيرة أو في تقييم عدة متغيرات أو شروط مركبة.

بالنسبة للجملة الشرطية ، تبدو صحيحة ، ما لك تقم بإرفاق ملف وتوضيح ما الخطأ الذي ينتج عنها !!

أخي العزيز 2saad .. متمنياً لك أن تجد الإجابة بكل سهولة دائماً ، ولكن أرجو منك مستقبلاً الإهتمام بالعنوان ليكون واضحاً وله دلالة على الموضوع . ارسل مرفقك ليكون واضحاً الخطأ الذي تتحدث عنه ،

تفضل يا صديقي ، استخدم هذا الكود في التقرير عند الفتح Me.Text121 = Year(Date) عدم تجاوز التسلسل.accdb هكذا سيتم تغيير السنة حسب التاريخ

لا اعتقد أن اكسيس يدعم هذه الميزة !!! إلا إن كان صورة يتم ادراجها داخل التقرير ,,

ولا يهمك يا دكتور ،، وهذا دليل على بل أخلاقك وطيب معدنك .. لا داعي للإعتذار صدقني ، والحمد لله على هذه النعمة التي أوتينا منها قليلا

تفضل أخي @محمود _ المصري ، ملفك بعد التعديل Downloads.zip ولكن حتى تتوضح الأفكار لديك ، ليتم عرض ملفات الـ PDF في النموذج ؛ يجب أن يكون لديك برنامج Acrobat Reader !!! هذا من وجهة نظري

اهلا مهندسنا الغالي ، خانتني ذاكرتي في هذا الموضوع فعلاً ، فلو بحثت عنه لساعدني أيضاً في طلبي 🥺 بارك الله فيك وجزاك الله كل خير 🥰

كلام سليم 100% ، أشكرك معلمي الفاضل ، 10000% المطلوب بعينه 👍

السلام عليكم ورحمة الله وبركاته ، لدي في النموذج المرفق 100 زر تمت تسميتها حسب تسمية آكسيس Command ويتبعها رقم كمثال Command335 ,, اريد فكرة لإعادة تسميتها مرة واحدة بتسلسل ونمط محددين ، كمثال :- بدلاً من Command أريدها Foksh1 , Foksh2 , Foksh3 .... Foksh100 وهكذا . فهل من أفكار تساعد في تنفيذ المطلوب ؟؟ مع العلم أن الهدف تغيير اسم الازرار التي تحتوي اسمائها على Command وليس كل الأزرار بشكل عام ؟؟؟؟ Rename.accdb

1

هل قمت بتحميل آخر مرفق في مشاركتي الأخيرة ؟؟؟؟؟؟ https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=230011&key=82ec48622ab73edbcdc75988d22d14c5 الدالة DCount تعيد القيمة 0 تلقائياً اذا كان الجدول فارغاً !!!

طبعاً صديقي @الحلبي ، تستطيع الاستغناء عن الاستعلامات الثلاثة ، هي فقط للتأكد من الاحصاء وضبط العدد ، يعني فقط الكود الذي في النموذج يخدم هدفك على ما أعتقد . جرب هذا ,, علي أكون قد فهمت صح هههههه التوريد - Copy.accdb