شوقي ربيع

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

عذرا استادي لم ارى مشاركة تقبل تحياتي و احترامي

السلام عليكم كود لزر الذيادة والنقصان.xlsm

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

بسم الله الرحمان الرحيم السلام عليكم كما ذركرت في موضوع برنامج نور التجاري اننا نعمل على النسخة الثانية من البرنامج ولكي تكون النسخة متكاملة و الكمال لله و ليستفيد منها اكبر ععد ممكن من الاشخاص فتح هذا الموضوع لطرح ارائكم و افكاركم حول البرنامج الى غاية الان والحمد لله قطعنا جزء لا بأس به من برمج البرنامج و حاليا تواجهني اشكال اود الاستفسار حوله معكم و هو بخصوص الاصناف صممنا البرنامج الجديد على انه يدخل الاصناف تلقائيا الى المخزون مباشرتا من فواتير الشراء يعني لما ندرج صنف جديد في فاتورة شراء غير مسجل لدينا سابقا في المخزون تقوم خوارزمية بسيطة بالتعرف عليه و تكويده و ادخاله في المخزون ليس هنا الاشكال فهذا امر بسيط الاشكال هو فيما يلي مثلا فرضا لديا في المخزون الصنف 10001 ولنقل هذا الصنف هو عبارة عن كيبورد تبقي من هذا الصنف 10 كيبورد و سعر الشراء500 و سعر البيع 510 في الفاتورة الجديدة اشترينا مجموعة من الكيبور مثلا 100 كيبورد و سر الشراء 600 وسعر البيع 610 سيصبح لدينا في المخزون 110 كبيور لاكن بسعرين مختلفين شخصيا افكر باستخراج متوسط شراء ومتوسط بيع بجمع الاسعار و قسمتها على 2 ارجو ان اكون اوصلت الفكرة و انتضر من الاعضاء اي افكار بهذا الخصوص تحياتي للجميع

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

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

شكرا لسؤالك اخي خالد اول يمكن ربط الاكسيس مع SQL كما هو الحال مع الاكسيس تمام وكنت اود طرح موضوع منصفصل بهذا الخصوص لاكن ام يسمح لي الوقت لذى اعطيك طرف الخيط من هنا Public Function SQLConnectDatabase() Set Conn = CreateObject("ADODB.Connection") Dim Server_Name As String: Server_Name = "Enter your server name here" Dim Database_Name As String: Database_Name = "Enter your database name here" Dim User_ID As String: User_ID = "enter your user ID here" Dim Password As String: Password = "Enter your password here" Dim sConn As String: sConn = "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";" Conn.Open sConn Conn.cursorlocation = 3 ConnectionState = True Call CloseDatabase End Function هذا هو الكود الذي يمكنك من الاتصال بقاعدة بيانات من نوع SQL Server اما بقيت الاكواد فهي نفسها ولا يوجد فيها اي اختلاف فقط الاختلاف الوحيد يكون في كتابتاوامر sql الخاصة باتواريخ لانه اوامر sql هي نفسها بالنسبة للاكسيس او sql اما بانسبة لرفع قاعدة البيانات على النت و الاتصال بها فهي ممكنة جدا بالنسبة ل sql فهي سهلة جدا اما الاكسيس يمكن ايضا لاكن ليس بجودة sql وذالك برفع قاعدة البيانات من نوع اكسيس على قوقل دريف مثلا او دروب بوكس وو بهذا يمكنك التعامل معها باكثر من جهاز في نفس الوقت الموضوع على بساطته محتاج بعص الوقت لكي اعمل له شرح مفصل و سأعمله ان شاء الله عند توفر الوقت الازم تحياتي

جرب هذا الحل بالاكواد استدعاء قيم عمود عند اختيار اسمة.rar

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

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

بسم الله الرحمان الرحيم السلام عليكم اغلبيتنا يعلم بان الاكسل جيد في انشاء برامج حسابية صغيرة لاكن مع مرور الوقت و زيادة حجم قاعدة البيانات للبرنامج يصبح هناك نوع من البطئء و التشنج في البرنامج لان الاكسل عبارة عن جداولة الكترونية و ليس بقاعدة بيانات و ايضا كما نعلم بان الاكسيس جيد جدا بالنسبة الاكسل لاستخدامه كقاعدة بيانات وب بالفعل الاكسيس مازال لحد الان يستعمل كقاعدة البيانات في البرامج المتوسطة لذى فكرة في دمج الاكسل و الاكسيس معا للستفادة من قوة الاكسل في الجداول و الحسابات و جمال الفورم مع الاكسيس المتميز في قوة قاعدة البيانات و عدم تاثره كثيرا بكبر حجمها كما هو معمول مع لغات البرمجة الكبيرة ك c++ vb.net java python ...... اذن ستجدون في هذا الموضوع مثال شامل لربط الاكسل بالاكسيس فقط بالاكواد بحيث سنتعامل مع الاكسيس بسلاسة كبيرة وذلك استخدام اوامر sql مع vbq بسهولة كبيرة وتنفذ جميع الاوامر من حذف او اضافة او تعديل او التقارير المعروف بها الاكسيس من خلال الاكسل دون فتح ملف الاكسيس (في الحقيقة يفتح ملف الاكسيس لاكن لن تلاحظ ابدا بانه مفتوح) والعملية المتبعة في ذلك مقسمة الى ثلاث مراحل فتح اتصال مع الاكسيس تنفيذ اوامر sql (select insert update delete) غلق الاتصال مع الاكسيس لا اطيل عليكم و اترككم مع الملف و لاي استفسارات انا في الخدمة تحياتي للجميع و ارجو ان تستفيدو من الموضوع ConnectDatabaseAccess.rar

جازاك الله الف خير اخي شفان هو المطلوب بالضبط شكرا لك مرة اخرى وتحياتي لك

up

السلام عليكم هذا اول موضوع لي في قسم الاكسيس و ارجو ان اجد الحل عندكم اخوتي في الله لدي قاعدة بيانات بسيط مكونة من ثلاث جداول الجدول tbData و هو الجدول الرئيس و جميع الجداول مرتبطة به العمود ID الجدول tbMois خاص بالسنوات و الاشهر بحث تم عمل لكل عام (سنة) سطر يحمل الشهور الخاصة بذالك العام الجدول tbDch خاص بالمصروفات و المبالغ المسددة لكل id المطلوب ان شاء الله انشاء استعلام يحمل البيانات الاتية العمود الاول id من جدول tbData العمود الثاني SALAIRE من جدول tbData العمود الثالث فل نسميه Total_Jour و هو مجموع الايام لكل id مثلال id رقم 1 يكون يساوي مجموع ايام أشهر سنة 2015 + مجموع ايام أشهر سنة 2016 العمود الثالث نسميه Debiteur و يساوي SALAIRE من جدول tbData مقسوم على 30 ثم نضرب الناتج في Total_Jour التي حسبنا قيمتها في العمود الثالث العمود الرابع نسميه Creancier و يساوي مجموع Montant الخاص بكل id العمود الاخير نسميه Rest Apye يساوي العمود الثالث - العمود الرابع (Creancier - Debiteur ) ارجو ان يكون المطلوب واضح شكرا مسبقا Database.rar

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

iالسلام عليكم وجدت هذا الحل مقدم من طرف اخي الاستاد ياسر ابو البراء جازاه الله عنا كل خير اتبع شرحه ونفذ ان شاء الله تفلح بعد الدخول على محرر الأكواد عن طريق Alt + F11 قم بالدخول على القائمة Tools ثم References ستظهر لك نافذة بها خيارات وستجد بعض الخيارات في أولها كلمة Missing أي أنها مكتبة مفقودة قم بإزالة علامات الصح من جانب هذه الخيارات فقط .. من نافذة المشروع اعمل كليك يمين ثم اختر الأمر Insert ثم UserForm لإدراج فورم جديد من صندوق الأدوات Control Box اعمل كليك يمين في مكان فارغ ثم اختر الأمر Additional Controls ابحث عن الخيار Microsoft ListView Control وعلم في المربع بجواره ليتم إدراجه في صندوق الأدوات الآن قم برسم الأداة على الفورم الجديد ثم احفظ المصنف من علامة الحفظ وأخيراً بعد الحفظ قم بحذف الفورم الذي تم إدراجه ، ستظهر لك رسالة اختر منها No الآن قم بتشغيل الفورم الأساسي في الملف ستجد أنه يعمل إن شاء الله

شكرا اخي عبد الله انا اعمل على ايجاد حلول باذن الله

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

لايوجد اي مكاتب اضافية لكي يحدث معك مشكلة في الملف فالبرنامج مصمم بالعناصر الاساسية كما انه يوجد ملف 2003 تم رفعه من طرف الاستاد مجدي يونس جزاه الله خير في احد المشاركات السابقة التاريخ عندي مضبوط كما هو مبين في الصورة التالية Nouvelle image bitmap.bmp لاكن لاتقلق فقد تم تعديل الملف ليتناسب و جهازك المصنف1.rar

هل قمت بتثبيت الحزمة و ضهر معك هذا الخطاء https://www.microsoft.com/en-us/download/details.aspx?id=10019

جرب هذا الملف صديقي لان بعد تثبيت الحزمة لم تعدل لديك مشكلة الخطاء الذي اضهرته في الصور راجع للاكواد المستعملة في تغير اتجاه اليست فهي خاصة ب 32 بت TestListView.rar

جرب المرفق في اول المشاركة سيعمل عندك

السلام عليكم فضلا و ليس امر الاخوة الذين حملو الملف ولم يشتغل معهم ان يقومو بتحميل و تثبيت هذه الحزمة من ميكروسوفت من هذا الرابط https://www.microsoft.com/fr-fr/download/details.aspx?id=10019 حجم الملف صغير جدا بعد ذلك اعد تجربة الملف و اعلمني بالنتائج شكرا مسبقا وتحياتي للجميع TestListView.rar

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