SALEM_1212

اخى الكريم التواريخ البداية والنهاية لا توضع في التقارير توضع في الاستعلام ثم تبني التقرير بناء على الاستعلام الذي فية نافذة [ ادخل بداية التاريخ] و نافذة [ادخل نهاية التاريخ]

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

عذرا للمداخلة ربما لا توجد بيانات للفصل الاول من الفترة 01/01/2004 الى 1/3/2004 وشكرا

استخدم هذا الكود من اعداد الاخ مصلح الحريصي If RecordsetClone.RecordCount = 0 Then MsgBox "عفوا لا توجد بيانات", vbInformation + vbMsgBoxRight, "" DoCmd.CancelEvent End If

لقد اكملت الكود واشتغل معاي والحمدلله تسلم اخى محمد طاهر

تعقيب بالنسبة للكود الذي ارفقتة بعد مراجعتي لة فهو يقوم بفتح القاعدة اذا كانت مقفلة بكلمة مرور Function OpenPasswordProtectedDB() Dim strAccessExe As String, strDB As String 'Define as Static so the instance of Access 'doesn't close when the procedure ends. Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String 'The path and filename of the DB to open. strDbName = GetDBDir & "OtherDatabase.mdb" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=pswrd") acc.OpenCurrentDatabase strDbName acc.RunCommand acCmdAppMaximize db.Close Set db = Nothing End Function حيث اننى لم انتبة الى PWD=pswrd هذة الكلمة فقط ضع 123 بدل (pswrd) اخى محمد طاهر بالنسبة للكود الخاص بفتح قاعدة بها ربط للجداول فى قاعدة محمية بكلمة سر فهو يعمل اما اول كود لم يعمل معى عند ما تكون القاعدة محمية بكلمة مرور لا اعرف ما السبب

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

ياريت احد من الاخون يستطع ان يعدل على هذا الكود فهو يقوم بفتح قاعدة بيانات اخرى بس بدون كلمة مرور Function OpenPasswordProtectedDB() Dim strAccessExe As String, strDB As String 'Define as Static so the instance of Access 'doesn't close when the procedure ends. Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String 'The path and filename of the DB to open. strDbName = GetDBDir & "OtherDatabase.mdb" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=pswrd") acc.OpenCurrentDatabase strDbName acc.RunCommand acCmdAppMaximize db.Close Set db = Nothing End Function

اذا كانت لدينا قاعدة بيانات A ( بها فورم لنسمة Form_ِِA) وقاعدة بيانات B (بها فورم Form_B) اذا كانت قاعدة البيانات B مقفلة (بكلمة مرور -مثل -(123) اريد مثلا عندما انا في فورم Form_A في قاعدة البيانات A ان ادخل الى فورم Form_B في قاعدة البيانات B , اي اتجاوز كلمة المرور 123 وشكرا ارجو ان يكون السوال واضح............

شرح جميل جدا الله يوفقك لكل خير اخى امير

اخي رضا تم التعديل في النموذج المشكلة كيف ارفق المثال في الموقع