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

مشكله في استخراج بيانات من قاعدة البيانات

بدأه yousif887788 في 12 يوليو 2012 · 12 رد · 869 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

بحثت في بعض مواضيع المنتدى حتى اجد لربما نفس المشكلة التي تواجهني لكن لم اجد شيء

المشكله قبل الدخول في المشكله اود ان اشرح ما هوه نوع البرنامج

البرنامج عباره عن قاعدة بيانات تتكون من اسم و اسم العائله و المواليد و رقم الهاتف و الاميل و رقم حصري لا يتركك باريم

هنا لا توجد اي مشكله تعمل قاعدة البينات تحت الاكسس 2003 و استطيع الطباعه او مشاهدة تقرير و ما الى

لكن عملت جدول ثاني او قاعدة بيانات ثانيه يوجد فيها فقط الرقم باريم و الاسم و اسم العائله كل ما اريده هوه عندما ادخل الرقم اذا كان الرقم موجود في القاعدة الاولة يتم سحب الاسم و اسم العائله و يدخل البيانات الى هذه القاعدة الجديده و اذا لم يكن الرقم موجود يعطيني تحذير او تنبيه ان الرقم غير موجود في القاعدة الاولة هذه كل ما في الامر

الهدف من البرنامج لدية مؤتمر و اود ان ارسل للزوار اراقام حصرية حتى اتجاوز الوقوف الطويل و الوقت عندما يكون الشخص مسجل في قاعدة البينات يسهل التعرفة عليه و يتم ادخال الاشخاص للمؤتمر بسرعه الا ادري اذا كان اي شخص لعدية فكره او شيء ما يساعدني فيه اتمنى ان احصل على جواب طبعا انا ربطت الرقم في قاعدة البيانات 1 مع قاعدة البيانات 2 لكن لا يعمل لا ادري كيف اجعل البرنامج يستورد البيانات

شكرا لكم

#2

لا ادري يمكن طريقة طرحي للسؤال غلط او لربما لا احد يحب او يرغب في مساعدتي ؟؟

#3

أخي الكريم

أرفق مثال ليتم التعديل عليه إن شاء الله تعالي .

بالتوفيق،،،

#4

السلام عليكم و رمضان كريم

اسف على كل هذه التئخير اخي الكريم لكن كنت مسافر و لم استطع الرد بصورة صحيحه

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

و عذرا لان وضعت الملف في ارشيف لكون ليس مسموح رفع ملف اكثر من 600 كيلو و الملف هوه تقريبا 900 كيلو و لا ادري كيف اصغر حجمه

db1.rar

#5

يا اخوان صار تقريبا 20 يوم على الموضوع و لم اجد الجواب الرجاء للاخوه و الاخوات من ذو الخبره ان يفيدوانا لان محتاج البرنامج و بحاول بكل الطرق منها جايه معي

تحياتي

#6

يئس الظاهر ماكو اي جواب

#7

تفضل اخى ما تريد

هناك مشكلة فى رفع المرفق

عموما ضع هذا الكود فى النموذج الثانى (نموذج الادخال )

لاحظ تم تغيير اسم حقل الاسم الى tname فى الجدولين لان name من الكلمات المحفوظة

و احذف المسافة من اسم الحقل last name

Private Sub P_Id_BeforeUpdate(Cancel As Integer)
If DCount("[Id-Number]", "[Tabel1]", "[Id-Number]=" & P_Id) > 0 Then
'MsgBox "yes"
' لاحظ تم تغيير اسم حقل الاسم لان  من
' name من الكلمات المحفوظة
Me.TName = DLookup("[TName]", "[Tabel1]", "[Id-Number]=" & P_Id)
Me.Lastname = DLookup("[Lastname]", "[Tabel1]", "[Id-Number]=" & P_Id)
Else
MsgBox "number not found in db"
End If
End  Sub

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 3 أغسطس 2012 في 16:59

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#8
Abo_Yossof كتب:

تفضل اخى ما تريد

هناك مشكلة فى رفع المرفق

عموما ضع هذا الكود فى النموذج الثانى (نموذج الادخال )

لاحظ تم تغيير اسم حقل الاسم الى tname فى الجدولين لان name من الكلمات المحفوظة

و احذف المسافة من اسم الحقل last name

Private Sub P_Id_BeforeUpdate(Cancel As Integer)
If DCount("[Id-Number]", "[Tabel1]", "[Id-Number]=" & P_Id) > 0 Then
'MsgBox "yes"
' لاحظ تم تغيير اسم حقل الاسم لان  من
' name من الكلمات المحفوظة
Me.TName = DLookup("[TName]", "[Tabel1]", "[Id-Number]=" & P_Id)
Me.Lastname = DLookup("[Lastname]", "[Tabel1]", "[Id-Number]=" & P_Id)
Else
MsgBox "number not found in db"
End If

شكرا جزيل الشكر اخ ابو يوسف سوف اجربها و إن شاء الله تنجح وو ممنون الك

تحياتي

#9

اخي ابو يوسف وضعت الكود في نموذج الادخال الثاني و غيرت النيم الى تي نيم و حضفت الفاصله الموجود بين لاست نيم لكن عندما ادخل رقم في نوذج الادخال الثاني يعود فيني الى مكان الكود و يقول في خطاء ما و يضع اشارع على If DCount("[id-Number]"

اين يمكن يكون الخلل

شكرا اخي

#10

ضع الكود الموجود لديك اخى لمراجعته

و ضع نص رسالة الخطأ التى تظهر

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#11

تفضل اخي هذه الرساله الغلط الاوله

compile error sub or function not defined

و من بعد لما اضغط اوكي يعطيني مربع الكومند

Private Sub P_Id_BeforeUpdate(Cancel As Integer)


If DCount("[Id-Number]", "[Tabel1]", "[Id-Number]=" & P_Id) > 0 Then 'MsgBox "yes"

Me.tname = DLookup("[TName]", "[Tabel1]", "[Id-Number]=" & P_Id)
Me.LastName = DLookup("[Lastname]", "[Tabel1]", "[Id-Number]=" & P_Id)
ElseMsgBox "number not found in db"

End If
End Sub

هذه كل شيء

#12

الكود لا يظهر به أخطاء

عموما اخيرا استطعت رفع المرفق

جربه الان

db1.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#13

شكرا اخي ابو يوسف على المجهودو تعبك

يعمل الان مثل ما كنت اتمنى شكرا مره اخرى لك

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

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

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

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

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