بوعبد الله محفوظ

جزاك الله الجنة كدت أجن من هذا الكود

مشكووووووووووور على اهتمامك أنا أريد أن يبحث رقم الفاتورة مرحل عن أصغر رقم في الجدول ترحيل فاتورة ثم يضيف عليه 1 بشرط ان تأخذ السجلات المرحلة معا نفس رقم الفاتورة مرحل فمثلا لو ان العميل لديه 10 سجلات عند الترحيل وفي الجدول ترحيل فاتورة هناك مثلا 4 سجلات لعملاء آخرين طبعا أريد أن تأخذ العشر سجلات المرحلة الرقم 5 وكلما قمت بترحيل عملاء آخرين يتزايد الرقم دلني بعض الاخوة على هذا الكود أذا أمكن أن تلقي عليه نظرة Private Sub Command5_Click() Dim Answer As Integer Dim Num As Integer Answer = MsgBox("أنت على وشك ترحيل البيانات وحذفها من الجدول الأصلي هل تريد المتابعة", vbYesNo + vbInformation) If Answer = vbYes Then Num = Nz(DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة"), 0) + 1 CurrentDb.Execute "INSERT INTO [ترحيل فاتورة] ( [رقم الفاتورة], [تاريخ الفاتورة], [إسم العميل], [نوع الزيارة], الفئة, [العلامة التجارية], [ترقيم المركبة], TTC, HT, TVA, TPF, TCT, TIMBER,رقم الفاتورة مرحل)" SELECT الفانورة.[رقم الفاتورة], الفانورة.[تاريخ الفاتورة], الفانورة.[إسم العميل], الفانورة.[نوع الزيارة], الفانورة.الفئة, الفانورة.[العلامة التجارية], الفانورة.[ترقيم المركبة], الفانورة.TTC, الفانورة.HT, الفانورة.TVA, الفانورة.TPF, الفانورة.TCT, الفانورة.TIMBER," & Num & " FROM الفانورة WHERE (((الفانورة.[إسم العميل])=[forms]![ترحيل فاتورة]![إسم العميل])); [Forms]![ترحيل فاتورة]![الفاتورة_الشركة].Requery End If End Sub

السلام عليكم ورحمة الله تعالى وبركاته أريد ترحيل البيانات من الجدول الفانورة إلى الجدول ترحيل فاتورة عن طريق الفورم ترحيل فاتورة الجدول الفانورة والجدول ترحيل فاتورة متطابقين فقط في الجدول ترحيل فاتورة قمت بإضافة عمود جديد باسم رقم الفاتورة مرحل وفي الفورم قمت بإضافة الكود التالي إلى رقم الفاتورة مرحل =IIf(IsNull(DMax("[رقم الفاتورة مرحل]";"ترحيل فاتورة")+1);1;DMax("[رقم الفاتورة مرحل]";"ترحيل فاتورة")+1) المشكلة عندي ان الترقيم لا يظهر وأنا أريد عند اختيار عميل والضغط على زر ترحيل فاتورة أن تأخذ السجلات مهما كان عددها نفس الرقم بارك الله فيكم وفي علمكم الفانورة5.rar

بارك الله فيك أستاذنا الغالي تم التجريب بنجاح

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

مشكوووووووووووووريييييييييييييييييييين على الاهتمام أستاذنا الغالي ياسر خليل أبو البراء للأسف الكود لم يعمل وضعته في "thisworkbook" و "sheet1 نقد" لكن للأسف كانت النتيجة واحدة

السلام عليكم ورحمة الله تعالى وبركاته كيف يمكن البحث عن أكبر قيمة في كل أوراق العمل ثم إضافة 1 في ورقة العمل الجديد في نفس الخلية عندي ورقة عمل اسمها نقد في الخلية D2 وضعت الكود التالي =TODAY() أما في الخلية D3 قمت بوضع الكود التالي =1&"/"&YEAR(D2) عندما أريد إنشاء ورقة عمل جديدة أقوم بالضغط باليمين على ورقة العمل نقد ثم أختر "Move or copy" ثم "create a copy" مع تحديد "Move to end" أريد عند إنشاء ورقة عمل جديد يقوم بالبحث في كل أوراق العمل عن أكبر قيمة للخلية D3 ثم يقوم بإضافة رقم واحد في ورقة العمل الجديدة بارك الله فيكم وفي علمكم فاتورة 2016.rar

السلام عليكم ورحمة الله تعالى وبركاته أريد أن أقوم بحفظ السجلات فقط من خلال الضغط على زر حفظ الفورم المقصود هو العملاء وأيضا الجدول بنفس الاسم قمت بإضافة الكود التالي Private bSaveButtonClicked As Boolean ثم قمت بإضافة الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) Dim Answer As Long Answer = MsgBox("لم تقم بحفظ المعلومات هل أنت متأكد من ذلك", vbYesNo + vbInformation) If Not bSaveClicked Then If Answer = vbYes Then Cancel = True If Answer = vbNo Then Cancel = False Me.Undo End If End If End If End Sub كل شيء يشتغل تمام لكن عند الضغط على "no" يقوم الفورم بالحفظ والإغلاق وأنا أريده أن يبقى في نفس الفورم بدون أي تغييرات بارك الله فيكم وفي علمكم الفانورة4.rar

السلام عليكم ورحمة الله تعالى وبركاته عندي مشكلة في فورم "الفاتورة" وذلك عند استعمال زر الرجوع إلى الوراء أو الأمام نلاحظ مثلا ترقيم المركبة فارغ رغم وجوده في الجدول ويظهر أيضا في "subform" من أين جاءت هذه المشكلة وماهو السبيل للتخلص منها بارك الله فيكم وفي علمكم الفانورة3.rar

بارك الله فيك أخي الكريم هل التعديل الذي أجريته فقط في "Control Source" أم هناك تغيرات أخرى آسف أخي الكريم نسيت تغير قيمة "column count" إلى 3 تم التجريب بنجاح بارك الله فيك وفي علمك

السلام عليكم ورحمة الله تعالى وبركاته في فورم الفاتورة أريد عند اختيار "اسم العميل" يظهر تلقائيا شعار العميل في "الشعار" بارك الله فيكم وفي علمكم الفانورة.rar

بارك الله فيك مديرنا الغالي

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

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

ملاحظة عند استبدال أسماء الأشهر بالأرقام في مربع سرد الأشهر التقرير يعمل عادي

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

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

ماذا عن السنوات اخ بو عبدالله ؟ بخصوص السنوات أريدها أن تبدأ من 2015 --------------------------------------------------------------------------- أستاذنا الكريم رمهان بخصوص الأشهر قمت أيضا بتجريب هذا الكود وهو لا يحتاج إلى "RowSource" Private Sub Form_Load() Dim i As Integer For i = 1 To 12 cboMonth.AddItem (MonthName(i)) Next i End Sub لكن للأسف مع الكود الأول أو الثاني يأتي التقرير فارغ أعتقد أن المشكلة تكمن في أن التقرير يقوم بتخزين الأشهر "أرقام" أما مربع السرد فيقوم بتخزينها حروف والله أعلم ------------------------------------------------------------------------------- أيضا لماذا عند تغير التنسيق من لوحة التحكم لا يشتغل التقرير هل هناك حل لتجاوز هذه المشكلة. -------------------------------------------------------------------------------- آخر سؤال هل يمكن إضافة "check box" لتحديد التقرير الذي أريد طباعته وزر واحد للطباعة يعمل حسب التحديد السابق ---------------------------------------------------------------------------------- PreTest 1.rar

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

لم أفهم ماذا تقصد أستاذ رمهان

مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب

السلام عليكم ورحمة الله تعالى وبركاته كيف يمكن إضافة الأشهر والسنوات إلى الكمبوبوكس بحثة كثيرا لكن للأسف جميع الحلول التي وجدتها لم تفلح معي ! الكود الذي أصابني بالجنون هو Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth الكل اشتغل معهم إلا أنا ! قمت بتغير "Region Format" إلى الولايات المتحدة ودون فائدة سأقوم بالإعتماد على هذا الفورم لفلترت التقرير وطباعته هل من حل بارك الله فيكم Month.rar

السلام عليكم ورحمة الله تعالى وبركاته عندي تقرير أريد طباعته لذا أضفت فورم باسم "طباعة التقرير" ثم قمت بإضافة زر وفي الحدث كتبت الكود التالية Private Sub Command1_Click() DoCmd.OpenReport "مصاريف العملاء", acViewPreview End Sub مصدر التقرير هو استعلام بنفس الاسم "مصاريف العملاء" في خانة المعايير قمت بإضافة التالي Like [من فضلك أدخل رقم السنة مثلا 2016] Like [من فضلك أدخل رقم الشهر مثلا 05] السؤال هل يمكن جعل السنة و الشهر ديناميكي يأخذ فيمته من تاريخ النظام بمعنى لو كنا في شهر جانفي تأتي الرسالة Like [من فضلك أدخل رقم الشهر مثلا 01] أما لوكنا في شهر فيفري تأتي الرسالة Like [من فضلك أدخل رقم الشهر مثلا 02] وأيضا هل يمكن جعل الرسالة تأتي من اليمين إلى اليسار بارك الله فيكم PreTest.rar

من أراد الدنيا فعليه بالعلم ومن أراد الآخرة فعليه بالعلم ومن أرادهما معا فعليه بالعلم بارك الله فب علمك مشرفنا الغالي رمهان ونفع بك لو تخصص موضوع لطريقة اختزال الأكواد نكن لك من الشاكرين

بارك الله فيك على النصيحة وجاري الانتفاع بها ان شاء الله