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

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

السلام عليكم تفضل أخي المرفق اخر بيانات تم ادخالها.xlsm

مبارك عليك هذه الترقية استاذي العزيز ابو ياسين

مبارك عليك أستاذنا @ابو ياسين المشولي

السلام عليكم نبارك للأخ العزيز ابو ياسين المشولي بترقيته الى العضوية الذهبية ونتمنى لك يا اخي الكريم كل الخير والموفقية في عملك ومن الله التوفيق .....

تستاهل اخي @ابو ياسين المشولي ارجو لك التوفيق والسداد ⚘

كنت أتمنى أن أرى اسمك بالأزرق مع أن الأحمر يليق بك . ألف مبارك .

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

الله يبارك فيك

السلام عليكم ورحمه الله وبركاته اليوم نبارك للأستاذ ابو ياسين بالترقيه التي حصل عليها إلى رتبة عضو ذهبي ونتمنا المزيد من التقدم إلى الامام يابو ياسين ربنا يكون بعونك يالغالي تحياتي

السلام عليكم ارجوا من الاخوة الكرام اضافة كود لتشغيل ملفات ( Reg , Exe ) في انتظار الرد

أستاذي العزيز ابو ياسين المشولي أشكرك جزيل الشكر اثابك الله واتمنى لكَ دوام الصحة والعافية

راجع هذا يمكن تجد ضالتك http://arabteam2000-forum.com/index.php?/topic/152374-تمت-الإجابة-تصدير-تقرير-اكسس-الى-وورد-مع-الفورمات/

مرحبا اخي الكريم ما اريده هو تشغيل من نفس المجلد الموجود فيع البرنامج

اهلا @ايمن14 يمكنك تجربة x = Shell("reg import C:\TEMP\DisableHyperlinkWarnings.reg") and Dim stAppName As String stAppName = "C:\Program Files\Adobe\Photoshop 6.0\Photoshp.exe" Call Shell(stAppName, 1)

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

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

اهلا @f16 عن طريق Forms!mainForm.SetFocus DoCmd.GoToRecord , , acNewRec النموذج المراد التركيز عليه mainform والله أعلم

اتفضل هذا ملفك New Microsoft Access Database (8).rar

الله يبارك فيكم جميعا الله يعيننا جميعا لما فيه الخير شكرا كلكم جميعا

بيكون بهذا الشكل SELECT DSum("[nu]","[tab1]") AS sm FROM tab1;

الف مبروك ابا ياسين وفقك الله ونفع بك

رائئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئع استاذي الكريم الاخ علي اللهم - أنت العظيم الذي عَزَّ شأنك ، - وأنت الرحيم الذي فاض على الوجود إحسانك - وأنت الغفور الذي شمل كل شيء غفرانك ، وأنت الغني الذي فاض على العباد جودك وكرمك - وأنت النور الذي أضاء الكون بنور وجهك وعظمتك ، اللهم * افتح لاخي الاستاذ علي مغاليق الأبواب ، وهيّئ لاخي الاستاذ علي خير الأسباب ، واجعل اخي الاستاذ علي من أهل التقوى وأولو الألباب ، بقدرتك *يا أرحم الراحمين. وجمعة مباركة للجميع استاذي الكريم

السلام عليكم اذا كان حقول الجدولين متشابهين.. يبقي الافضل جدول واحد مع التمييز بينهم بحقل قيمته 1 يبقي شراء.. قيمته 2 يبقي بيع وسيفيدك هذا بالطبع في الاستعلام والبحث والاكواد.. الخ هذا ما اعرفه والله اعلم

انسخ هذا واعمله في سكويل الاستعلام UPDATE deg INNER JOIN [level] ON deg.std_id = level.std_id SET [level].sub_count = DCount("[pass]","deg") WHERE (((deg.pass)=False));

أعزائي أعضاء أوفيسنا الكرام أسعد الله أوقاتكم أرفق لكم نموذج تقييم أداء الموظفين يقوم بحساب نتيجة الموظف دون عناء باستخدام برمجة إكسل أما باقي الإجراءات في التقييم فكل حسب شركته أرجو أن ينال هذا العمل المتواضع رضاكم وأتمنى أن أعرف آراءكم تحياتي وتقديري لكم جميعاً أخوكم أبوهـــديــل نموذج تقييم.rar

تفضل توزيع السكن.xlsx

تفضل لك ما طلبت معادلة ضرورية.xlsx

للأمام ابو ياسين نفع الله بك👍

يمكنك تجربة هذا وان لم يكن هذا هو المطلوب فينبغى حليك توضيح للمطلوب بالتفصيل على ملفك بارك الله فيك 1معادلة ضرورية.xlsx

تسلم اخي khalf والذهب حلو الازرق والاحمر حملهم ثقيل

العفو اخي بالتوفيق

هل هذا قصدك db55_UP.accdb

الله يبارك فيكم جميعا الله يعيننا جميعا لما فيه الخير

هل هذا ماتقصده Database7.accdb

Private Sub Command112_Click() If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز" 'Call IsFontInstalled("Anehila") End Sub بالتوفيق

بارك الله فيك استاذي الكريم @kanory تسلم يديك يالغالي براحتك استاذي بارك الله فيك

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ... DoCmd.OpenForm "ab", , , , , acHidden Call Forms("ab").bu100_Click 'نفترض أن النموذج الاول هو ab 'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik

نعم اذا تتغير مصدر النموذج الى استعلام و تعمل حقل محسوب في الاستعلام القي نظرتا الى القاعدة New Microsoft Access Database.rar

اولا انا عملت حقل جديد باسم ID و قمت بتعين هذا كقيمة افتراضية Nz(DMax("[ID]";"TblMalomat";"[TblMalomat]![MyUser]='" & GetUserNameTxt() & "'");0)+1 وهو يدور على اكبر قيمة للمستخدم الحالي اذا وجد اكبر رقم راح يأخذه و يضاف اليه رقم واحد واذا ما وجد راح يحسبه كصفر و يضاف رقم واحد وبعدين عملت حقل اخر باسم IDUser وعطيت هذا كقيمة افتراضية =Mid(GetUserNameTxt();1;2) & "000000" & [ID] وهو يأخذ الحرفين الاولين من المستخدم الحالي وبعدين يضاف اليه ستة اصفار مع حقل اي دي الاعلى

تفضل zzzzzz.xlsx

اخى الكريم هذه المشكلة من عندك انت وليس انا لأنك قمت بكتابة اسم مخالف لما هو وارد بالقائمة المنسدلة وغير مساوى له لذلك قمت بعمل نفس القائمة المنسدلة ايضا فى صفحة يومية الصندوق لإختيار الإسم من القائمة عند إدخال البيانات الجديدة واذا كان هناك وجود لإسم جديد غير موجود بالقائمة عليك فقط اضافته فى العمود Q من صفحة يومية الصندوق وسيضاف الإسم الجديد مباشرة الى القائمة ملحوظة : لا تنسى ان هذه المعادلات صفيف -بمعنى لابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تفضل التعديل التعديل الرابع.xlsm

على الرغم انك لم تقم برفع ملف فجرب هذا الملف لعله يفيدك قائمة منسدلة بدون تكرار مع إمكانية البحث داخل القائمة.xlsx وهذا ملف اخر ومع فيديو للشرح https://www.youtube.com/watch?v=TYSxuXtp1B0 البحث بمجرد كتابة اول حرف فى القائمة المنسدلة.xlsx

تفضل استاذى الكريم كود استاذنا الكبير سليم يعمل بكل دقة وبكفاءة عالية له منا كل المحبة والإحترام ترحيل من الفورم الى ملف الإكسيل.xlsm

هذا الموضوع بيفيدك كثيراً http://www.officena.net/ib/topic/65067-ما-هي-طريقة-استيراد-بيانات-من-عدة-صفحات-اكسل-الى-جدول-اكسس/

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

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

كود كتابة جملة في شريط الحالة كود جميل لاخينا الاستاذ زياد علي بارك الله فيه كود كتابة جملة في شريط الحالة.rar

مثال بسيط على طريقة استخدامها للعد افترضنا ان لدينا في العمود الاول يحيى خبور عمر خبور يحيى يحيى خبور عمر عمر و في العمود المقابل بي البيانات التالية شمال شمال جنوب شمال شرق شمال شرق جنوب شرق و تريد معرفة عدد المرات التي تواجد فيها اسم عمر في العمود الاول مع المنطقة جنوب في العمود الثاني بمعني كم مرة قام عمر بزيارة الجنوب نقوم باستخدام المعادلة التالية : =SUMPRODUCT(($A$1:$A$9="عمر")*(B1:B9="جنوب")) و في الاكسيل 2007 يوجد دالة جديدة اسمها COUNTIFS تفي بالغرض و تاخذ الشكل التالي : =COUNTIFS(A1:A9,"عمر",B1:B9,"جنوب") و لكن لو افترضنا وجود عمود ثالث و به قيمة المبيعات العمود سي 500 200 100 300 100 500 300 400 200 و اردنا معرفة المبيعات التي قام بها عمر في منطقة الجنوب نستخدم الدالة التالية =SUMPRODUCT(($A$1:$A$9="عمر")*(B1:B9="جنوب")*C1:C9) و هنا قامت الدالة SumProduct بالعد و الضرب و الجمع و يمكننا استخدام ال Array Formula ايضا لنفس المطلوب السابق =SUM(IF(($A$1:$A$9="عمر")*(B1:B9="جنوب"),C1:C9,0)) أتمنى أن تكون اتضحت الصورة