كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. هل هذا هو المطلوب فعلاً ؟؟ فقط هذا الكود في حدث بعد التحديث للشيك بوكس :- Private Sub CHK_AfterUpdate() Dim GradeValue As String If Me.CHK = -1 Then Select Case Me.نص74 Case "أولى" GradeValue = "1" Case "ثانية" GradeValue = "2" Case "ثالثة" GradeValue = "3" Case "رابعة" GradeValue = "4" Case "خامسة" GradeValue = "5" Case "سادسة" GradeValue = "6" Case Else GradeValue = Null End Select Me.نص76 = GradeValue Else Me.نص76 = Null End If End Sub sssssssss.zip

السلام عليكم لقد قمت بوضع كود تحديد والغاء التحديد اريد عند اختيار القسم والضغط على ايقونة تحديد يظهر رقم الحجرة اليكم البرنامج والشرح sssssssss.accdb

gooooooooooooooooood

بارك الله فيك أستاذ وجزاك الله خيرا مشكور

السلام عليم بعد إذنكم جميعا تم حل الموضوع في آخر مشاركة لي في هذا البوست يوم 17 أغسطس و النتائج كما طلب الاستاذ عادل. الآن أين المشكلة؟

السلام عليكم اخي بخصوص زر حدف المحدد اريد الغاء التحديد ليس حدف الموظف بارك الله فيك

شكرا لك عالنشر snaptube vidmate

بارك الله فيك 192.168.100.1 192.168.1.1

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

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

وهذه طريقتي .. في محاولة لقبض العصى من المنتصف أيضا 😇🌼 بكود من سطر واحد .. واستخدام التنسيق الشرطي .. BlockExam_Moosak.accdb

هذا لأنك تقوم بتحديد السجلات في النموذج ثم تقوم بإغلاقه لتذهب لتشغيل الاستعلام والمشكلة أن حدث الإغلاق للنموذج يقوم بإلغاء كل التحديدات ولكن إذا قمت بشغيل الاستعلام من داخل النموذج سيقوم بالترحيل بشكل طبيعي اليك المثال معدل تحياتي za-Test1 (1).rar

من الواضح أن الأخ @figo82eg يبحث عن الجماليات ليظهر علامتي الصح والخطأ بشكل والوان مميزة ولكني أضم صوتي لصوت الأخ @AbuuAhmed في أن إستخدام حقل نعم/لا هو السبيل الأفضل والأسهل ولكن بمراجغة الحل الذي طبقه فيه مشكلة لأن مربع التحديد غير مرتبط بحقل في الجدول لذلك إذا قمت مثلا بتحديد السجل الأول وإنتقلت للسجل الثاني سيظل التحديد True رغم أن قيمة الحقل المفترض أنها False لذا مسكت العصا من المنتصف وقمت بتعديل المثال ليحقق الأمرين تحياتي BlockExam_03.rar

أيضاً كإضافة عن الإستعلام السابق .. جرب هذا الإستعلام أيضاً لإنشاء جدول جديد ، واضافة القيم فيه بعد فصلها .. SELECT maal, IIF(IsNumeric(Left(Trim(maal), 1)) = True, Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)), Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)) ) AS الرقم, IIF(IsNumeric(Left(Trim(maal), 1)) = True, Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)), Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)) ) AS الاسم INTO TAGE_F FROM TAGE WHERE maal Is Not Null;

وهاتان دالتان كتبتهم من زمان 🙂🌷 : *دالة تفصل الأرقام عن الحروف ودالة تفصل الحروف عن الأرقام* *شرح الكود:* الدالة تستخرج الأرقام من جمله تحتوي على أرقام وحروف .. مثال1 : " أسماء الله 99 أسما " - النتيجة: 99 مثال2 : " أسماء الله 99 أسما " - النتيجة: أسماء الله أسما *الكود:* '==========================================(لاستخراج الأرقام فقط من النص) Public Function ExtractNumbersFromText(strText As String) Dim x As Long Dim L As String Dim r As String For x = 1 To Len(strText) L = Mid(strText, x, 1) If IsNumeric(L) Then r = r & L End If Next x ExtractNumbersFromText = Trim(r) End Function '==========================================(ولإزالة الأرقام من النص والإبقاء على الحروف فقط) Public Function RemoveNumbersFromText(strText As String) Dim x As Long Dim L As String Dim r As String For x = 1 To Len(strText) L = Mid(strText, x, 1) If Not IsNumeric(L) Then r = r & L End If Next x RemoveNumbersFromText = Trim(r) End Function *طريقة الاستدعاء (الاستخدام):* ExtractNumbersFromText("Your text with 123456 Here") RemoveNumbersFromText("Your text with 123456 Here") *مكتبة الأكواد*

اخي لم يتم الحاق المعلومات الى الجدول الاخر

في الاستعلام [نقل المحدد فقط] إذهب إلى العمود CHK وأكتب -1 او True كمعيار بحث تحته ليتم تصفية الموظفين الذين تم تحديدهم فقط

السلام عليكم ورحمة الله وبركاته الملف المرفق برنامج مخازن شرط فيه حساب السعر المتحرك برجاء مراجعته وتصحيح مابه من اخطاء ولكم منى كل الشكر والتقدير Database1.zip

مشاركة مع معلمي الفاضل .. جرب هذا الاستعلام وشوف النتيجة SELECT maal, Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)) AS الرقم, Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)) AS الاسم FROM TAGE;

السلام عليكم لدي جدول الموظفين يوجد فية المعلومات ولدي جدول الارشيف اريد نقل المعلومات من جدول الموظفين الى جدول الارشيف عند تحديد الموظفين الذين يتم نقلهم اليكم البرنامج za-Test1 (1).accdb

لفصل الحروف والارقام داخل الاستعلام انت بحاجة الى دالة مثل هذه 'فصل الحروف Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then Else lets3 = lets3 & lets End If Next textNum = lets3 End Function 'فصل الارقام Public Function Numtext(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets End If Next Numtext = lets2 End Function ولإنشاء جدول جديد يمكنك استخدام الاستعلام نفسه انظر المرفق فصل الحروف عن الارقام دالة2 .rar

السلام عليكم كود الطباعة لايعمل بشكل صحيح يعطي خطأ عند حفظه PDF

السلام عليكم ورحمة الله لدي حقل فى اكسيس باسم maal داخل جدول باسم TAGE الحقل يحتوى على بيانات على سبيل المثال هكذا ( 025365396966 محمد سيد حسين ) اريد استعلام يقوم بانشاء جدول يستخرج رقم الهاتف فى حقل مستقل وباقى الاسم فى حقل مستقل اخر

انت تقدر تضبط الاعدادت تخطيط الصفحة حط مثلا الحجم بدال ما يكون 100% خلية 80 % او 85% الرقم المناسب الي تشوفة

عليكم السلام تفضل مخزن 3.xlsm