كل الانشطه

Up

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته عندي جدول به بيانات الطلبة ---- عملت عليه نموذج به جميع البيانات عن طريق الاسم يجلب جميع البيانات عن طريق قائمة منسدلة وعملت 3 تقارير عايز 3 أكواد ل3 تقرير للطباعة بحيث لما اختار من القائمة المنسدلة بالنموذج الاسم اضغط علي الكود الأول يطبق التقرير الأول الخاص بالاسم اضغط علي الكود الثاني يطبق التقرير الثاني الخاص بالاسم اضغط علي الكودالثالث يطبق التقرير الثالث الخاص بالاسم

اوفيس 10 .. 32 بت يعمل

لا تعمل الدالة myfilter غيرت حرف ولكن اعطاني name# في صفحتك الاكسل و هذه صورة الثانية لصفحتي رئيسية يجب ان اضع خط بين my_filter ويعطيني name# لا ادري ماذا افعل .... اعتذر منك لكثرة اسئلتي لكن لا تعمل الدالة و انا بحاجة إليها جدا جدا لأعمالي و قد تسبب لي فقدانها الكثير من التعب النفسي من صاحب المحل و ارجو المساعدة

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

للرفع و المساعدة بارك الله بكم

شكرا جزيلا

هناك كود في التقرير لرسم الخطوط ..... مثل هذا

اوفيس 16 32 بت .... يعمل الملف

يعني ماهي المدة الزمنية التي تنصح بعمل الضغط فيها ؟

شكرا جزيلا استاذي الفاضل أنا عايز اعرف حضرتك وضعته ازاي في التقرير

@ابوخليل @Foksh بارك الله فيكم وشاكر لتفاعلكم والله يعطيك الف عافيه نعم تم تجربة المثال على اوفيس 32بت و 64 بت ويعمل بكفاءه نتمنى من الاخوه التجربه على 32 بت لكونه الاهم وننتظر المشاركة من باقي الخبراء والاخوان في هذا الموضوع

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

وجهة نظر سليمة بالطبع .. وسؤالى هل يمكن حفظ الفولدر بإسم الموظف بدلا من الكود ؟ وهل يمكن اعادة تسمية الوحدة النمطية باسم آخر لوجود الكثير من الوحدات بنفس الاسم Module1

قم بتفعيل الماكرو يا اخي بالضغط على تمكين التحرير

الله ينور عليك حضرتك استاذ ورئيس قسم جزاك الله خير

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

الله يعطيك العافيه اخي فعلا يبدو ان المشكله عدنا بنسخة الاوفيس نظام 32 بت

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

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

استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام

انا جربت على 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

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

السلام عليكم من العنوان يكون سؤالى : عندى جدول اسمه main به حقل اسمه sr ونوعه ترقيم تلفائى وهو مفتاح اساسى هل ممكن عمل استعلام الحاق من الجدول main الى نفس الجدول main حاولت ان اعمل هذا الالحاق فلن يضيف اى سجل بسبب المفتاح الاساسى طبعا وعند الغاء المفتاح الاساسى يضيف عادى ولا يوجد اى مشكلة فانا اريد ان الحق مع وجود المفتاح الاساسى فهل توجد طريقة لذلك جزاكم الله خيرا