كل الانشطه
- Today
-
Up
-
اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته عندي جدول به بيانات الطلبة ---- عملت عليه نموذج به جميع البيانات عن طريق الاسم يجلب جميع البيانات عن طريق قائمة منسدلة وعملت 3 تقارير عايز 3 أكواد ل3 تقرير للطباعة بحيث لما اختار من القائمة المنسدلة بالنموذج الاسم اضغط علي الكود الأول يطبق التقرير الأول الخاص بالاسم اضغط علي الكود الثاني يطبق التقرير الثاني الخاص بالاسم اضغط علي الكودالثالث يطبق التقرير الثالث الخاص بالاسم
-
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
ابوخليل replied to سلمان الشهراني's topic in قسم الأكسيس Access
اوفيس 10 .. 32 بت يعمل -
لا تعمل الدالة myfilter غيرت حرف ولكن اعطاني name# في صفحتك الاكسل و هذه صورة الثانية لصفحتي رئيسية يجب ان اضع خط بين my_filter ويعطيني name# لا ادري ماذا افعل .... اعتذر منك لكثرة اسئلتي لكن لا تعمل الدالة و انا بحاجة إليها جدا جدا لأعمالي و قد تسبب لي فقدانها الكثير من التعب النفسي من صاحب المحل و ارجو المساعدة
-
استفسار: ضغط قاعدة البيانات واصلاحها
ابوخليل replied to Omar Abdulrahman's topic in قسم الأكسيس Access
انا ارى ان الافضل ان يكون هناك فترة زمنية محددة .. يتم في نهايتها الاحتفاظ بقاعدة البيانات والبدء بقاعدة بيانات جديدة .. والرجوع الى القاعدة السابقة عند الحاجة البعض يحدد هذه الفترة بسنة واحدة .. مثلا المشروع المالي في نهاية السنة المالية يتم نقل الارصدة المتبقية الى القاعدة الجديدة كرصيد لأول المدة ومثلها البرامج المدرسية .. كل بداية عام دراسي يتم حفظ نسخة ويبدأ العمل على قاعدة جديدة .. طبعا في كل ما ذكرته اعلاه .. جميع البيانات الثابتة تبقى كما هي ضمن جداولها في النسخة الجديدة ... وانما التفريغ يتم على البيانات المتغيرة المتراكمة عند ملاحظة ثقل او بطء استجابة الاوامر ويمكن جدولة المسألة .. كل شهر .. او شهرين وهكذا ... -
للرفع و المساعدة بارك الله بكم
-
-
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
ناقل replied to سلمان الشهراني's topic in قسم الأكسيس Access
اوفيس 16 32 بت .... يعمل الملف -
استفسار: ضغط قاعدة البيانات واصلاحها
Omar Abdulrahman replied to Omar Abdulrahman's topic in قسم الأكسيس Access
يعني ماهي المدة الزمنية التي تنصح بعمل الضغط فيها ؟ -
شكرا جزيلا استاذي الفاضل أنا عايز اعرف حضرتك وضعته ازاي في التقرير
-
تعديل علي برنامج لعرض ملفات pdf بدلا من jpg
Foksh replied to محمود _ المصري's topic in قسم الأكسيس Access
نعم ، تستطيع ، افتح موضوع جديد وإن شاء الله تجد الحل المناسب -
تعديل علي برنامج لعرض ملفات pdf بدلا من jpg
gamal gamal replied to محمود _ المصري's topic in قسم الأكسيس Access
وجهة نظر سليمة بالطبع .. وسؤالى هل يمكن حفظ الفولدر بإسم الموظف بدلا من الكود ؟ وهل يمكن اعادة تسمية الوحدة النمطية باسم آخر لوجود الكثير من الوحدات بنفس الاسم Module1 -
-
هل ممكن الحاق جدول الى نفس الجدول به مفتاح اساسى
الحلبي replied to الحلبي's topic in قسم الأكسيس Access
الله ينور عليك حضرتك استاذ ورئيس قسم جزاك الله خير -
هل ممكن الحاق جدول الى نفس الجدول به مفتاح اساسى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
استثني الحقل الاساسي من استعلام الالحاق -
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
at_aziz replied to سلمان الشهراني's topic in قسم الأكسيس Access
الله يعطيك العافيه اخي فعلا يبدو ان المشكله عدنا بنسخة الاوفيس نظام 32 بت -
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
Foksh replied to سلمان الشهراني's topic in قسم الأكسيس Access
انا اعمل على اصدار 2016 نواة 64 ، ويعمل بكفاءة 20240520_180203.zip -
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
at_aziz replied to سلمان الشهراني's topic in قسم الأكسيس Access
بارك الله فيك وجزاك الله خير استاذي Foksh وكل الشكر والتقدير لحبيبنا ومعلمنا ابا خليل بدايه موفقه وان شاء الله نصل لحال نهائي يستفيد منه الجميع استاذي اثناء تجربة المثال المرفق ظهر عندي الخطا التالي علما اني استخدم اكسس نظام 32 بت -
التعديل على كود اظهار البيانات غير المتطابقة
Ahmed_J replied to Ahmed_J's topic in قسم الأكسيس Access
استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام -
انا جربت على 2010 و 2016 و 2019 ويتم الموضوع بنجاح
-
Foksh started following ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
-
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
Foksh replied to سلمان الشهراني's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته ، أتشرف بتلبية دعوتكم للمشاركة أخي @سلمان الشهراني . واسمحوا لي بالبدء بأول تفاعل بعد معلمي الفاضل @ابوخليل ، وبانتظار أساتذتي للدعم وتصحيح مفاهيمي إن كانت خاطئة . بداية أعتقد وجوب وجود المكتبة 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 -
ابوخليل started following ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
-
ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)
ابوخليل replied to سلمان الشهراني's topic in قسم الأكسيس Access
السلام عليكم الموضوع مهم والحاجة اليه ماسة خاصة لاصحاب المحلات الصغيرة والبقالات ممن يستخدمون برامج اكسس . شكرا لكم لطرح هذا الموضوع للبحث عن حل شافي وكافي من خلال اكسس اتوقع فقط بضع سنوات وستصبح معظم الدول العربية معتمدة في نظامها الضريبي على هذه التقنية . نأمل ان يلاقي هذا الطرح من اخواني واحبتي الخبراء التفاعل والمشاركة . -
السلام عليكم من العنوان يكون سؤالى : عندى جدول اسمه main به حقل اسمه sr ونوعه ترقيم تلفائى وهو مفتاح اساسى هل ممكن عمل استعلام الحاق من الجدول main الى نفس الجدول main حاولت ان اعمل هذا الالحاق فلن يضيف اى سجل بسبب المفتاح الاساسى طبعا وعند الغاء المفتاح الاساسى يضيف عادى ولا يوجد اى مشكلة فانا اريد ان الحق مع وجود المفتاح الاساسى فهل توجد طريقة لذلك جزاكم الله خيرا