ممكن شرح لكود أستدعاء ((كيف))

[كويتي من ذهب]

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

ممكن حد يشرح لي كيف أعمل كود أستدعاء للفورمه اللي في الصوره
(( مع العلم أنشرح لي سابقاً من أحد الأخوان بس للأسف ما صولت لي المعلومه بالشكل الصحيح))
http://www.n8n8.com/up/get-4-2007-n8n8_com_jttdmy04.JPG
المطلوب من الفورم هو
أن أضع رقم الموظف وأضغط على زر أتسدعاء((أي موافق))
وبعدها يستدعي لي من Text2 إلى Text17 و Text32 من الحقول في قاعدة البيانات أكسس.

[Ahmed_ghanam]

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

[كويتي من ذهب]

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

[كويتي من ذهب]

أخوي أحمد
الكود اللي في الموضوع السابق
http://www.bramjnet.com/vb3/showthread.php?t=271783&page=2
أضغط على زر الأستدعاء يعطيني صندوق حوار وأنا أبي بالــText1 وبعدها اضغط على زر استدعاء .

[Ahmed_ghanam]

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

[كويتي من ذهب]

الله يوفق أخوي أحمد في أمتحاناتك

أذا تعطلك عن دراستك مو مهم الموضوع

هذي وصلة الملف
http://up.9q9q.net/up/index.php?f=LkIMmHnpM

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

[Ahmed_ghanam]

يعنى مفيش قاعدة بيانات مع الملف ؟

[كويتي من ذهب]

لا مافي قاعدة بيانات بالملف

[Ahmed_ghanam]

اخى الغالى ممكن ترفق المشروع بالكامل عشان اخلصه ليك ؟ معلش النت فصل عندى

[كويتي من ذهب]

تفضل أخوي الكريم

http://up.9q9q.net/up/index.php?f=nmktUsad8

ومشكور على تعاونك

وآسف غلبتك وأزعجتك معاي

[Ahmed_ghanam]

ولا يهمك اخى باذن الله اعدل فيه وابعته ليك

[كويتي من ذهب]

ولا يهمك اخى باذن الله اعدل فيه وابعته ليك

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

[Ahmed_ghanam]

تم تعديل البرنامج اخى الغالى يتم وضع رقم الموظف ثم اضغط استدعاء ليتم استدعاء كافه بيانات الموظف البرنامج هنا (http://up.9q9q.net/up/index.php?f=zywgebJjI)

[كويتي من ذهب]

بارك الله فيك أخوي أحمد
وجاري التحميل

[كويتي من ذهب]

جزاك الله خير أخوي احمد
وهذا المطلوب ولكن عندي بعض الأسئلة
- انت عامل قاعدة بيانات بأسم 97؟؟؟
- هل هو الكود
Data1.Recordset.FindFirst "AHMD1='" + Text1.Text + "'"
If Data1.Recordset.NoMatch Then
MsgBox " لايوجد سجل بهذا الرقم ", vbInformation
End If

[Ahmed_ghanam]

جزاك الله خير أخوي احمد
وهذا المطلوب ولكن عندي بعض الأسئلة
- انت عامل قاعدة بيانات بأسم 97؟؟؟
- هل هو الكود
Data1.Recordset.FindFirst "AHMD1='" + Text1.Text + "'"
If Data1.Recordset.NoMatch Then
MsgBox " لايوجد سجل بهذا الرقم ", vbInformation
End If

العفوا اخى الغالى
ايوا اخى الغالى هذا هو الكود وممكن تغير اسم قاعدة البيانات زى ما انت عاوز

[كويتي من ذهب]

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

[Ahmed_ghanam]

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

اخى الغالى اللى نفسى اعرف اسمك ايه المهم قاعدة البيانات اللى انت عاملها انت عامل رقم الموظف حقل رقمى لا المفروش يكون حقل نصى اوك
وفى الداتا بيس اللى هى الداتا1 نعمل Read Only = True

[كويتي من ذهب]

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

[Ahmed_ghanam]

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

العفوا اخى احمد بارك الله فيك اخى الغالى باذن الله موفق اخى الغالى ولو فى اى مشكله انا تحت امرك