-
Posts
3,015 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
4
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبد الفتاح كيرة
-
نعم هو حقل متعدد أنا فرغت فرع الداتا فقط
-
كود حذف المرفق.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 & "]"
- 7 replies
-
- 1
-
- controldata
- datasource
-
(و1 أكثر)
موسوم بكلمه :
-
تفضلوا و أعانكم الله هذا نموذج من القاعدة ss18.accdb
- 7 replies
-
- controldata
- datasource
-
(و1 أكثر)
موسوم بكلمه :
-
شكرا للأستاذ جعفر لكن أستاذنا بعد تحديد مصدر بيانات الفورم بالكود صار الفورم مرتبطا بجملة الاستعلام "SELECT * FROM tblmain" حتى أنها ظهرت فى نافذة خصائص النموذج تماما كما لو أنه معتمد على جدول أنشأت نموذج فارغ غير مضمن وكتبت فى نافذة الخصائص مصدر البيانات نفس جملة الاستعلا SELECT * FROM tblmain; وشغلت النموذج و أضفت سجلا جديدا
- 7 replies
-
- controldata
- datasource
-
(و1 أكثر)
موسوم بكلمه :
-
شكرا للأستاذ جعفر لكن أستاذنا بعد تحديد مصدر بيانات الفورم بالكود صار الفورم مرتبطا بجملة الاستعلام "SELECT * FROM tblmain" حتى أنها ظهرت فى نافذة خصائص النموذج تماما كما لو أنه معتمد على جدول
- 7 replies
-
- controldata
- datasource
-
(و1 أكثر)
موسوم بكلمه :
-
السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح 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
- 7 replies
-
- 1
-
- controldata
- datasource
-
(و1 أكثر)
موسوم بكلمه :
-
وفقكم الله ونحن متابعون
-
عودا حميدا أستاذ @jjafferr شكلك مذاكر و راجع شكرا ع الملف النافع
-
توزيع الدارسين بأعداد مختارة على عدد من القاعات
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
شكرا لك على المرور أخى -
السلام عليكم هذا جهد متواضع قابل للتطوير كتبته على عجالة لتوزيع الدارسين بأعداد مختلفة على عدد من القاعات يوجد بالنموذج 6 مربعات نص تكتب بكل منها عدد الطلاب بكل قاعة والبرنامج يوزع بناء على طلب أحد الإخوة هنا الملف بصيغة 2007 و 2003 keraaaaaaaa.rar
-
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
ععد القاعات غير ثابت لكن لابد أن هناك حدودا لعدد القاعات بالمبنى أقصى عدد نقول مثلا 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 طلبك هنا -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
الحقيقة لا إن شاء الله نجد ما تريد -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
الله يبارك فيك أستاذى kanory@ هل عدد القاعات ثابت؟ عدد القاعات و ليس عدد الطلاب بكل قاعة -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
ليه كده بس كنت خلاص بدأت أستطيع النوم و الراحة بعد ما توصلنا لهذا الكود )لا أنسى فضل الأستاذ محمد صالح مع أن الكود مختلف ) لكن إن شاء الله نجد معك ما تريد هل تريد القاعات متوازنة من حيث الضعيف و المتوسط و الممتاز أم عدد فقط؟ -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
جدول الحصص عنوان كبير فى عالم البرمجة و له برنامج عالمى معروف أما جدول الحصص الخاص بى فشأنه شأن آخر فهو فقط يستخرج جداول من الجدول الرئيس مثل جدول مدرس جدول فصل جدول إشراف عدد حصص مدرس جدول مادة إلخ هذا للتصحيح وأفضل ما رأيت مشابهة للبرنامج العالمى برنامج جدول الحصص تصميم أستاذنا بقسم الإكسيل خبور خير حفظه الله -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
كان بعيد المنال لكن الله تعالى وفق إليه -
السلام عليكم هذا الموضوع أصله هنا الكود 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
-
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
السلام عليكم تفضل أخى الكريم الكود السريع جدا لتوزيع التلاميذ على حسب عدد الفصول التى تريدها( تختار عدد الفصول ) ستجد ملفين لإصدار أكسيس 2003 و 2007 Desktop.rar -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
إن شاء الله أخى أقرب مما تتوقع -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
عفوا أخى وفقكم الله -
كود توزيع التلاميذ على الفصول
عبد الفتاح كيرة replied to عبد الفتاح كيرة's topic in قسم الأكسيس Access
لجميع الإخوة كود التوزيع حسب النمط السابق مجرب لكود بعد تطبيقه بنجاح على أكسيس 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