Text Box In Report

هل من الممكن أن تضع رابط للقاعدة وأبشر بما يسرك

شكرا أخي أبو حمود

ولكني سبق وذكرت إنني مبتدئ فهل من الممكن أن تشرح لى كيف أضف رابط للقاعده

وجزاكم الله خير الثواب

أنشئ القاعدة لديك ثم ارفقها مع ردك هنا في المنتدى

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

والملاحظ هنا أن فى كل مرة نريد المعاينة يسأل عن هذه البيانات والتي أريد إدخالها مرة واحدة فقط وهي عند أول معاينة مع إمكانية تغييرها إذا تطلب الأمر

وشكراً جزيلاً

master_furn_sched.zip

لقد حملت المثال ولكن لم أفهم المشكلة بالضبط حتى الآن

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

ولك تحياتي

أخي أبو حمود

هذه القاعدة هى الجزء الثاني من المطلوب عمله حيث الجزء الأول خاص ببرنامج الاتوكاد حيث يتم حصر الأثاثات من اللوحة بواسطة برنامج AutoLisp ينتج مخرجات على شكل ملفات نصية يتم استيرادها من واجهة البرنامج الرئيسية وإدخالها فى قاعدة البيانات تلك حيث يتم إدراج الملف النصي الخاص بأسماء الغرف فى جدول room codes ويتم إدراج الملف النصي والخاص بحصر الأثاثات فى جدول typical room configuration ثم يتم عرض تقرير مفصل لأعمال الحصر تلك حيث فى كل مرة إريد معاينة التقرير قبل طباعته يسأل عن إسم المالك للمشروع وإسم المشروع ورقم المبنى والدور الخاص بعملية الحصر تلك.

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

أرجو أن أكون شرحت البرنامج ببساطة وأن أجد الحل لديكم وكل عام وأنتم بخير وتقبل الله منا ومنكم صالح الأعمال.

مثال علي ما تريد

الي أن تحل موضوع القاعدة

Private Sub Report_Open(Cancel As Integer)
DoCmd.SetWarnings False
Dim y As String
If DCount("[ID]", "table2") > 0 Then
  y = Nz(DLookup("[TITLE]", "table2"), "")
  If y = "" Then
    y = InputBox("jjj")
    DoCmd.RunSQL "UPDATE Table2 SET Table2.Title = " + y + ";"
  End If
Else
 MsgBox "it is not >0"
 y = InputBox("jjj")
 DoCmd.RunSQL "INSERT INTO Table2(Title) select " + y + ";"
End If
Reports![table1]![id].Caption = y
End Sub

و طارق حنيدق بيسلم عليك ;)

askfor_titleifempty.zip