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

وشكرا ارجو ان يكون السوال واضح............

شرح جميل جدا

الله يوفقك لكل خير اخى امير

اخي رضا

تم التعديل في النموذج

المشكلة كيف ارفق المثال في الموقع