كل الانشطه

استاذ الفاضل .. كلامك مضبوط 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

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

محاولتي الثانية ولكن بإلغاء عمل الزر فهو غير مفهوم لي طريقة عمله ولا أؤيد العمل به. تعامل مع الأكسس بشكل عملي واترك عنك هذه الأمور غير المفيدة وغير العملية. عوضت عن الزر بصندوق نعم/لا ويمك عملها بزر ولكن ليست بطريقتك بل بطريقة عادية بسيطة. BlockExam_03.accdb

اشكرك على مساعدتك ولكن ليس المطلوب

محاولتي قمت بتبديل المرفق بعد أن تبين لي أني فهمتك خطأ الحل الآن به طريقتين على مستوى الصناديق أو على مستوى السجل. BlockExam_02.accdb

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

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

ما اريده هو عدم تمكين جميع حقول النموذج فى حالة وجود علامة صح بحقل معين مرفق مثال Database1.accdb

بالإستفادة بالأداة الرائعة للأخ @Foksh الموجودة في موضوع مستورد السجلات الذكي قمت بتعديل الملف ليتم العمل عبر هذه الأداة يرجى تجربة التعديل تحياتي تحديد البرنامج1.rar

الف شكر استاذي الفاضل هو ده اللي انا كنت محتاجه بارك الله فيك الف شكر اسمحلي لو فيه اي تعديل اخر اراسل حضرتك السلام عليكم ورحمة الله