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

كود بحث أو طريقة تقوم بالمهمة التالية

مغلق
بدأه just now في 29 يوليو 2006 · 26 رد · 2,467 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

lookfor.rarالسادة الكرام أعضاء المنتدي

السلام عليكم

لدي سؤال بسيط عن كود بحث أو دالة تقوم بالمهمة التالية (للعلم بحثت ولم أجد شيئاً مشابهاً في المشاركات فإن كانت موجودة أرجو التوجيه)

عمل بحث علي رقم الموظف بإستخدام مربع نص رقم الموظف الموجود بالنموذج ( أنا رأيتها في أحد البرامج لا أدري إن كان هذا ممكناً في أكسيس ) بدون أستعلام أو فلتره وبمجرد إدخال رقم الموظف وعند حدث ( التغيير أو الضغط إنتر ) يقوم بالبحث عن سجل الموظف ويعرض في النموذج وإذا لم يجد السجل المطابق للرقم يحفظ الرقم " القيمة المدخلة " ويذهب بها إلي إضافة سجل جديد وتكون هذه القيمة المدخلة هي رقم الموظف للسجل الجديد " هذا مع إمكانية إستخدام أزرار التنقل

قرأت في أحد المشاركات للسيدة الفاضلة " زهرة " عن الدالة (ELOOKUP ) وقالت فيها فقط ضعها في جيبك وتعمل ولقد وضعتها في وحدة نمطية ولكن لم أعرف ماذا أفعل بعد ذلك " المهم هل تستطيع هذه الدالة أو أي شيء أخر بالقيام بالمهمة السابقة

أرجو الإفادة

شكرا لكل من يتفضل بالرد

مرفق نموذج للإيضاح والتعديل

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#2

ماذا أقول ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

عجبت لك يا منتدي من بين المنتديات حشود ............

حظيت بإناس نزحوا إليك من كوكب بعهود .............

تراهم يكرون لكل جارحاً لأكسيس بعتود ................

تنهال الإجابات منهم كوابل يرتشق السدود ..............

فارين من كل سائلاً بلطف ودود.......................

ليس عندنا لك برهة تأتيك بالردود .....................

عجبت لك يا منتدي فأين أنت بين الشقوق ...............

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#3

أخي انتظر جاري التعديل علي ملفك .........

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

شكرا أخي العزيز

أنا منتظر الرد

وضعها الله عز وجل في ميزان حسناتك ولن أقول أكثر الآن

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#5

:(

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#6

:rolleyes:

الأخوة الأفاضل

هل أنتظر أكثر

أم هذا غير ممكن في أكسيس

هل أذهب إلي مكان أخر للبحث عن ضالتي

أرجو من السادة الكرام الرد

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#7

أخي الفاضل

انظر لهذا المثال لحين اجراء التعديلات اللازمة علي ملفك بالضبط

http://www.transferbigfiles.com/Download.a...11-83e5b1b8e2c0

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#8

السلام عليكم

شكرا أخي الكريم " mmfouad"

المثال رائع رأيته في أحد المشاركات للأستاذة المشرفة زهرة

بإنتظار التعديل علي الملف

بارك الله فيك وجزاك بكل خير

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#9

السلام عليكم

الأخت الفاضلة زهرة

مضطر لأن أطلب منك الرد لأنه حتي الأن لم يصل أي رد أعرف أن السؤال ليس بالصعب أن تجيبي عليه

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

شكراً

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#10

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

ورغم ذلك لا نستطيع أن نعز عليك أي شيء وانا ايضاً منتظر رد من المشرفة زهرة لكي استفيد مثلك من خبرتها الواسعة

اليك الملف بعد التعديل ويارب المثال تستفاد منه ويارب يكون هو ده المطلوب ومنتظر رد منك . . . .

lookfor.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#11

السلام عليكم

أخي العزيز mmfouad

أنا فعلا عاجز عن الشكر و لو لم أعلم أنني سوف أحصل علي إجابة وأجد المساعدة هنا لما طرحت السؤال

أشكرك جزيل الشكر علي إهتمامك وسعة صدرك ولأنك لم تبخل بوقتك أو بجهدك رغم مسئولياتك

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

جعلها الله في ميزان حسناتك

بالنسبة للمثال المرفق فعلا هذا ما أريد وهناك ملاحظة صغيرة عليه أرجو أن لا أكون أثقلت عليك

وهي لا يمكن إضافة سجل جديد , كذلك لا يمكن إستخدام أزرار التنقل للسجل السابق أو التالي مثلا

أكرر شكري لك ولكل الأخوة الأجلاء

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#12

يا باشا لا شكر علي واجب

والله لو بأديا لاقدم لك الكثير

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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#13

السلام عليكم

أخي الكريم محمد

شكرا لإهتمامك ولطول أناتك

فمهما كتب ومهما رسمت ومهما قولت لن يرقي كلامي البسيط المتواضع ليكن تعبيراً عن الشكر والإمتنان

بإنتظار التعديل

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#14

أخي الكريم

Just Now

اليك اللمرفق بآخر تعديل

1 - حاول كتابة كود الموظف وانظر ماذا سيفعل البرنامج سيتم اعلامك البرنامج بان الكود الذي ادخلتة مختص برقم موظف موجود بقاعده بياناتك

2 - وبعد اعلامك بالرساله يمكنك رؤية بيانات الموظف ولكن للقراءة فقط ولا يمكن التعديل علي البيانات

3 - وعند الضغط علي زر الخروج من هذا النموذج يتم رجعوك للنموذج الرئيسي مرة اخري وعند اضافة رقم موظف جديد يعتبرة البرنامج انه موظف جديد

4 - كذلك يمكنك إستخدام أزرار التنقل للسجل السابق أو التالي

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

علي فكرة السيده الفاضلة زهرة هي التي لها الفضل الاول والاخير فيما انا فيه الان من خبرة صغيره في عالم البرمجة :lol:

lookfor.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#15

السلام عليكم أخي العزيز

محمد فوْاد

بحثت عن سطراً يعبر عن شكري فلم أجد

بحثت عن كلمة تعبر عن شكري لك فلم أجد

بحثت عن حرف أعبر به عن شكري فلم أجد

ولكني وجدت باقة أزهار " حب ، عطاء ، إحترام ، إمتنان ، سمو أخلاق ، طول أناه ، .................. " أهديها لك تعبيراً عن شكري

التعديل المرفق قريب جدا مما أريد وهذا جهد تشكر عليه ولكن به ملاحظة صغيرة في حالة السجل الجديد " لا يعمل " يمكنك مراجعة المرفق

شكرا لك أخي الفاضل

وليت الأستاذة زهرة تتكرم بالمشاركة لتقول لنا رأيها في الموضوع .

أسف علي التأخير في الرد لظروفي الشخصية

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#16

أخي العزيز

لأجل عيونك تم التعديل بالمرفق مرة أخري قم بفتح البرنامج وقم بكتابة رقم الموظف 500 فيها بياناتي واستعرض البيانات

ثم قم بغلق النموذج الذي يتم من خلاله استعراض البيانات وبعد ذلك قم بإدخال سجل جديد جرب ورد عليا وان شاء الله تعجبك . . . .

ملحوظة

أنا لا أستاهل كل الكلام الجميل ده ده انا ما زلت تلميذ صغير في هذه القلعة العريقة

lookfor.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#17

السلام عليكم

أخي العزيز محمد

شكرا علي الإهتمام بالموضوع والرد

بقيت ملاحظة أخري أتمني سعة صدرك التي إعتادنا عليها

وهي وأنت في النموذج الرئيسي قم بإستخدام أزرار التنقل حتي تصل إلي سجلك وبعدها قم بكتابة رقم سجل غير موجود ليكن 1111 وأنظر ما سيحدث

سيقوم بتغير رقم سجلك فقط ولن يذهب إلي سجل جديد كما هو مفترض

شكراً لك

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

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#18

السلام عليكم

أخي الفاضل محمد

تحياتي لك ولكل الأعضاء الكرام

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

المشكلة به لم أستطع التخلص من مربع النص الإضافي " text40"

فهل ممكن التعديل للتخلص من هذه المشكلة

شكرا

for_TEST.rar

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#19

أخي الحبيب

Just now

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

سأحاول التعديل علي المرفق مرة أخري . . . انتظر . . . . . حتي يتم التعديل

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#20

السلام عليكم

الأخوة الأعزاء

تحياتي لكم

أخي الفاضل محمد شكرا جزيلاً لك إنت فعلاً تعبت معي جزاك الله خيراً

بإنتظار ردك

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#21

أخي العزيز

Just now

******* المشكلة به لم أستطع التخلص من مربع النص الإضافي " text40"********

********فهل ممكن التعديل للتخلص من هذه المشكلة *******

برجاء توضيح الجمله المذكوره أعلاه ليتم تعديل لك المرفق بالطريقة الصحيحة . . . .

:blink:

:blink:

:blink:

:blink:

:blink:

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#22

السلام عليكم

الأخوة الكرام

أخي الفاضل محمد

لقد قمت بشرح المطلوب

في المرفق أدناه

شكرا لك

test.rar

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

#23

أخي الحبيب

Just Now

لاجل عيونك ولاجل خاطرك تم التعديل . . . .

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

في انتظار ردك عن الاخبار ؟ ؟ ؟

Se_test.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#24

كود البحث عن طريق الفيجول بيسك هيكون

dim x as stirng

x=inputbox ("enter number")

data1.recordset.findfirst "labourid='" + x + "'"

if data1.recordset.nomatch then

msgbox "xxxxxx"

end if

end sub

#25

السلام عليكم

الأخوة الأعضاء الكرام

تحياتي لكم

أخي العزيز محمد

لا أعرف كيف أو كم أشكرك به

المرفق يعمل بصورة سليمة كما أريد شكراً جزيلاً لك

أتمني لك المزيد من التوفيق قريبا نراك مشرفا بهذا المنتدي

الأخ الفاضل

theblackwolf

شكرا جزيلاً لك علي الرد

حاولت تجربة الكود المرفق لكن لم يفلح ربما طبقته بطريقة خاطئة

تحياتي لك

سوف أنسى الأمس واليوم و قــد أنــسى غــــــــــــــــــــدا

و سأنسى فترة في العمر قـــد ضاعت ســــــــــــــــــدى

غير أني سوف لا أنسى ســــــــــــــــــــــــــؤالا واحدا

حــــين قال القلب يوما فـــي ارتـــباك: كــــيف أنسي

هذا الموضوع مغلق.

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