السلام عليكم ورحمة الله وبركاته
مساعدة مستعجلة ضروري
عندي قاعدة بيانات سويت طريقة بحث يعرض ناتج البحث في الداتا قريد
اريد كود لربط التقرير بالداتا قريد
ثم طباعة هذا التقريرالله يخليكم ارجو عدم التجاهل
اريد طريقة ربط التقرير بالداتا قريد
مغلق
عليكم السلام ورحمة الله وبركاته
بالأول فهمني كيف المطلوب ؟
----------
اريد كود لربط التقرير بالداتا قريد
-------------
يعني تعرض النتائج بالداتا قريد وإذا ضغط عليها المستخدم عرضت النتائج ؟
حال المشروع/ قاعدة بيانات بطريقة adodc
تم عمل بحث بحيث تسجل نتائج البحث في الداتا قريد وعملت ايضا تقرير
المطلوب ربط هذا التقرير بالداتا قريد
بحيث لا يظهر في التقرير سوى البيانات الموجودة في الداتا قريد التي هي
نتائج البحث
ارجو انك تكون فهمت علي
وشكر جزيل على الرد
عفوا انا استخدم الربط بالقاعدة عن طريق الكود
ولكن اجعل الـ Data Sorce للتقرير = الاداة
set datareport1.datasorce=adodc
اخوي اولا مشكور على الجهد اللي بذلته
الملف المرفق يفتح لكن خالي من الفورم
وبالنسبة للتقرير الكود ما طبق ويظلل على datasorce
اخوي لو سمحت لما يتم امزال ملف
نفتح بوجكت صح انا لما افتحه لا اجد الفورمات
صحيح ان الفورمات موجودة في المجلد ككل
لكن في بروجكت غير موجودة
اختي العزيزة تراك شككتيني في نفسي !
موجود الفورم إذا ضغطتي على البروجكت واشتغل البرنامج ظهر الفورم وكذلك DataReport1
اتمنى من بقية الأعضاء تنزيل الملف وتجربته
ينفتح لي كل فورم في مشروع لوحده
لكن المشروع الكبير لما أضغط عليه
ما فيه ولا فورم
المهم انا فتحت الفورم الاول لقيت زر امر عرض التقرير
طيب أخذة الكود وطبعا غيرة رقم الداتا ريبورت
فتحة التقرير لوحده لوتقول لي كيف عملة هذا التقرير
لاني لاحظت انه بدون بيئة التقارير
ياليت يكون الشرح نظري وبالتفصيل
لان انا عندي خبرة في اعداد التقارير
لكن وقفت عند الربط انا اعرف اربطه بالفورم
لكن الآن اريد ان اربطه بالداتا قريد
واكون شاكره لك لونزلت الشرح بدون مجلدات وروابط
----------------------------------
لكن الآن اريد ان اربطه بالداتا قريد
---------------------------------
بما أننا ربطنا الداتا قريد بالـAdodc فبالتالي التقرير يربط بالـAdodc لانه نفس النتيجة
وهنا موضح كيفية صنع داتا ريبورت بدون داتا انفرونمينت
إذا ما كان واضح وضحنا اكثر
والله الموفق
اخوي الحمد لله اشتغل تنزيل الملفات الحين بنزل الملف
وعدل فيه زي ماتبي المهم يطبق لاني سويت طريقتك لكن مافيه فايدة
مشكور اخوي وقربت
الذي اريدة زر امر جديد بجانب زر البحث وزر آخر للطباعة
بعدما أنفذ البحث ويطلع ناتج البحث في الداتا قريد اضغط على زر التقرير ثم يخرج التقرير بعدين
زر الطباعة لطباعة التقرير
الله لايهينك عدل على الملف وبعدين نزله
الحمد لله ياخوي الفضل يعود لك بعد الله
لك مني شكر جزيل عدلت على الملف بعد مانزلته
وطبق زي اللي طلبته عاد الحين نبي همتك في كود
طباعة التقرير
اخوي العفو مانتبهة لردك
اسفة وهو نفس اللي طلبته
راح اوصل الطابعة وارد عليك
واتأسف مرة ثانية ماصدقت اني حصلت الكود
المثال يطبق
لكن لما حاولت انقله للمشروع عطاني مسج
[failed getting rowset from current data source]
بالرغم ان التقرير صحيح
يعني نقلتي الفورمات لمشروع جديد ؟
تأكدي إن حقول النص التي تعرض البيانات في الداتا ريبورت مربوطة بحقولها Field
الله يجزاك الخير
لكن واجهتني مشكلة في تغيير كلمة المرور
انا ادخل بكلمة محمد
لما اضغط على تغيير واسجل في
كلمة المرور القديمة محمد
واسجل الكلمة الجديدة وتاكيدها
يعطيني مشج كلمة المرور القديمة خطاء بالرغم اني
ادخل بكلمة محمد صحيحة
الفورم الاول
Private Sub Command1_Click()
If Text1.Text = Password Then
MsgBox "تم تسجيل دخولك"
Form2.Show
Form1.Hide
Else
MsgBox "الكلمة التي قمت بكتابتهاغير صحيحة "
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form11.Show
Form1.Hide
End Sub
Private Sub Form_Activate()
Password = GetSetting("project1", "password", "security", "درة البحر")
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
الفورم الثاني
Private Sub Command1_Click()
If Text1.Text <> Password Then
MsgBox "خطأ فى كلمة المرور القديمة", vbCritical
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "من فضلك ادخل كلمة المرور الجديدة", vbCritical
Exit Sub
End If
If Text3.Text <> Text2.Text Then
MsgBox "من فضلك اعد كتابة كلمة المرور بطريقة صحيحة", vbCritical
Text3.SetFocus
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
Exit Sub
End If
SaveSetting "project1", "password", "security", Text2.Text
MsgBox "تم تغيير كلمة المرور", vbInformation
Me.Hide
Form1.Show
End Sub
Private Sub Command2_Click()
Form1.Show
Form11.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
ماذاتقصد
هذا الموضوع مغلق.