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

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

مغلق
بدأه alhajri في 12 مايو 2002 · 35 رد · 2,254 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذه اول قاعدة اقوم بعملها المتواضع والفضل كله

لله ثم لكم اخواني الافاضل الذي لولا تعليماتكم

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

واشكركم جميعا .

وانا لم انتهي واسأعمل على اضافة كل جديد

اتعلمه منكم .

وهذا رابط تحميل القاعدة علما بانه هناك سؤال حيريني

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

وهو موجود في نموذج اسمه ( نموذج البحث )( search )

وهناك السؤال موجود داخل هذا النموذج ومن يجد الحل

او الطريقة فرجائي ان يخبرني الطريقة .

شاكرا لكم وتقبلوا تحياتي .. وجزاكم الله خير الجزاء

http://www30.brinkster.com/alhajri/estate.data.mdb

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

#2

هلا بالهاجرى قاعدة جميلة بس ليه مغلقها ماتبغى احد يدخل بالتصميم

ويشوف الحركات الحلوة اللى مسويها:D

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

تحياتى لك...والى مزيد من الابداع...

#3

الأخ : m13

القاعدة ليست محمية 0

أضغط مفتاح Shift ثم افتح القاعدة

#4

مثل ما قال الاخ مصلح اظغط مفتاح shift مع مفتاح انتر

وبالنسبه للعباره اللي تومض روح روح لخصاص النموذج وافتح

عداد الوقت وتشوف الكود هو ملخبط شوي لكن شغال ..

وسلامتك .

وترا انا مجرد متعلم ليس الا ولا استطيع الشرح بشكل علمي

كلها اجتهاد فقط . وبفضل الله وهذا المنتدى

وشكرا لك

#5

هلا بالحريصى وهلا بالهاجرى والف شكر...

لكن انا كنت مسوى نماذج وعلى بالى انى حميتها ومحد يقدر يخش عليها اثارى الموضوع تضغط شفت ويفتح النموذج....:D

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

تحياتى لكما.....

#6

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

الغاء عمل الشفت . وستجد الشرح الوافي بها .

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

لكن لا حول ولا قوه .

وهذه بعض من الموضوعات :

http://www.arabteam2000.com/vb/showthread....highlight=shift

http://www.arabteam2000.com/vb/showthread....%C7%E1%D4%DD%CA

http://www.arabteam2000.com/vb/showthread....%C7%E1%D4%DD%CA

#7

مشكور يالهاجرى ...

#8

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

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

#9

شكرا لك اخ محمد طاهر

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

بعد عمل ما ذكرت اذا لم يكن لديك اية مشكله .

ولا تنسى ان هذا سيكون درس لي انا لكي اقوم بتطبيقة

والعمل به .

#10

سأقوم بالمحاولة باذن الله ، و لكن بعد أيام قلائل باذن الله (لظروف)

و ان ان غاب الموضوع الي اسفل أرجو التكرم بوضع رد "للرفع"

و في ذلك ميزة أنه ربما تطرأ لي أو لغيري فكرة أخري

:rolleyes: :rolleyes: :rolleyes:

#11

انا سانتظرك وسافعل ما تريده

وشكرا لك مره اخرى

#12

للرفع

#13

للرفع

#14

للرفع

#15

الأخ/ الهاجري

مشكلتي مشكلة مع موقع أينا ولكن إذا كنت مصر فضع أميلك هنا وسوف أرسل لك القاعدة بعد أن قمت بما طلبت

#16

اي والله مصر جدا هذا بريدي

alhajri_f@hotmail.com

وجزاك الله الف خير اخ مصلح الحريصي

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

وتقبل تحياتي

#17

الأخ/الهاجري لقد ارسلت لك المثال على بريدك أخبرنا هل وصل أم لا وهل هذا ما تريده

#18

نعم هذا ما اردته بالضبط ورايتك بيضاء وكثر الله

من امثالك .

ولكن هل استطيع ان اطيع النتيجه بدون عرض التقرير

يعني استبدل زر المعاينه بزر طباعة للتقرير من دون

معاينة التقرير بنفس التنسيق .

وجزاك الله خير .

#19

آسف علي التأخير ، علي فكرة فورمة البحث معمولة بطريقة جميلة و لو كنت فتحت تصميمها لأجبت من زمان ، حيث لم أتوقع أن الكود الخاص بالبحث مرتب الي هذه الدرحة

سبقتني يا مصلح :) :) :) ، اشرح لنا حلك لتعم الفائدة ان كان مختلفا

عموما الحل الذي رأيته أنا هو

فى موديول 1  ضع تعريف عام ب 
Mycriteria
Global MyCriteria As String

و فى دالة
 search
الغي ال
 Dim 
الخاص ب 
Mycriteria
أي استبدل  جملة
 'Dim MyCriteria As String, MyRecordSource As String
ب
 Dim MyRecordSource As String


ضع زر علي الفورم 
search
و ضع به الكود التالي
Me.Visible = False
Dim stDocName As String
stDocName = "m"
DoCmd.OpenReport stDocName, acPreview, , MyCriteria
حيث
 m
 هو نسخة من
تقرير بيانات الاراضي


فى حدث عند الغلق للتقرير المسمي
 m
ضع الكود التالي
Forms![search].Visible = True

:) :) :)

#21

الأخ/الهاجري

استبدل الأمر الموجود على زر المعاينة بالكود التالي

    DoCmd.OpenReport "تقرير بيانات الاراضي", acViewNormal, "", "", acHidden

ولا تنسى أن تضبط خاصية منبثق الخاصة بالتقرير على " لا "

وهكذا عنما نقر زر الطباعة يتم طبع التقرير بدون أن يظهر للمستخدم0

الأخ/محمد

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

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

أنني جعلت في حدث عند الفتح للتقرير ما يلي:0

 Me.RecordSource = ("SELECT units.p1, units.p2, units.p3, units.p4, units.p5," _
& " units.p6, units.p7, units.p8, units.p9, units.p10, units.p11, units.p12," _
& " units.p13, units.p14, units.p15, units.p16, units.p17, units.p18, units.p19," _
& " units.p20, units.p21 FROM units WHERE (((units.p1)=[forms]![search]![f1]))" _
& " OR (((units.p2)=[forms]![search]![f2])) OR (((units.p3)=[forms]![search]![f3]))" _
& " OR (((units.p4)=[forms]![search]![f4])) OR (((units.p5)=[forms]![search]![f5]))" _
& " OR (((units.p6)=[forms]![search]![f6])) OR (((units.p7)=[forms]![search]![f7]))" _
& " OR (((units.p8)=[forms]![search]![f8])) OR (((units.p9)=[forms]![search]![f9]))" _
& " OR (((units.p10)=[forms]![search]![f10])) OR (((units.p11)=[forms]![search]![f11]))" _
& " OR (((units.p12)=[forms]![search]![f12])) OR (((units.p13)=[forms]![search]![f13]))" _
& " OR (((units.p14)=[forms]![search]![f14]));")

هذا ما فعلت فقط 0

للجميع إحترامي وتقديري

#22

جزاك الله خيرا يا أخ مصلح

بالمناسبة انا سعيد لأنك سبقتني و ليس العكس

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

و لكن اكمالا للفائدة ، أود اضافة بعض التحليل

و فى البداية كنت سأكون الجملة مثلما فعلت أنت

و لكن يجب أن نتوقف عند طريقة تكوين جملة الشرط فى فورم البحث

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

و كود البحث فىالفورم يكون بالفعل جملة الشرط

فى متغير يسمي MyCriteria

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

Dim stDocName As String
stDocName = "m"
DoCmd.OpenReport stDocName, acPreview, , MyCriteria

حيث M هو اسم التقرير

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

عموما أنا شخصيا أفضل الحل الاول (Glogal Varriable) لكي تتمنكن من استخدام آخر Critreria أي آخر شرط تم تكوينه فى أي وقت ان أردت ، و بذلك يبقي فعالا ، و ان اردت الغاؤه فى اي وقت ، فقط علي بوضع Mycriteria = ""

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

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

#23

اشكركم جزيل الشكر على هذه المعلومات

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

وحل ما اردته وبطريقة ممتازه جدا ..

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

وانت عملت الواجب وجزاك الله خير وما قصرت

ابدا .

والاسئلة القادمه مني اكثر واكثر للاستفادة

من خبراتكم . ولكي اتعلم منكم الكثير ومن اخواني

الاعضاء .

تحيايي لكم

#24

المثال بعد تعديل الدالة

فى هذا المثال عدلت الدالة بطريقة أخري أراها أكثر مناسبة

و هي فصل دالة تكوين ال Criteria عن البحث

ثم استخدامها فى البحث و فى اعداد التقرير

http://www14.brinkster.com/mtarafa/forms/H...ajiriSEarch.zip

#25

اشكر لك جهودك في العمل الذي قمت به

وبصراحه عمل ممتاز جدا .

الله يعطيك الف عافيه .

بس انا لا حظت في في القاعدة عموما مشكله في البحث

وفي خانة (م) حقل (p1 ) بالتحديد عندما مثلا ادخل رقم (1)

تظهر لي جميع السجلات سواء في البحث او في الطباعة الارقام

التي تحتوي على رقم (1) مثلا يظهر لي رقم ( 10.11.12.19.18)

كيف التخلص من هذه اريد ان يظهر فقط معرف رقم (1) في البحث

وفي الطباعة

انا اسف لكثرت الاسئلة لكن انا اطلب الفائده منكم .

واتمنى ان تكون لي درسا .

ملاحظه: هذه المشكله في جميع قواعد البيانات التي في هذه

الموضوع .

تحياتي

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

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