محمد قاسم 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 عمل اختيار فى جدول بيانات التلاميذ وفيه يتم اختيار التلاميذ الناجحون 

ثم عمل استعلام تحديث لتحديث بيانات التلاميذ ويبدء من الصف الاعلى ثم الذى يليه

هذا على قدر علمى وانتظر رأى الاساتذة

بارك الله فيك يا غالى 

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

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

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

شكرا لك

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

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

وتسلم الاياااااااااادى يا رب