نجوم المشاركات

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

انت لم تخبرنا بهذا الشرط ، انت فقط اعطيت شرط رقم الفاتورة ، وانا عملت الكود علشان يأخذ اول صنف من رقم الفاتورة المختارة. جعفر

تفضل النموذج "D'elimination" ومصدر بياناته الجدول "BORDEREAU D’ELIMINATION D’ARCHIVES" مليئين بحروف non-unicode ، وحسب لغة هذه الحروف ، تحتاج اعدادات وندوز خاصة بها ، وكذلك اسم احد الحقول في الجدول غلط (والذي ينتهي بنقطتين : ). عندك حلين: 1. ان تغير اعدادات الوندوز عندك الى الفرنسية (المادة رقم 4) : . 2. او مثل ما عملت لك انا ، وهو تغيير جميع حروف (اسماء الحقول ، وليس تسميتها) الى الانجليزية ، كما هو الحال مع النموذج "De versement" ومصدر بياناته "BORDEREAU DE VERSEMENT DARCHIVES". جعفر 819.zip

اخي العزيز بارك الله فيك الملف اللي انا بعثته فيه استعلام الحاق اللي هو لونه اخضر ا افتح قاعده البينات تبعك واعمل استيراد الى قاعده البينات تبعك او من نفس الملف اعمل له تصدير وغيرت المسميات اعمل بالاستعلام تصميم وحتفهم ان شاء الله بالتوفيق

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

اتفضل اخي نموذج مختصر.rar

بعد اذن اخي ناصر هذا الكود Option Explicit Sub Sort_For_Me() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With If ActiveSheet.Name <> "فرز" Then GoTo Final_Operation Dim r%, My_Sht As Worksheet Set My_Sht = Sheets("فرز") r = My_Sht.Cells(Rows.Count, 1).End(3).Row If r < 14 Then r = 14 With My_Sht.Sort .SortFields.Clear .SortFields.Add Key:=Range("k14:k" & r), Order:=1 .SortFields.Add Key:=Range("e14:e" & r), Order:=2 .SortFields.Add Key:=Range("c14:c" & r), Order:=1 .SetRange Range("b14:k" & r) .Header = 1 .Apply End With Final_Operation: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق الفرزبثلاث شروط Salim.rar

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

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

بارك الله فيك واسعدك ربي هذا هو كان امنيتي لك الحمد ياربي سخرت لنا الاستاذ جعفر يحل لي المعظله فالف تحيه وشكر اليك استاذي هذا هو المطلوب بكله اما الاشياء الاخري بقوم بعمل الازام فيها اكرر شكري وتحيه اليك حبيبنا ابو الجعافر والف تحيه لا ستاذنا ابو ياسين (مرشد علي ) ما قصر بذل جهد مهد لنا الطريق السموحه منكم واشكركم علي سعه الصدر وبذل المجهود الكبير الف الف تحيه اليكم احبابي

وعليكم السلام بالنسبة لحقل نعم/لا ، نعم = -1 لا = صفر فانت محتاج الى Me![txt1] = 0 جعفر

اخوي وضاح وأبو ياسين (كونكم فريق واحد) اكتب رقم الفاتورة في النموذج الرئيسي ، ثم افتح النموذج frmEdrajSenfrm ، وادخل رقم الصنف ، وستأتيك بياناته ، وعند التعديل والضغط على زر "ادراج" ، سيقوم الكود بتغيير الكمية والسعر فقط (واذا اردت المجموع والصافي ، فرجاء تكملته) . جعفر 818.المرتجع.mdb.zip

معذرة .. لايمكنني فتح المرفق فانا اعمل على اوفيس 2003

السلام عليكم ورحمة الله ألق نظرة على الملف المرفق وإن شاء الله تفي التعديلات على الكود بالغرض المطلوب... بن علية حاجي برنامج مركز شمس للتسوق تحت التعديل.rar

نعم مرحلتك هي صحيحه وننتظر المرحله التاليه اخي جعفر انت المعلم ونحن تلاميذك ولنا الفخر بذلك انت عملت المطلوب كما فهمت من الاخ ابو زاهر باقي الادراج

اخي وضاح 2. يجب ان تخبرنا كيف استعمال هذا المرفق ، وكيف نعرف بياناته = وووو ، ولكن اتضح لي ان النموذج frmEdrajSenfrm هو نفسه كالذي في مرفقك السابق. 1. انا اخبرتك سابقا أ. فالنموذج صالح لإدخال سجل واحد فقط (صنف واحد فقط من الفاتورة) (وقد اعطيتك الجواب في مشاركتي اعلاه https://www.officena.net/ib/topic/81068-جلب-القيم-لنموذج-الاضافه-من-نموذج-فرعي-بداخل-الريسيي/?do=findComment&comment=517512) ، فإذا اردت ادخال اكثر من صنف من الفاتورة ، فهذا النموذج لا يصلح ، فالنموذج يجب ان تكون فيه خاصية اخذ اكثر من سجل ، وبما اننا لا نعرف عدد الاصناف المرجعة ، لذلك يجب ان يكون هذا النموذج "مستمر" او "جدولي" ، ب. واذا اردنا تغيير هذا النموذج (frmEdrajSenfrm) الى نموذج مستمر او جدولي ، فليش تقوم بالعمل مرتين ، انت عندك النموذج الفرعي frm_mr ، فتستطيع ان تعمل له تصفية حسب رقم الفاتورة ، وتظهر لك جميع الاصناف ، والمستخدم يغيّر من هناك. الآن ، يجب ان تأخذ وقتك وتفكر في الموضوع جيدا ، قبل ان تضيف اي تعليق جديد جعفر

ههههههه بصراحه مافهمت قصدك

فتح الله لك يا أستاذنا

وعليكم السلام هل قصدك تنسيق التاريخ؟ جعفر

شكرا اخي مرشد على هذا الاطراء جعفر

ان شاء الله استاذي ابو ياسين الاستاذ جعفر ما شاء الله عليه اسميته بعالم الاكسس دوما السوال الصعب اجابته القيها عنده ربنا يعطيه الصحه والعافيه اذا فهم المقصود فهو ما شاء الله عليه دوما بالابداع تحياتي اليكم استاتذتي جمعيا

ان شاء الله بتجد الجواب الكافي والحل الوافي من الاخ jjafferr ربنا يعطيه الصحه

جزاك الله خير يا ابن العم ما شاء الله عليك ربنا يزيدك علما

وانا كمان اضفت لك حاجه حاول تدخل 3 مرات بالخطاء وشوف النتيجه تصيد المتلاعب-4.rar

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

السلام عليكم أدركت خطأ في المعادلة وهو عدم استيفاء مدة الأربعة أشهر كاملة إذ أنه لو كان تاريخ اليوم هو اليوم الثاني (أو أكبر) من الشهر الرابع فإن خلايا العمود J تكون فارغة لذا تم التعديل على الشرط الثاني في الدالة AND بتغيير الجزئية 1;4+ بالجزئية 0;5+ لتحديد تاريخ اليوم الأخير للشهر الرابع بعد تاريخ ورود قرار الإضافة... وقد تم التصحيح في الملف المرفق... معذرة على هذا الخلل.. بن علية حاجي القيمة المضافة.rar

نعم وهذا عين المقصود ولكن ليس بدون قيود فاننى ادفع للتاجر حتى نهاية ماله من مستحقات على , وهذا ما سينهى الاشكال فى نقطة الاستغناء عن جدول المدفوعات اضافة حقل لنوع الدفع بجدول التفاصيل نعم هو المطلوب (ولا حاجة لحقل اكتمال الدفع وتاريخه- فكما أشرتم ربما كان السداد للقيمة على دفعات متتالية أقساط أو كان السداد مرتبط بعمليات مختلفة وليس لهذه الفاتورة وحسب), ولكن مع ربط العمليات الآجلة بجدول المدفوعات ولا نستغنى عنه فهنا سنتحكم فى حجم ومقدار المدفوعات مقابل العمليات الآجلة فقط للعميل المحدد أعتقد أن اضافة حقل بجدول التفاصيل لنوع الدفع لن يفتح علينا أى أبواب أو نوافذ أو (بلكونات ) جزاكم الله خيرا لسعة صدركم وتقبل النقاش مع طلبتكم الصغار , ونستاذن سيادتكم فى اقتباس المرفق والتصرف فيه

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

السلام عليكم أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر Dim r As Integer... والله أعلم وهذه رموز لأنواع أخرى من المتغيرات: Integer % Long & Currency @ Single ! Double # String $

السلام عليكم ورحمة الله في كود الترحيل يوجد خطأ في الأمر التالي: ResSh = Trim(Cells(I, 21).Value) الذي يحدد قيمة المتغير ResSh الممثل لاسم الشيت الذي يتم الترحيل إليه (ناجح - دور ثان) حسب خلايا العمود رقم 21 (وهو الخطأ)، غير أن كلمتي (ناجح - دور ثان) موجودتان في العمود V الذي رقمه 22 وليس 21، لذا يجب تصحيح الأمر السابق بتغيير العدد 21 بالعدد 22 فيكون كما يلي: ResSh = Trim(Cells(I, 22).Value) والله أعلم

وعليكم السلام : انظر هنا

العفو اخي بارك الله فيك

عملت استعلام الحاق اسمهQ وعملت الكود بعد الحدث Private Sub t2_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "delete" Me.Requery DoCmd.OpenQuery "Q" DoCmd.SetWarnings True End Sub

الاساتذة الكرام وفقكم الله استاذناصر استاذ سليم جزاكم الله خيرا

ربنا يحفظك ويصونك استاذ سليم حل ولا اروع ========= وجزاكم الله من الخير اكثر

اتفضل اخي ارجو ان يكون المطلوب نموذج مختصر.rar

جزاك الله خيرا ابجث عن هذه الجمله الخاصه بالشرط التاني في الكود Order2:=xlAscending ثم ضع بدل هذه الكلمه الرقم 2 xlAscending ادعو الله ان يكون ذلك هو المطلوب =========== ويمكنك التغيير في ترتيب الشروط بالطريقه التي تريدها بنفس الفكره وان لم تفهمها جيدا ابلغني لعل الله يرزقني بطريقه اسهل في التوصيل

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

تفضل اخي الكريم ادعو الله ان يكون هو المطلوب الفرز بثلاث شروط1.rar =============== Sub فرز_بتلات_شروط() ' ' Range("B6:Z1000").Select Selection.Sort Key1:=Range("L6"), Order1:=xlAscending, _ Key2:=Range("F6"), Order2:=xlAscending, _ Key3:=Range("C6"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _ xlSortNormal Range("A6").Select End Sub

السلام عليكم استاذي الفاضل ورحمة الله وبركاته نعم هذا هو المطلوب تماما شكرا جزيلا لك سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب

وعليكم السلام ربما هذا طلبك ka_DBZianub.rar

الحمد لله رب العالمين ... ارفق المثال بعد التعديل

اخي أبو عبد الواحد لقد تم الترحيل اتمن ان يكون المطلوب مع تحياتي تعديل على الفاتورة - اثاث.rar

اخي ارفع مثال والكتابه بالجدول لازم تكون في النموذج حتى تعطيها امر بالكود او استعلام تحديث

Private Sub Fup_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl000") rst.MoveFirst Do Until rst.EOF If rst!الرقم = Me!OrderID Then MsgBox " السجل موجود ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub تفضل أخي العزيز

المثال جيد تم تجربته بالضغط علي الشفت وما زال النموذج نشط جاري تجربته علي قاعدتي مشكور اخي لكن عندي بعض التساؤلات ( اخاف ان اجهدكم ) حيث ان تجاربي قليلة في الاكسيس 1- كييف التحويل الي mde 2- كيف يمكن قفل الوحدات النمطية برقم سري 3- كيف يمكن تشفير محتوى الجداول ثم ما رايك في الحل الاتي وهو اخفاء نافذة الاكسيس ويتعامل المستخدم النهائي علي النماذج فقط

السلام عليكم ورحمة الله وبركاته إخوتي الكرام إليكم البرنامج بعد محاولة التعريب فما كان به من خير فمن الله وإن كان من خطأ أو سهو أو نسيان فمني ومن الشيطان جزاكم الله خيراً على حسن أدبكم وكلامكم الرفيع والسلام عليكم New-Userform-.rar

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

لسرد أسماء الموظفين مرتبة تنازلياً و حسب الإسم الأخير ، ببساطة نستخدم العبارة التالية : SELECT * FROM Employees ORDER BY LastName DESC