KHMB

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

السلام عليكم ورحمة الله وبركاتة إخواني الأعزاء اقدم لكم هديتــي برنامجي المصغًر (سندات القبض وسندات الصرف{ إثنين في واحد ]) والمستوحى من برنامج سند صرف لأستاذنا ومشرفنا القدير ضاحي الغريب جزاه الله خير إن شاء الله ينال إعجابكم . شرح مفصل لطريقة التعامل مع البرنامج : عند تشغيل البرنامج تظهر شاشة الدخول اضغط زر دخول البرنامج ستظهر رسالة عليها الوقت خانتين للساعات ومثلها للدقائق وكذلك للثواني والوقت مأخوذ من ساعة الجهاز.وهي لإستخدام كلمة المرور والمتغيرة بتغير الوقت أي كلمة مرور غير ثابتة. انا برمجت كلمة المرور علي أساس الدقائق ويستطيع كل شخص برمجة كلمة المرور بأكثر من عملية حسابية وكذلك بإمكانك إضافة التاريخ والوقت. في برنامجنا هذا كلمة المرور للدخول هي الدقائق عند إدخال كلمة المرور الصحيحة سيتم دخولك إلي الشاشة الرئيسية وتختار سند قبض او سند صرف. سنختار سند صرف كمثال لتطبيق الخطوات : عند إختيار سند صرف سيتم فتح سند جديد (تلقائيا نقدي) وبرقم سند جديد وينتقل المؤشر الي حقل المبلغ. ملاحظــــة : السندات تبداء من 1 لسندات الصرف ومن 1000 لسندات القبض تستطيع تغير بداية السندات من صفحة العملاء والبنوك Sheet3 CustAndBanks انتهـــــــــــــــــــــــــــــــــى. ادخل المبلغ ثم اختار إسم العميل (يصرف للسيد) بالضغط علي CheckBox بجانبها فستظهر قائمة كومبوبكس بالاسماء اختار منها إسم العميل وإن لم يكن العميل موجود بالقائمة وهذا يعني لنا انه عميل جديد فقم بإلغاء خانة الإختيار CheckBox واكتب العميل يدويا ثم إنتر فستظهر رسالة تفيد بأن هذا العميل غير موجود هل تريد إضافته إلي سجل العملاء فسيتم إضافته وينتقل المؤشر إلي سبب الصرف (وذلك عـن) طبعا إذا لم تريد إضافته اضغط زر الامر (لا) كذلك سينتقل المؤشر إلي سبب الصرف.وهذا الحقل نفس الشرح كاملا لإسم العميل (يصرف للسيد) .ثم سينتقل المؤشر إلي زر امر ترحيل.علي أساس السند نقدي اما إذا كان السند بموجب شيك فبعد إختيار سبب الصرف(وذلك عـن) قم بإختيار خانة شيك من CheckBox سيظهر فريم به حقول بيانات الشيك وهي رقم الشيك تاريخ الشيك يظهر تلقائي ثم إسم البنك المسحوب علية الشيك وهو نفس شرح حقل إسم العميل (يصرف للسيد) وحقل سبب الصرف (وذلك عـن).ثم سينتقل المؤشر إلي زر امر ترحيل. إنتهـــى الشرح من إدخال سند جديد. نأتي الآن إلي إختيار البحث برقم السند او برقم الشيك عند إختيار البحث برقم السند سيتحول الليبل من سند صرف نقدي إلي البحث برقم السند او البحث برقم الشيك في حالة إختيارك البحث برقم الشيك كذلك سيتم ظهور زر امر تعديل ويختفي زر امر ترحيل. قم بالتعديل ثم اضغط علي زر امر تعديل. وأخيرا نأتي إلي ازارير المسح : مسح الفورم إلغاء آخر سجل والخاصة هنا بسندات الصرف فقط مسح جميع البيانات والخاصة هنا بسندات الصرف فقط عند الضغط علي زر إلغاء آخر سجل او مسح جميع البيانات هنا يتطلب كلمة مرور وهنا تعتمد علي الثواني. إنتهينا من الشرح المفصل لسند الصرف. سندات القبض شرحه بالتفاصيل الدقيقة. لكل من سندات القبض وسندات الصرف قاعدة بيانات مستقله فقط مشتركين في أسماء العملاء وسبب الصرف وأسماء البنوك وبعض المعلومات مثل إسم الشركة وعنوانها وتلفوناتها وإسم المدير والمحاسب والمستلم. هذاما استطعت شرحة في طريقة التعامل مع البرنامج نرجوا الاطلاع وإستخدام البرنامج وإفادتنا في الأخطأ (الأخطاء) او أي إضافه عليه. علي امل الإستفادة منــــة. الداعي لكم بالخير اخوكم في الله : أبو الحسن والحسين إيصال قبض وسند صرف.rar

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

السلام عليكم ورحمة الله الأخ عبدالعزيز هذا الكود الأربعة الاسطر الأخيرة خاص بتعبئة الكمبوبكس من العمود الخاص برقم الشيك ويعمل معي لكـــن مشكلته انة يظهر الفراغات إن شاء الله بحاول معه بدون فراغات إن امكن. Private Sub UserForm_Activate() 'هذا الكود المكون من 11 سطر خاص بخصائص الكمبوبكس '============================================================================= Dim J As Long Dim ws As Worksheet Set ws = Sheets(1) With Me.CkqTxt .ListRows = 12 .TextAlign = fmTextAlignCenter With .Font .Name = "Times New Roman" .Size = 12 .Bold = True End With '============================================================================== هنا الكود الخاص بتعبئة الكمبو من العمود الخاص برقم الشيك For J = 9 To ws.Range("F" & Rows.Count).End(xlUp).Row .AddItem ws.Range("F" & J) Next J End With End Sub

السلام عليكم ورحمة الله نعم ألقيت نظرة ولاحظت انك أسندت مصدر بيانات الصف من خصائص الكمبوبكس من الخلية 9 الي الخلية 20.000 ممتاز ليس هناك أي خطأ وممكن يتم عملة بالكود إلي آخر خلية في العمود وعددها 1048000 تقريبا من دون تحديد آخر خلية

السلام عليكم ورحمة الله ما ادري هل لقيت ضالتك في استبدال التكست بوكس بالكمبو ام لا

بالنسبة للبيانات النصية كافي 32bit حتى لو كانت مثل حجم بيانات 10 بنوك المقصود هنا في التصاميم الجرافيك واستخدام برامج غيرها حسب المكور سابقا. هذا قولي حسب ما اعرفه والله اعلم

السلام عليكم ورحمة الله تم تغيير الكود للبحث عن رقم الشيك من دون وضع صفر في حالة النقدية حتى لو كانت خلابا عمود رقم الشيك بها بيانات من اولها إلي نهايتها خلية فارغة وخلية بها بيانات الي م لانهاية. سند صرف3.rar

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

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

الإعلان بكود الاستدعاء هو تقريبا خاص بنظام التشغيل 32bit ولايعمل علي نظام التشغيل 64bit لذلك يتم إضافة Ptrsafe بعد كلمة Declare اصل الكود Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal lngWinIdx As Long, ByVal dwNewLong As Long) As Long وهذا نفس الكود خاص بنظام التشغيل 64bit بعد إضافة Ptrsafe فقط Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal lngWinIdx As Long, ByVal dwNewLong As Long) As Long

السلام عليكم ورحمة الله وبركاتة أولا : صحيح ماذكره الأخ محمد حسن المحمد حيث كتبت الموضوع وبدل ما اضغط إضافة مرفق أي الملف ضغطت زر الارسال من دون مرفقات وهو في تلك اللحظه شاهد الرد ثانيا : بهذا اتضح لنا ميزه حلوه وهي إعطاء فتره معينة للرسالة او الرد السابق بضع دقائق او فتره معينة بحيث اذا أرسلت رسالة ونسيت ارفاق الملف ثم الحقت الرسالة برسالة أخرى فتلقائيا توضع في نفس الرسالة السابقة وهذا ماحصل بالفعل معي فهل هي ميزة في المنتدى او هناك حصل تعليق الله اعلم. ثالثا : اشكر اخي الفاضل أبو البراء جزاه الله خير علي توضيحه لل Prtsafe رابعا : اشكر اخي الفاضل عبدالعزيز البسكري على تفانيه وإخلاصة في الامانه جزاه الله خير خامسا : الفرق بين نظام التشغيل 32bit و 64bit مثال بسيط للتوضيح فقط : تصور ان لديك باب عرضه 32 وباب آخر عرضه 64 وطلبنا من 1000 شخص عبور البابين لقياس زمن عبورهم سنجد بالتأكيد أن الاشخاص عندما يعبرون الباب الذي عرضه 64 سيعبرون بوقت أقل لو قامو بعبور الباب اللذي عرضه 32 تصور ان هؤلاء الاشخاص هم بيانات تصور أن لديك ملايين ملايين الاشخاص يعبرون ............. هل تصورت الآن كيف يقوم جهازك بمعالجة البيانات عندما يكون نظام التشغيل 64 bit مقارنة لو كان نظام التشغيل لديك 32 bit لذلك نظام التشغيل 32 bit لا يستطيع الوصول الى ذاكرة اعلى من 4 جيجا والمقصود ذاكرة الوصول العشوائية RAM... أما نظام التشغيل 64 bit تدعم ذاكرة كبيرة تصل الى 32 جيجا. فنظام 64bit يتميز بإتاحة سعة كبيرة من الذاكرة الظاهرية لويندوز قد تصل لأكثر من 10 تيرابايت , وهي الذاكرة التي يمكن الاستفادة منها من القرص الصلب ويستخدمها ويندوز لتسريع مهام تشغيل التطبيقات في وقتاً واحد مما يعطي اداءً عالي للنظام وسرعة فائقة خاصة في برامج التصاميم الفوتغرافية او تصاميم الفيديو او الالعاب عالية الدقة. لكن نظام 32bit يفتقر لهذه الخاصية مما يجعله اقل في الاداء من 64bit بمراحل كثيرة السؤال الذي أصبح مهماً للجميع .. متى تحتاج الى نظام 64bit ؟ بالنسبة لنظام 64 بت فهو نظام مصمم للأداء العالي ,, ويستهدف بعض برامج التصميم الكبيرة مثل الثري دي ماكس و المايا و ما إلى ذلك من برامج التصميم الكبيرة يعني : 1 - إذا كنت مصمماً وتستخدم برامج تصميم كبيرة . 2 - إذا كان لديك معالج يدعم تقنية 64 بت . 3 - إذا كان لديك رامات بسعة 4 جيجا و أعلى . إذاً استخدم نظام 64 بت للأعمال والتصاميم الكبيرة ( فقط ) أما استخدم نظام 32 بت لأعمالك الإعتيادية اليومية ( تصفح , كتابة , ... إلخ ) في النهاية : ليس عيباً كبيراً و لا سبباً وجيها يدعك أن تترك نظام 32 بت وتذهب إلى 64 بت , فكما أوضحت نظام 64 بت موجه إلى المصممين و البرامج الكبيرة . ما قدمته هو فكرة عامة أتمنى ان تكون مفيدة لكم

السلام عليكم ورحمة الله وبركاتة تفضل اخي في الله محاوله لعل يكون المطلوب اخيك : أبو الحسن والحسين آسف تفضل سند صرف2.rar

السلام عليكم ورحمة الله الاستاذ طارق جزاك الله خير على التوضيح

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

السلام عليكم ورحمة الله شكرا اخي محمد علي الهدية الرائعه جزاك الله خير

السلام عليكم ورحمة الله شكرا اخي مختار علي الهدية كود رائع ومميز

السلام عليكم ورحمة الله تفضل اخي ان شاء الله يكون المطلوب ملفين 2003 + 2013 حذف الملف بتاريخ معين.rar

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

السلام عليكم ورحمة الله بعد إذن الإستاذ / ابراهيم ابو ليله تفضل ملف اكسل 2013 يقوم بما تريد عن طريق الفلتره إن شاء الله يفي بالغرض. البحث بتاريخ إعادة الكشف.rar

السلام عليكم ورحمة الله الف مبروك يا مشرفنا العزيز االفاضل ياسر خليل / ابو البراء علي الترقية والله تستاهل وانت اهل لها بسبب حبك لخدمة كافة الاعضاء واسلوبك الشيًق والمثابره والصبر والتحمًل. وندعوا الله ان يجزيك خيرا ويبارك فيك. تحياتي الغالية / اخيك - خالد ابو الحسن والحسين

السلام عليكم ورحمة الله شكرا اخي واستاذي الاستاذ / ياسر بارك الله فيك وجزاك الله خير الجزاء تسلم

السلام عليكم ورحمة الله تفضل اخي عند كتابة كلمة صرفت في العمود J يتم كتابة التاريخ مقابلة في العمود K واليوم في العمود L تلقائيا كتابة التاريخ واليوم عند كتابة كلمة صرفت.rar

السلام عليكم ورحمة الله تفضل اخي طباعة مباشرة لكل الشيتات حتى الرئيسية طباعة كل الشيتات.rar

السلام عليكم ورحمة الله تفضل اخي مع عدم ظهور الصفوف الفارغة بعد اول صف طباعة كل الشيتات ماعدا الرئيسية.rar