ابوصلاح

السلام عليكم ورحمة الله وبركاته

في قاعدة البيانات اكسس 2013  كنت اريد تحويلها الي sql  (تصدير )  لكن  ايقونة sql server في ادارة قاعدة البيانات غير موجودة

كما عاهدناك د .كاف يار مبدع

تم

اريد  كود بحث من نموذج رئيسي في نموذج فرعي من خلال قائمة منسدلة

بحث بالريكورد ست.rar

شكرا جزيلا اخي الفلاحجي علي سرعة الاستجابة بس النت مش عارف ايه حكايته بطئ جدا ولم استطع احمل المرفق  وتم نسخ الكود وجربته والحمد لله تماما وكنت عاوز اشوف حل اخي obaid70 ولم اتمكن من ذلك لكن شكرا جزيلا علي المشاركة وبارك الله فيكم جميعا

السلام عليكم ورحمة الله وبركاته

في هذا المرفق  وهو عبارة عن برنامج للموظفين  به فورم ادخال وتعديل البيانات من خلال النموذج انتقل الي نموذج اخر هو نموذج الدرجات اريد عندما اضيف درجة جديدة للموظف يتم التحديف في جدول البيانات المسمي    (tbl_bianat_mfrd)من جدول (tbl_daragass)  يتم التحديث بشرط التاريخ الحديث  انا عملت تحديث بدالة first لكنها لم تنجح معي وتعطيني تحديث لموظف واحد اي يتم التحديث من السجل الاول لكن لموظف واحد  اما الموظف الثاني لا يتم التحديث 

برنامج العاملين.rar

السلام عليكم ورحمة الله وبركات 

اغزاء ورفاء المنتدي

اريد تصميم غياب بحيث يكون التاريخ افي ولي راسي كمثال الصورة وايضا استطيع  التحكم في اظهار او اخفاء ايام معينة طبعا ان بحثت لكن لم اجد طلبي وتعبت من العمل في الملف

كشف غياب.rar

دكاف يار  بارك الله فيك نحن من نعتذر لك من سوء التوضيح شكرا هو المطلوب 

10 دقائق مضت, د.كاف يار said:

تفضل التعديل اخي الكريم 

في شهر سيتم اضافة رقم جديد 

ترقيم حسب الشهر.mdb 704 kB · 0 downloads

د يار كاف الترقيم لنفس اليوم يكون موحد 1 1 1 اليوم التالي مثلا 2 2 2  الثالث 4 4 4 وهكذا

1 ساعه مضت, د.كاف يار said:

تفضل اخي الكريم

سيتم اعادة الترقيم لكل شهر

ترقيم حسب الشهر.mdb 704 kB · 3 downloads

شكرا اخي كاف يار لكن ما اريده طالما نفس اليوم يكون الترقيم موحد كما هو بالجدول المرفق 

السلام عليكم ورحة الله وبركاته 

في المرفق اريد ترقيم حسب الشهر في الجدول من خلال نموذج

الترقيم في حقل m لكل شهر بحيث عند اختيار تاريخ يبدا الترقيم لنهاية الشهر وعند شهر جديد يبدا ترقيم جديد من رقم 1 لكن في حالة اختيار نفس اليوم مثال "(انا اختر تاريخ 1/1/2020ثم اخترت مرة اخري 1/1/2020  يكون نفس الرقم )

ترقيم حسب الشهر.rar

هو تم التوزيع لكن على العمود الأول فقط لكن المطلوب التوزيع على الاربع اعمده في اللست بوكس

لكن البيانات كلها تاتي في العمود الاول فقط انا عاوز كل مربع نص يكون في عمود في مربع القائمة 

شكرا اخي husamwahab علي سرعة الاستجابة اريد الطلب بهذا الشكل بحيث استطيع جمع المبلغ في مربع النص في الاسفل

مربع نص.rar

تم التعديل ليكون الكود كالاتي 

On Error GoTo Err:

    Dim mySQL As String
    Dim rst As Recordset
    Dim i As Double, J As Double
    
    If IsNull([cbo_saf]) Then
        MsgBox "ÇÎÊÑ ÇáÕÝ ÇæáÇ", vbCritical, "ÇæÝíÓäÇ"
    Else
       DoCmd.SetWarnings False
       DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));"
       DoCmd.SetWarnings True
                
        mySQL = "Select * From emthan_tbl_bianat"
        mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'"
        mySQL = mySQL & " ORDER BY golos1"
        
        Set rst = CurrentDb.OpenRecordset(mySQL)
        rst.MoveLast: rst.MoveFirst
        
'        For J = 1 To Me.count_legan
        For J = num_lagna To Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + Me.count_legan
            For i = 1 To Me.kk
            
                rst.Edit
                rst![lagna] = J
                rst.Update
                rst.MoveNext
            Next
        Next
        Me.Requery
    End If
Err:
    If Err.Number = 3121 Then
    Else
    End If

اختار الصف ومن ثم احدد رقم اللجنه  عدد اللجان

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

On Error GoTo Err:

    Dim mySQL As String
    Dim rst As Recordset
    Dim i As Double, J As Double
    
    If IsNull([cbo_saf]) Then
        MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا"
    Else
       DoCmd.SetWarnings False
       DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));"
       DoCmd.SetWarnings True
                
        mySQL = "Select * From emthan_tbl_bianat"
        mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'"
        mySQL = mySQL & " ORDER BY golos1"
        
        Set rst = CurrentDb.OpenRecordset(mySQL)
        rst.MoveLast: rst.MoveFirst
        
        For J = 1 To Me.count_legan
            For i = 1 To Me.kk
                rst.Edit
                rst![lagna] = J
                rst.Update
                rst.MoveNext
            Next
        Next
        Me.Requery
    End If
Err:
    If Err.Number = 3121 Then
    Else
    End If

توزيع اللجان علي الطلبة.rar

اخي محمد عبد الله عمل ممتاز بارك الله فيك 

لكن علي فرض اريد ان يبدا اللجنة مش من رقم واحد لا من ثلاثة بمعني لجنة (3 ) لجنة (4)وشكرا

الفكره ربما تكون غير موضحه جيدا هو وضع رقم اللجنه في  عمود اللجنه حسب العدد الصف الرابع ٤ لجان  وعدد الصف الرابع ١٠٠ تكون كل لجنه ٢٥ طالب توضع في عمود اللجنه وشكرا

السلام عليكم 

لدي مرفق اريد فيه عمل لجان لكل صف 

حسب اللجان المطلوبة في مربع النص بحيث اكتب 4 لجان مثلا يقوم اكسس بوضع اللجنة 1 و2 الخ ....

في المرفق يتضح الامر

توزيع اللجان علي الطلبة.rar

شكرا للجميع على المشاركات الجميله افادكم الله

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

استاذ محمد البرناوي طبتم بخير 

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

السلام عليكة ورحمة الله  

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

البرنامج.rar

أحسنت استاذ سليم هو المطلوب