عبد الفتاح كيرة

نعم هو حقل متعدد أنا فرغت فرع الداتا فقط

تمام أستاذنا الفاضل

كود حذف المرفق.accdbبعد إذن أستاذنا الكبير @jjafferr هذا الكود لحذف المرفق فى السجل الحالى وفقكم الله Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim nn As String nn = "update table1 set [image].filedata =null WHERE Table1.ID =" & Me.ID strSQL = "SELECT * FROM Table1" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) rst.MoveFirst db.Execute nn Me.Requery كود حذف المرفق.accdb

ما حدث هو أنه تم تحديد مجموعة من مربعات النصوص و التسميات وكليك يمين بالماوس و تم اختيار إزالة من التخطيط

السلام عليكم مؤقتا و حتى أجد حلا استبدلت ال dao ب ال ado الكود لمن يريده Set db = CurrentDb Set rs = db.OpenRecordset("select * from tblmain order by stunum") Set Me.Recordset = rs txtfind.ControlSource = "[" & rs.Fields(0).Name & "]" txtname.ControlSource = "[" & rs.Fields(4).Name & "]" txtqawmy.ControlSource = "[" & rs.Fields(3).Name & "]" txtqaydn.ControlSource = "[" & rs.Fields(18).Name & "]" txtfn.ControlSource = "[" & rs.Fields(12).Name & "]" txtmn.ControlSource = "[" & rs.Fields(15).Name & "]" txtwn.ControlSource = "[" & rs.Fields(20).Name & "]" txtmelad.ControlSource = "[" & rs.Fields(25).Name & "]"

تفضلوا و أعانكم الله هذا نموذج من القاعدة ss18.accdb

شكرا للأستاذ جعفر لكن أستاذنا بعد تحديد مصدر بيانات الفورم بالكود صار الفورم مرتبطا بجملة الاستعلام "SELECT * FROM tblmain" حتى أنها ظهرت فى نافذة خصائص النموذج تماما كما لو أنه معتمد على جدول أنشأت نموذج فارغ غير مضمن وكتبت فى نافذة الخصائص مصدر البيانات نفس جملة الاستعلا SELECT * FROM tblmain; وشغلت النموذج و أضفت سجلا جديدا

شكرا للأستاذ جعفر لكن أستاذنا بعد تحديد مصدر بيانات الفورم بالكود صار الفورم مرتبطا بجملة الاستعلام "SELECT * FROM tblmain" حتى أنها ظهرت فى نافذة خصائص النموذج تماما كما لو أنه معتمد على جدول

السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح recordset عن طريق ال ado قمت بجعل مصدر بيانات النموذج هو ال recordset المسماة adorec كما قمت بإسناد مربعات النصوص لل recordset كل مربع نص إلى حقل فى recordset أنشأت أزرارا للسابق و اللاحق و الأول و الأخير ...... كما ترون بالصورة المشكلة أنشأت زرا لإضافة سجل جديد لكنه لم يقبل و ظهرت رسالة تفيد بأنه لا يمكننى الانتقال للسجل المحدد جربت إضافة سجل جديد بالكود Docmd.gotorecord,,acnewrecord و عن طريق إضافة زر جاهز كل هذا لم يقبله أرجو النصيحة من خبراء المنتدى الأفاضل هل لا يمكن إضافة سجل جديد لنموذج تم تحميل مصدر بياناته ب الريكورد سيت من خلال الكود هذا هو كود الفتح Dim iBink As Integer Dim ForeColor As Long Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub cmdcancel_Click() Me.Undo End Sub Private Sub cmdend_Click() DoCmd.Close acForm, (Me.Name) End Sub Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub Form_Load() Set adocon = CurrentProject.AccessConnection Set adorec = New ADODB.Recordset With adorec Set .ActiveConnection = adocon .Source = "SELECT * FROM tblmain" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With هنا إسناد الريكورد سيت لتكون مصدر بيانات النموذج Set Me.Recordset = adorec و هذه جمل لتحديد مصدر بيانات مربعات النصوص لتكون حقول فى recordset txtfind.ControlSource = "=[" & adorec.Fields(0).Name & "]" txtname.ControlSource = "=[" & adorec.Fields(5).Name & "]" txtqawmy.ControlSource = "=[" & adorec.Fields(4).Name & "]" txtqaydn.ControlSource = "=[" & adorec.Fields(20).Name & "]" txtfn.ControlSource = "=[" & adorec.Fields(13).Name & "]" txtmn.ControlSource = "=[" & adorec.Fields(16).Name & "]" txtwn.ControlSource = "=[" & adorec.Fields(22).Name & "]" txtmelad.ControlSource = "=[" & adorec.Fields(31).Name & "]" End Sub Set adorec = Nothing Set adocon = Nothing End Sub

وفقكم الله ونحن متابعون

عودا حميدا أستاذ @jjafferr شكلك مذاكر و راجع شكرا ع الملف النافع

شكرا لك على المرور أخى

بوركت أخى

السلام عليكم هذا جهد متواضع قابل للتطوير كتبته على عجالة لتوزيع الدارسين بأعداد مختلفة على عدد من القاعات يوجد بالنموذج 6 مربعات نص تكتب بكل منها عدد الطلاب بكل قاعة والبرنامج يوزع بناء على طلب أحد الإخوة هنا الملف بصيغة 2007 و 2003 keraaaaaaaa.rar

ععد القاعات غير ثابت لكن لابد أن هناك حدودا لعدد القاعات بالمبنى أقصى عدد نقول مثلا 6 قاعات وهذا الكود جاهز لتوزيع الطلاب على أى عدد من القاعات من 1 - 6 سواء كلها أو بعضها سأرفع الملف إن شاء الله فى موضوع منفرد لعل أحدا يستفيد منه الكود Private Sub أمر11_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim n As Integer Dim i As Integer Set db = CurrentDb Set rs = db.OpenRecordset("q_New_Stu_Tawzee3") rs.MoveFirst For i = 1 To Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4) + Val(Me.mh5) + Val(Me.mh6) Select Case i Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4) + Val(Me.mh5) n = 6 rs.Edit rs!CurrFasl = n rs.Update Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4) n = 5 rs.Edit rs!CurrFasl = n rs.Update Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) n = 4 rs.Edit rs!CurrFasl = n rs.Update Case Is > Val(Me.mh1) + Val(Me.mh2) n = 3 rs.Edit rs!CurrFasl = n rs.Update Case Is > Val(Me.mh1) n = 2 rs.Edit rs!CurrFasl = n rs.Update Case Is <= Val(Me.mh1) n = 1 rs.Edit rs!CurrFasl = n rs.Update End Select rs.MoveNext Next i Set rs = Nothing Set db = Nothing End Sub طلبك هنا

الحقيقة لا إن شاء الله نجد ما تريد

الله يبارك فيك أستاذى kanory@ هل عدد القاعات ثابت؟ عدد القاعات و ليس عدد الطلاب بكل قاعة

ليه كده بس كنت خلاص بدأت أستطيع النوم و الراحة بعد ما توصلنا لهذا الكود )لا أنسى فضل الأستاذ محمد صالح مع أن الكود مختلف ) لكن إن شاء الله نجد معك ما تريد هل تريد القاعات متوازنة من حيث الضعيف و المتوسط و الممتاز أم عدد فقط؟

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

كان بعيد المنال لكن الله تعالى وفق إليه

السلام عليكم هذا الموضوع أصله هنا الكود Private Sub ÃãÑ11_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("q_New_Stu_Tawzee3") rs.MoveFirst Do Until rs.EOF On Error GoTo 1 For x = 0 To 5 For i = 1 To Me.tfasl If x = i Then GoTo skipeme rs.Edit rs!CurrFasl = i rs.Update rs.MoveNext skipeme: Next i Next x Loop Me.Requery Me.Refresh Set rs = Nothing Set db = Nothing 1: End Sub

السلام عليكم تفضل أخى الكريم الكود السريع جدا لتوزيع التلاميذ على حسب عدد الفصول التى تريدها( تختار عدد الفصول ) ستجد ملفين لإصدار أكسيس 2003 و 2007 Desktop.rar

إن شاء الله أخى أقرب مما تتوقع

عفوا أخى وفقكم الله

لجميع الإخوة كود التوزيع حسب النمط السابق مجرب لكود بعد تطبيقه بنجاح على أكسيس Private Sub أمر11_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("q_New_Stu_Tawzee3") rs.MoveFirst Do Until rs.EOF On Error GoTo 1 For x = 0 To 5 For i = 1 To Me.tfasl If x = i Then GoTo skipeme Debug.Print i, x rs.Edit rs!CurrFasl = i rs.Update rs.MoveNext skipeme: Next i Next x Loop Me.Requery Me.Refresh Set rs = Nothing Set db = Nothing 1: End Sub