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

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

السلام عليكم تفضل أخي المرفق اخر بيانات تم ادخالها.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

=D2&" --"&C2 اكتب هذه المعادلة في F2 ثم اسحب نزولاً

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

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

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

يمكنك الاستعانة بهذا الملف Salim's Order.xlsm

انسخ هذا واعمله في سكويل الاستعلام 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

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

يمكنك تجربة هذا وان لم يكن هذا هو المطلوب فينبغى حليك توضيح للمطلوب بالتفصيل على ملفك بارك الله فيك 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 بالتوفيق

:: تحية للأستاذ شيفان :: تفضل هل هذا يناسبك .....؟ db6_UP.rar

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

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

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

تفضل zzzzzz.xlsx

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

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

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

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

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

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

هذه بعض المواضيع احببت تجميعها في هذه المشاركة لتعم الفائدة كود منع اضافة اوراق جديدة كود منع طباعة حماية ورقة بواسطة زر اختيار اخفاء/ اظهار ورقة بزر اختيار كيفية ربط Label من فورم بقيمة خلية