Foksh

اجعل قيمة الحقل الافتراضية "الرقم" في الجدول = 0

انا عن نفسي قمت باستخدام مشاركة الأخت @safaa salem5 في هذه المشاركة والأمر ناجح معي بنسبة 99%

أخي @2saad ، لا اريد أن أكون سلبي في ردودي صدقني ، ولكني أوجهك للأفضل بإذن الله .. استخدم علامتي الكود <> عند ادراجك لأي كود في مواضيعك مستقبلاً . فهذا أولا يسهل على القارئ قراءة الكود . أيضاً سيظهر بشكل جميل ويظهر كأنه كود وليس نص . على العموم ما اسم الجدول بما أنه سيكون في استعلام ؟؟؟؟ وهل على ما يبدو أنك تريد عمل ترفيع للصفوف

أخي @moho58 ، لا اعلم ان كنت قد فهمتك صح .. جرب هذا المرفق baseL.accdb

تفضل اخي @qathi ، هل هذا طلبك ؟؟ ScanPro.zip

اعتذر منك أخي الكريم @2saad ، فعلاً العنوان لا يدل على سؤالك وطلبك في المشاركة الثانية على العموم . هل هذا طلبك mas.zip

اعتذر منك أخي الكريم ، يبدو أنك قمت بتطبيق الفكرة قبل أن أقوم بتصحيح الخطأ الصادر مني . تفضل هذا التعديل Prog1.accdb

هذا سيعطيك السجلات الأكبر قيمة في حقل العمر .

كلام لا غبار عليه ، وأتفق معك معلمي الجليل

وعليكم السلام ورحمة الله وبركاته أخي @hassan123 .. تحتوي أكبر قيمة من ماذا أخي الكريم أكبر من ( يجب أن تكون القيمة محددة ) كمثال في استعلامك :- اذا اردت عرض الذين أعمارهم أكبر من 15 ، اكتب في الحقل xAGE في الاستعلام عند الشروط ( >15 ) أو كمثال أيضاً إذا أردت عرض الذين أعمارهم تكون 18 ، اكتب الشرط = 18 .... وهكذا

ربي يسعدك يا دكتور ، تسلم

اعتذر ، تم تعديل المرفق السابق ، كانت إحدى التجارب لفكرة أخرى هههههههه

دي فكرتي برضو ,, جرب كده التوريد.accdb

لا أعلم لماذا يتم اختصار المطلوب عند بعض الإخوة المنتسبين لهذا المنتدى هذه فكرة في استعلام حسب ما فهمت من جملة الطلب . mas.zip

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

مش هتحتاجي غير بس قيمة الخصم في discount و ED Private Sub discount_AfterUpdate() If Me.discount > 100 Then MsgBox "لا يمكن ان تكون قيمة الخصم اعلى من الاجمالى", , "" Me.discount = 0 Exit Sub Else Recheck End If End Sub Private Sub ED_AfterUpdate() If Me.ED > Me.service_price Then MsgBox "لا يمكن ان تكون قيمة الخصم اعلى من الاجمالى", , "" Me.ED = 0 Exit Sub Else Recheck End If End Sub

جرب هذه الفكرة صديقي @الحلبي ، مشاركةً مع معلمي الفاضل @ابوخليل .. التوريد.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