jjafferr

سؤالك كان ، وعليه وضعت لك الرد: اما الآن فانت تقول غير هذا: جعفر

وعليكم السلام اعمل زر في النموذج ، وضع عليه هذا الكود ، وسيعطيك جميع اسماء الكائنات في النموذج: Dim ctl As Control For Each ctl In Me.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & Me.Name & "!" & ctl.Name 'End If Next اما اذا اردت معرفة كائنات نموذج آخر ، فضع الكود التالي في وحدة نمطية: Function Control_Names(frm As Form) Dim ctl As Control For Each ctl In frm.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next End Function ثم تناديها من اي نموذج ، وترفق اسم النموذج الذي تريد معرفة كائناته call Control_Names("frm_Main") واذا اردت معرفة كائنات جميع النماذج في قاعدة البيانات ، فضع الكود التالي في وحدة نمطية: Function DB_Form_Control_Names2() Dim AccObjects As Object Dim frm As Form Dim ctl As Control For Each AccObjects In CurrentProject.AllForms Set frm = Forms(AccObjects.Name) For Each ctl In frm 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next Next End Function وتناديها من اي نموذج هكذا: call DB_Form_Control_Names2 جعفر

استخدم نفس الطريقة التي استعملناها هنا: جعفر

عُذرا ، انا لم اهتم ببقية الكود ، وانما تركيزي كان على كود التأكد من تاريخ الادخال استعمل هذا الكود لتصفية التقرير بواسطة حقل التاريخ: DoCmd.OpenReport "Rep_sadder", acViewPreview, , "[date_sad]=#" & X & "#" بدلا عن DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'" جعفر

أخي أبوجاسم للأسف لا يمكن مساعدتك بالمعلومات التي اخبرتنا عنها يجب ان تضغط البرنامج عن طريق winrar او winzip وترفقه ، واذا كان حجمه كبيرا ، فيمكنك رفعه على احد مواقع الرفع ، ووضع رابطه هنا. جعفر

عندما تريد عمل ترتيب في نموذج ، فالأفضل عمل الترتيب في الاستعلام مصدر بيانات النموذج ، حيث يمكنك عمل تسلسل لأكثر من حقل ، وهذا مفيد اذا كان عندك احد الحقول قيمته متساوية (او فارغة) ، فيقوم الترتيب على اساس الحقل التالي بعد الحقل الاول ، اما التقرير ، فلا يحترم ترتيب الاستعلام ، وانما يجب عمله من المجاميع جعفر

السلام عليكم أخي محمد عندك موضوع بنفس المسمى والطلب ، فما في داعي لفتح موضوع جديد جعفر

ان شاء الله اجهز بعض الملفات وافتح موضوع جديد فيه جعفر

الموضوع مو سهل ، لهذا السبب اردت ان اسهل عليك وعلى نفسي جرب هذا الكود: Private Sub أمر55_Click() Dim a_rr As Error Dim X As String Dim myDate() As String Dim Separator As String Dim dd As Integer Dim mm As Integer Dim yyyy As Integer On Error GoTo a_rr X = InputBox("ادخل تاريخ الكتاب الصادر", "تقرير تاريخ الكتاب (الصادر) ") 'check if whats entered is a Date 'what did we use as a Separator between the dd-/mm-/yyyy '1st location If Len(Trim(X) & "") = 0 Then MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة" Exit Sub ElseIf InStr(X, "-") > 0 Then '- Separator = "-" ElseIf InStr(X, "/") > 0 Then '/ Separator = "/" Else 'Separator Not known MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة" Exit Sub End If '2nd location If InStr(InStr(X, Separator) + 1, X, Separator) = 0 Then '2nd Separator Not found MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة" Exit Sub End If 'Convert X string to dd, mm, yyyy myDate = Split(X, Separator) dd = myDate(0) mm = myDate(1) yyyy = myDate(2) 'is it a Date 'check for X as as a Date in the Format yyyy/-mm/-dd Debug.Print CDate(CStr(yyyy) & Separator & CStr(mm) & Separator & CStr(dd)) If IsDate(CStr(yyyy) & Separator & CStr(mm) & Separator & CStr(dd)) = False Then 'Not a valid date MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة" Exit Sub End If DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'" Exit Sub a_rr: MsgBox "رجاءاعد المحاولة مرة اخرى فان ادخالك خاطيء ", vbOKOnly, "ادخال قيمة خاطئة " End Sub جعفر

هلا والله ، وعلى راسي جعفر اخي شفان ولكني انصحك ان تُنزل المرفق التالي ، والذي به يكتمل ربط الـ FE و BE جعفر

شكرا جزيلا جعفر

رجاء توضيح هذه النقطة جعفر

اخي شفان رجاء تنزل المرفق من الرابط الذي وضعته انا ، ففيه نفس الكود الذي وضعه اخينا محمد ، وانا استعمل هذا الكود في جميع برامجي ، وهو يعمل من الاكسس 2000 فما فوق والكود أعم واكبر قليلا من كود اخينا محمد ، وأغلق به بعض الامور الاخرى كذلك جعفر

وعليكم السلام انت اخبرتني ان اسم الزر: وانا لقيت زر معاينة التقرير تحت التواريخ مباشرة ، لهذا السبب اشتغلت عليه ومرة اخرى اعطيت اسم الزر الخطأ هنا 1. كما اشرت لك سابقا ، الافضل ان تعمل حقل للتاريخ في النموذج ، وتستعمل تنسيق التاريخ فيه (كما عملت انت في حقول التواريخ الاخرى) ، 2. تستعمل الكود الذي اعطيتك للتأكد من وجود تاريخ في الحقل ، 3. والافضل ان يكون مصدر بياناتك من استعلام ، بدل الجدول مباشرة ، فقد تحتاج عمل تعديل عليه لاحقا جعفر

1. حقول التاريخ الاربعة تعمل بشكل صحيح في مرفقك ، حيث لا تستطيع ادخال اي شيء سوى التاريخ ، ولكنك لم تطلب من البرنامج ان يتأكد من وجود التواريخ قبل فتح التقرير!! استعمل هذا الكود: Private Sub أمر46_Click() If Len(Me.date1 & "") = 0 Or Len(Me.date2 & "") = 0 Then MsgBox "رجاء ادخال التواريخ" Exit Sub End If DoCmd.OpenReport "Rep_Qury_sad", acViewPreview End Sub ونصيحة: لا تحتفظ بالصور داخل برنامجك ، لأن حجمه سيكبر كثيرا وتتعرض للكثير من المشاكل فيه لاحقا. 2. ابحث في المنتدى ، فهناك الكثير من الامثلة على طلبك ، واذا احتجت مساعدة ، فرجاء فتح سؤال جديد ، حيث قوانين المنتدى لا تسمح بأكثر من سؤال واحد لكل موضوع جعفر

الرابط السابق لا يعطي النتائج اذا الحقل يساوي NULL ، لذلك عملت التغيير على استعلام برنامجك ، حتى تحتوي النتائج على جميع الحقول ، التي بها قيم او التي لا تحتوي على قيم او التي هي عبارة عن Null : هذا المثال للحقل School بدل School: Like "*" & [Forms]![Datamasterform]![School] استعمل School1: Nz([School],"") IIf(Len([Forms]![Datamasterform]![School] & "")=0,Nz([School],""),[Forms]![Datamasterform]![School]) جعفر 660.Test2000.mdb.zip

وعليكم السلام اقرأ الرابط التالي ، وخصوصا الجملة باللون الاحمر: واللي يهمك هو كود Room_No جعفر

لجعل الامر السابق يعمل ، يجب ان نضع علامة صح على الاعدادات التالية (اللي في الدائرة الحمراء): في الاكسس 2003 فما دون: . والاكسس 2010 . جعفر

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

انا اعطيتك رابط فيه مثال ، فهل جربته؟ جعفر

السلام عليكم ومشاركة مع أخي محمد اخي خالد ، المشكلة انك استعملت الاشهار للمتغير Exam_no مرتين : في الوحدة النمطية ، وهذا هو المكان الصحيح لها : . واستعملتها في النموذج Exam ، فيجب عليك حذفها من هنا: جعفر

السلام عليكم انا اتعامل مع برامجي FE بهذه الطريقة: جعفر

شكرا على الملاحظة ، وتم تعديل المثال في موضوعي بالنسبة للتاريخ ، فالافضل ان تعمل التنسيق للحقل من اعدادات الحقل في النموذج ، هكذا مثلا: dd/mm/yyyy جعفر

السلام عليكم شباب عيدكم مبارك وايامكم سعيدة ان شاء الله جعفر

وعليكم السلام هذه طريقتي: Private Sub ÃãÑ56_Click() Dim a_rr As Error Dim X As String On Error GoTo a_rr X = InputBox("enter text", "text ") If Len(Trim(X)) = 0 Then MsgBox "error " Exit sub end if For i = 1 To Len(X) If IsNumeric(Mid(X, i, 1)) Then MsgBox "contains Numbers" Exit Sub End If Next i DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'" Exit Sub a_rr: MsgBox " error " End Sub جعفر