الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل من مستجيب علي استفساري

بدأه محمد صلاح محمد بدري في 12 يوليو 2011 · 8 رد · 760 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

اخواني ارجو ان اجد عندكم الجواب الشافي لمشكلتي

انا صممت برنامج مبيعات وبقت مشكلتي في التقارير انا بقدر اعمل تقرير عن العملاء كلهم دفعه واحدة وهي الطريقة المعروفة

شرح تاني بالصور

هذا هو البرنامج

opI58845.gif

عندما اضغط علي صفحة بيانات العميل

تطلع الصفحة التالية

peT58845.gif

وعندما اضغط علي تقرير عن حساب العميل

بيطلع التقرير بجميع العملا ء

UK258845.gif

لكن انا اريد عمل تقرير لعميل واحد فقط يعني عندما اضغط علي زر (تقرير عن حساب العميل ) عايز يطلعي رسالة تقولي ادخل رقم العميل فاقوم انا بادخال رقم العميل واضغط اوكي يطلعلي تقرير عنه هو فقط

المشروع مرفق مفتوح المصدر

ارجو ان اجد الحل منكم ووفقكم الله

New Folder.rar

#2

سوري نسيت باسورد البرنامج 2591988

#3

السلام عليكم

لتتمكن من عرض بيانات عميل واحد فقط من الجدول لا بد من عمل استعلام أو Query ويتم ريط التقرير بذلك الأستعلام وليس بالجدول نفسه

لعمل استعلام بالكود

dim x as string

x = inputbox ("من فضلك أدخل أسم العميل")

Dim db As Database

Dim qb As QueryDef

Set db = OpenDatabase("db1.mdb")

on error goto b:

db.QueryDefs.Delete "Cust"

b:

Set qb = db.CreateQueryDef("Cust", "select * from temp1 where name = '" & x & "')

ثم قم بربط التقرير بالاستعلام المنشأ Cust

منحة للخريجين وطلاب الجامعات و المعاهد

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

سبحان الله وبحمده سبحان الله العظيم

#4

مشكور اخي علي مرورك واهتمامك معي

بس ياريت توضح اكتر

اين اضيف الكود الي انتا اديتو ليا وحيظهر فين وياريت كمان توريني ازاي اربطو بالتقرير

ملاحظة / انا عايز اعمل بحث برقم العميل وليس بالاسم

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

تم تعديل هذه المشاركة بواسطة محمد صلاح محمد بدري في 13 يوليو 2011 في 11:52

#5

السلام عليكم

يتم وضع الكود تحت مفتاح عرض التقرير

وتم عمل البحث برقم العميل

وتم ربط التقرير بالاستعلام cust وليس الجدول temp1 أو temp2

http://www.4shared.com/file/NQhZtAKA/New_Folder.html

والله الموفق

منحة للخريجين وطلاب الجامعات و المعاهد

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

سبحان الله وبحمده سبحان الله العظيم

#6

يا اخي اشكرك كيف

ما عندي حاجة اعملها ليك الا ان ادعو لك ولوالديك بالرحمة والغفران

#7

لو فيها تقل يعني ياريت تشرحلي انتا عملت اية بظبط عشان ما اكون لقيت حاجة علي الجاهز ولمن اعمل برنامج تاني اكون انا عارف انا بعمل اية

#8

السلام عليكم

أولاً قمت بتعريف متغير لإستقبال رقم العميل من خلال أنبوت بوكس

dim x as string

x = inputbox ("من فضلك أدخل رقم العميل")

ثانياً قمت بتعريف متغير من نوع قاعدة بيانات لفتح قاعدة البيانات ومتغير من نوع استعلام لإنشاء استعلام

Dim db As Database

Dim qb As QueryDef

ثالثا قمت بفتح قاعدة البيانات من خلال الكود

Set db = OpenDatabase("db1.mdb")

رابعا قمت بانشاء استعلام Cust وتمرير جملة SQL بالشرط المطلوب وهو أختار كل البيانات من الجدول temp1 عندما يكون حقل الرقم يساوي الرقم المدخل في الأنبوت بوكس السابق عرضه

Set qb = db.CreateQueryDef("Cust", "select * from temp1 where nump= '" & x & "')

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

on error goto b:

db.QueryDefs.Delete "Cust"

b:

سادسا : توصيل التقرير بالاستعلام المنشأ Cust

قم بفتح كما في الصورة

748222041.png

قم بعمل Right Click على Command1 ثم قم باختيار Properites

فتظهر أمامك كما في الصورة التالية ثم قم بأختيار View ثم أختار Cust

256650738.png

تم تعديل هذه المشاركة بواسطة Mady-AGC في 16 يوليو 2011 في 21:40

منحة للخريجين وطلاب الجامعات و المعاهد

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

سبحان الله وبحمده سبحان الله العظيم

#9

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

بارك الله فيك يا اخي وربنا يديك الفي مرادك ان شاء الله

والله لي الشرف اني اتعامل مع واحد زيك

في رعايت الله

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…