ابوخليل

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

الذي عملته لك : 1- تختار نوع العملة في النموذج الرئيسي 2-لما تدخل الصنف يحسبها لك حسب العملة المختارة جرب اختر دينار ثم اعد اختيار الشاي الاخضر او اختر صنفا جديدا وانظر النتيجة ...................... وهذا هو الصح لاننا نتعامل مع نموذج ادخال بيانات هذا الكلام حسب ما فهمت يصلح فقط في الفاتورة النهائية (التقرير ) اذا هذا هو المطلوب فمعنى هذا ان وضعك لتبديل نوع العملة في نموذج الادخال الزام مالا يلزم ، حيث ان الواجب يكون الادخال بالعملة المعتمدة فقط ويمكننا اظهار الفواتير بلغات اخرى

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

عليكم السلام هذه وحدة نمطية عامة تتحكم في اظهار واخفاء جميع الكائنات .. وتستطيع تعطيل اي كائن او تركه يعمل Public Function HideAndShowAll(vbln As Boolean) Dim obj As AccessObject Dim dbs As Object Dim db As Database Dim T As TableDef Dim TName As String Dim I As Integer Dim vCnt As Integer Set db = CurrentDb() Set dbs = Application.CurrentProject On Error Resume Next For Each obj In dbs.AllForms Application.SetHiddenAttribute acForm, obj.Name, vbln Next obj For Each obj In dbs.AllReports Application.SetHiddenAttribute acReport, obj.Name, vbln Next obj For Each obj In dbs.AllModules Application.SetHiddenAttribute acModule, obj.Name, vbln Next obj For Each obj In dbs.AllMacros Application.SetHiddenAttribute acMacro, obj.Name, vbln Next obj Set dbs = Application.CurrentData For Each obj In dbs.AllQueries Application.SetHiddenAttribute acQuery, obj.Name, vbln Next obj For I = 0 To db.TableDefs.Count - 1 Set T = db.TableDefs(I) TName = T.Name If Not TName Like "msys*" Then Application.SetHiddenAttribute acTable, TName, vbln vCnt = vCnt + 1 End If Next I End Function ونستدعيها من اي حدث هكذا : للإخفاء : HideAndShowAll(true) وللإظهار : HideAndShowAll(false) لاحظ انك لو استدعيت الكود في زر داخل نموذج فلن يتفاعل النموذج والسبب انه مفتوح ، ولكن من الماكرو مثلا يتم التطبيق على الكل hidAshow.mdb

الملف سليم اخوي لا تخاف .. وافق على الحفظ

CurConvert1.mdb

تفضل تم التعديل باقرب طريق انظر جدول السعر والاستعلام ثم انظر الشرط في الكود CurConvert1.rar

توقعت انك تسأل لذا شرحت لك الطريقة اعلاه ويبدوا انك بحاجة الى شيء غير الشرح

تفضل التعديل تم داخل الاستعلام مصدر صف الرسم البياني : استبدال groub by بـــ sum Forum.mdb

نعم يمكن المساعدة المطلوب منك ارفاق مثال صغير بسيط لعملك من اجل تطبيق الفكرة واحرص تكون الصيغة mdb حيث اعمل على 2003 في حاسبتي

عليكم السلام الاصل وهو المتبع هو ان تكون الاسعار بعملة البلد ‘ مع امكانية اظهار ما يقابل هذا السعر بالعملات الأخرى وبما ان اسعار العملات غير مستقر وفي تغير مستمر ، لذا يجب مواكبة السعر العالمي على الاقل كل اسبوع ( تحديث ) ونخلص بهذا الى انه يلزم عمل استعلام او كود يقوم بتحديث البيانات ( اسعار العملات ) مقابل عملة البلد

اخي الكريم طلب عمل البرامج لها قسمها الخاص سواء كانت بمقابل او مجانا وهو قسم الاعلانات الشخصية ، تستطيع ان تعرض طلبك هناك ولا تنسى تضع وسيلة للاتصال بك

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف صاحب السؤال غالبا يكون هو السبب في عدم الحصول على حل سريع وعلى عدم تفاعل الاعضاء حاول مرة اخرى اكتب عنوانا مناسبا واطرح سؤالك بدقة وتفصيل (سؤالا واحدا فقط) وارفق مثالا للتطبيق وليس برنامجا كاملا اكثر من سؤال في الموضوع الواحد يعرض الموضوع للغلق . XXX يغلق XXX

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

انا شكرت استاذ صالح لانه قدم اجابة نيابة عني اعتبارها صورة هذا التعبير غير مقبول .. وغير صحيح ولكن مركب نعم ( مع اني اشك في استيعابك لمعناها والدليل هو السطر قبل الاخير في مشاركتك) ومركب اي تم تركيب المفتاح من اكثر من عمود اي بتعبير آخر مقسمة ، فالمفتاح تم تقسيمه على الاعمدة الثلاث وكلامي السابق من ( لو وجد اكثر من مفتاح للجدول) .. هو بالضبط فيما لو قلت : لو وجد اكثر من عمود للمفتاح في الجدول ولا مشاحة في التعبير والمفاتيح ظاهرة امامنا على الجدول وحين نريد التعامل مع مفتاح تم تقسيمة على اكثر من حقل فلا بد ان نستخدم شي مشابه لهذا PRIMARY KEY (Id,adress,Age) هنا الكود داخل المثال يتحدث db1.mdb

يجب الالتزام بقواعد المشاركة وهو تخصيص كل موضوع جديد بسؤال يخصه يغلق ،،،

حبيبنا ،،، هذا هو الاسم الافتراضي الذي يدرجه أكسس عندما ننقر على المفتاح لاختياره في الجدول وطبيعي لن يعمل او بالاصح لن يجده لو ان احدا اجتهد ودخل الى الفهارس وغير الاسم وما دمت اخوي الغالي بهذه الدقة في اختياراتك وطرحك للحلول ، فالكود الذي تفضلت به أنا وانت كلها قاصرة فلو فرضنا وجود اكثر من مفتاح في الجدول فلن يرجع الا باسم واحد فقط وقد وجدت حلا شاملا يستخرج جميع مفاتيح الجدول ان وجدت Dim db As DAO.Database Dim tdf As DAO.TableDef Dim ix As DAO.Index Dim fld As DAO.Field Dim strFields As String Set db = CurrentDb Set tdf = db.TableDefs("tbl1") For Each ix In tdf.Indexes If ix.Primary Then For Each fld In ix.Fields strFields = strFields & "," & fld.Name Next fld Exit For End If Next ix If Len(strFields) > 0 Then strFields = Mid$(strFields, 2) MsgBox strFields

ما فهمت !! ليش اجرب على جدول بدون مفتاح والطلب هو استخراج او ارجاع اسم مفتاح رئيسي موجود داخل جدول واذا الجدول ما فيه مفتاح من وين يبي يجيبه ؟ اكيد سيرجع خطأ ، ونحن يمكننا التعامل معه من اقصر الطرق On Error GoTo PrimErr: MsgBox CurrentDb.TableDefs("tbl1").Indexes("PrimaryKey").Fields(0).Name PriErr: Exit Sub PrimErr: MsgBox "لا يوجد مفتاح أساسي للجدول" Resume PriErr عندها يمكن ان نضيف استفسار وسطرا اذا نرغب باضافة المفتاح هذا الذي عندي .. بارك الله فيك

اخوي الغالي ابو جود ... كل شي موجود ولكن التجربة خير برهان .. db1.mdb

شنشنة اعرفها من اخزم

السلام عليكم مشاركة مع احبتي MsgBox CurrentDb.TableDefs("yourtable").Indexes("PrimaryKey").Fields(0).Name

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

وهنـــــــا

السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك

الف مبروك وفقك الله وزادك علما ورفعة ونفع بك