محب العلم

المثال ومستعد لشرح أي شيء غير واضح تحياتي

تحياتي لك الآن فهمتك، أنا كنت فاكر إنك تريد استخدام (Function Key F6) على كل الاحول ما تريده بسيط من حيث التنفيذ ولكنه ليس الطريقة المثلى لتنفيذ المطلوب، والافضل أن يظهر لك السعر عندما تختار الصنف دون الحاجة إلى زر أمر. سأعمل لك المثال وأرفقه بعد دقائق بإذن الله تحياتي

حامل المسك المحترم ، عودةً إلى ملفك الحل يكون كما يآتي : استبدل السطر الآتي من إجراء form_current : Me.ImagePreview.Picture = Application.CurrentProject.Path & "\photos\" & Me.FilePreview & ".jpg" 'Erro بالسطر الآتي : Me.ImagePreview.Picture = Forms![ParentForm].[Directory] & "\" & Me.FilePreview & ".jpg" 'That's it حيث ParentForm هو النموذج الأساسي وهو [أسماء الطلاب] و Dierctory [مجلد الصور] عذرا : لم استطيع ارفاق الملف المعدل بسبب الحجم تحياتي

حضرات المشاركين الكرام، الخطأ سببه محرك ODBC وليس خادم SQL يبدو أن هناك خطأ في التحويل بين المحركات في مكان ما إذا زودتني بالمعلومات الآتية من الممكن أن أساعدك: connection.dbms_version connection.dbms_name connection.driver_name connection.driver_version على كل الأحول بإمكانك المثال الآتي قد يساعدك في فهم المشكلة والمتعلقة بعدم مقدرة ODBC على اختصار جزء الأعشار من الوقت عند عملية التحويل وهو ماعلى ما أضن ما سبب المشكلة . كود def msdate(datetime): int_second = int(datetime.second) if int_second != datetime.second: return DateTime.DateTime(datetime.year, datetime.month, datetime.day, datetime.hour, datetime.minute, int_second) else: return datetime تحياتي

المطلوب هو ما قررته أنت في سؤالك والمثال يحقق لك ما طلبت وإذا أردت أي توضيحات حول المثال فبإمكانك طرحها تحياتي

ممكنة

ما فهمته من شرحك المقتضب ما يلي : يوجد عندك نموذج رئيسي فيه معلومات عن بضائع معينة ومن ضمن الحقول حقل هو prPrice (سعر البضاعة أو القطعة) وداخل هذا النموذج يوجد عندك نموذج فرعي مرتبط مع الرئيسي من حقل الربط وهو prId (رومز البضاعة أو القطعة) . والمطلوب هو أنك وانت داخل النموذج الفرعي ( يعني التركيز focus ) داخل النموذج الفرعي إذا ضغط مفتاح F6 فإنك تريد أن يبحث لك عن السعر المقابل لتلك القطعة. أنت لم توضح ما يلي ما هي طبيعة الحقول المعرفة في النموذج الرئيسي وما هي طبيعة الحقول المعرفة مع النموذج الفرعي أو الجداول أو الاستعلامات لكل نموذج ، وإذا اوضحت لي العلاقة فالطريقة سهلة وهي باستخدام الاجراء dlookup على البيانات الخاصة بالنموذج الرئيسي. ويبدو لي أن الحالة المثالية لتعريف البيانات في التطبيق الذي تطلبه هي كما في الصورة الآتية: والحل هو أن تعرف حدث عند مفتاح للأسفل على النموذج الفرعي كما يآتي : Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then 'f6 Price = Nz(DLookup("prPrice", "products", "prId = '" & Me.prId & "'"), 0) End If MsgBox "The Price is " & Price End Sub تحياتي

هذا الحل الوحيد برأيي ولو كان عندي غير ذلك لما بخلت عليك تحياتي

جهراوي ، اتقدم لك بهذا البرنامج والذي صممته خصيصا لأقدمه هدية لك، وهو عبارة عن دليل هاتف متواضع يستخدم الماكرو علما أنني لا أميل في معظم برامجي إلى استخدام الماكرو حيث أشعر باستخدامها انني مقيد ، وعوضا عن ذلك استخدم VBA، مع ذلك لا أنكر فوائد الماكرو واستخداماته المفيدة في بعض البرامج. تحياتي لك PhoneDirectory.rar

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

بكل سرور، سؤالك يدور حول الرجوع إلى عناصر تحكم في النموذج رئيسي بينما التركير هو في نموذج فرعي أو العكس ومشاركتي تتحدث عن ذلك وإن كانت لم تصب الهدف مباشرة ذلك أن سؤالك عام وكذلك مشاركتي. تحياتي لك

مواضيع ذات علاقة تحياتي

لا تنسى 30 موضوعا من اوفيسنا عن الماكرو تحياتي

يمكنك بناء قاعدة جديدة بالنموذج الجديد وتربط الملفات من قاعدة mde تحياتي

اعتقد أن لهذا الموضوع علاقة بالسؤال أتقدم لك بمثال =Forms![Orders]![OrderID] قيمة OrderID في نموذج Orders =Forms![Orders]![Orders Subform]![OrderSubtotal] قيمة OrderSubtotal في نموذج Orders الفرعي داخل نموذج Orders =Forms![Orders]![Orders Subform]![ProductID].Column(2) قيمة العمود الثالث في ProductID وهو مربع قائمة في نموذج Orders الفرعي داخل نموذج Orders =Forms![Orders]![Orders Subform]![Price] * 1.06 ضرب Price السعر الموجود في النموذج الفرعي بقيمة 1.06 =Parent![OrderID] قيمة OrderId في النموذج الرئيسي أو النموذج الأب من داحل النموذج الفرعي مع دعائي لك بالتوفيق

هاني ، اتقدم لك بهذا التعديل على ملفك والذي يحقق مطلبك وبدون استخدام استعلام ولك مني تحية SL20724.rar

موضوع مثير وجميل

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