محمد قاسم 12

ارغب فى ان يكون هناك زر فى الفورم لانشاء ملف الاكسيل بجوار القاعده وبعد زلك يكون هناك زر للاستيراد انظر الفورم المرفق بالقاعدة

السلام عليكم الرجاء المساعدة فى ما يلى لدي جدول باسم Tp_stoudnt ارغب فى ما يلى 1- تصدير بعض الاعمدة من الجدول الى ملف اكسيل يكون بجوار قاعدة البيانات الحالية لكى يتم تعبئة بياناته من ملفات اكسيل مستورة من موقع الحكومة الالكترونية 2 - يتم استيراد البيانت من ملف الاكسيل الى نفس الجدول بالقاعدة لانه عند لصق البيانات فى الجدول مباشرة لا تعمل stu- up.rar

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

السلام عليكم لدي فى الملف المرفق جدول باسم Tp_stoudnt المطلوب عند اختيار الصف مثلا الصف الاول ارغب فى ان يسجل فى الجدول رقم 1 وهكذا وكذلك الفصول وذلك لتسهيل عملية استيراد البيانات من ملف الاكسيل stu- up.accdb

بارك الله فيكم تم الحل

السلام عليكم فى الملف المرفق بعض المعادلات كانت تعمل بصورة جيده وهى فى شيت data ولا اعلم سبب عدم عملها الان سجل القيد 2022.rar

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

السلام عليكم لى مطلب .. المساعدة فى استدعاء بيانات قائمة الفصل بالكود ,,, وفق المعيارين الصف والفصل .. فى القائمة على جانبي الورقة مع الاحصاء اعلى الورقة قائمة فصل.xlsm

السلام عليكم ورحمة الله وبركاته .. خالص تحياتى وتقديرى .. فى الملف المرفق ارجوا المساعدة فى استدعاء البيانات من شيت data الى شيت سجل قـــيد بيانـــات .. وذلك عن طريق الكود لكى لا يثقل عمل الملف .. بارك الله فيكم اخوتى واساتذتى الكرام للرفع 2.xlsm

تم الحل بفضل توجيهاتكم استاذى الكريم بارك الله فيكم واليكم الملف لعل احدم يستفيد منه وخاصل الدعاء للاستاذ والعلامه الكبير @عبدالله باقشير للرفع 2021.xlsm

استاذي الفاضل بارك الله فيكم بالفعل الكود موجود وقد جرت كود الاستاذ الفاضل @عبد الله بقاشير ولكن المشكلة تكمن فى عدم قدرتى على تقسم عمود تاريخ الميلاد الى 3 اعمده يوم شهر سنه من خلال الكود وهل يمكن السن فى 1/10 من خلال تطوير هذا الكود ايضا Option Explicit ' ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã ' ******************** ' ÏÇáÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÉ ' Kh_Date_Sex_Province ' ( ÇÓÊÎÑÇÌ ÊÇÑíÎ ÇáãíáÇÏ Çæ ÇáäæÚ (ÐßÑ - ÇäËì ' Çæ ÇáãÍÇÝÙÉ ãä ÇáÑÞã ÇáÞæãí '============================================== ' MyTest ' ÇÐÇ ßÇäÊ = 1 ÊÞæã ÈÇÓÊÎÑÇÌ ÊÇÑíÎ ÇáãíáÇÏ ' ÇÐÇ ßÇäÊ = 2 ÊÞæã ÈÇÓÊÎÑÇÌ ÇáäæÚ ' ÇÐÇ ßÇäÊ = 3 ÊÞæã ÈÇÓÊÎÑÇÌ ÇáãÍÇÝÙÉ '---------------------------------------------- ' MyProvinces Ýí ãÊÛíÑ ÇáÌÏæá ' ÇáÚãá áã íÓÊßãá ÈÚÏ ' íãßäß ÅÖÇÝÉ ÇáãÍÇÝÙÇÊ ÇáÇÎÑì ÇáÛíÑ ãæÌæÏÉ ' Çæ ÊÚÏíá ÇáãæÌæÏ Ýí ÍÇáÇÊ ÇáÎØà ' ÈäÝÓ ÇáØÑíÞÉ ÇáÑÞã ÇæáÇ Ëã "/" Ëã ÇÓã ÇáãÍÇÝÙÉ ' : ãËÇá Úáì Ðáß ' "01/ÇáÞÇåÑÉ" '============================================== '----------------------------------------------------------------- Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== ' íãßäß ÅÖÇÝÉ ÇáãÍÇÝÙÇÊ ÇáÇÎÑì ÇáÛíÑ ãæÌæÏÉ ' Çæ ÊÚÏíá ÇáãæÌæÏ Ýí ÍÇáÇÊ ÇáÎØà MyProvinces = Array("01/ÇáÞÇåÑÉ", "02/ÇáÅÓßäÏÑíÉ", "12/ÇáÏÞåáíÉ", "13/ÇáÔÑÞíÉ" _ , "14/ÇáÞáíæÈíÉ", "15/ßÝÑ ÇáÔíÎ", "16/ÇáÛÑÈíÉ", "17/ÇáãäæÝíÉ", "18/ÇáÈÍíÑÉ" _ , "19/ÇáÅÓãÇÚíáíÉ", "21/ÇáÌíÒÉ", "22/Èäí ÓæíÝ", "24/ÇáãäíÇ", "25/ÃÓíæØ" _ , "26/ÓæåÇÌ", "27/ÞäÇ", "28/ÃÓæÇä", "29/ÇáÃÞÕÑ", "33/ãØÑæÍ") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "Error_MyNumber" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ÐßÑ" Else yy = "ÇäËì" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function

طلب - احضار بيانات الرقم القومى واسم الاب بواسطة الكود وارجوا احضارها حسبالتقسيمة فى الخلايا الموجود تحت اللون الاحمر للرفع 2021.xlsx

بارك الله فيك

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

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

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

لو سحتم ادراج الملف النهائي

بارك الله فيكم

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

بارك الله فيك يا غالى بالله عليك لا تنسى البرنامج العام المصرى

الف الف مبرووووووووووووووك

بارك الله فيك استاذى

شكرا لك

بارك الله فيك على هذا الكم الجميل من المعلومات

بارك الله فيك استاذى الكبير وتسلم الاياااااااااادى يا رب