صالح حمادي

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

ضع الجزء الذي يحتوي على المشكل هنا و سوف نحله بإذن الله

تفضل ملفك بعد التعديل للرفع.rar

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

السلام عليكم موضوع في منتهى الروعة من أستاذ مبدع @Elsayed Bn Gemy شكرا جزيلا أستاذ جمال دائما مفاجآت بعد كل غياب أهنيك على على زوعة الموضوع

قم بسحب جميع عناصر النموذج إلى الجهة اليمنى ثم قم بتصغير النموذج بشكل عادي

فيه بعض المؤسسات تطلب الفصل بين السنوات المالية من أجل المحاسبة الأرشفة ليست متعلقة بحجم الملف فقط

نعم سوف أجربها إنشاء الله و سوف أعطيك نسخة من برنامجي بعد أن أخفف من حجمه لأن حجم الواجهة كبير

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

السلام عليكم أستاذنا جعفر. تظهر معي هذه الرسالة

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

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

آمين و لك بالمثل صديقي ابو زاهر

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

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

FastStone Capture و الرابط هو: http://www.faststone.org/download.htm

السلام عليكم لاحظت كثرة الأسئلة حول كيفية البحث بتجاهل أنواع الألف (ا أ إ آ) فقررت إنشاء موضوع أشرح فيه هذه الطريقة مع وضع مثال بسيط. مثلا عندما أبحث عن كلمة أحمد يكفي أن أكتب: احمد فتظهر الأسماء المكتوبة بالهمزة و بغير همزة. و غيرها مع باقي الأنواع. الكود المستعمل: Dim rst As String, x As String, CrtTxt As String Dim i As Integer, RC As Integer Dim homm As String homm = Me.t2.Text Me.t3.Value = homm CrtTxt = "Like ""*" & Me.t3 & "*""" If InStr(1, Me.t3, "أ") > 0 Or InStr(1, Me.t3, "ا") > 0 Or InStr(1, Me.t3, "إ") > 0 Or InStr(1, Me.t3, "آ") > 0 Or InStr(1, Me.t3, "ى") > 0 Or InStr(1, Me.t3, "ي") > 0 Or InStr(1, Me.t3, "ه") > 0 Or InStr(1, Me.t3, "ة") > 0 Then CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "أ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "آ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "إ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ه", "ة") & "*""" End If rst = ("SELECT * FROM [جدول1] where [الكود] " & CrtTxt & ";") Me.salah.Form.RecordSource = rst Me.salah.Requery و هذا مثال على ذلك: البحث بتجاهل أنواع الألف.rar وهذا رابط فديو شرحت به البرنامج:

أدخل على هذا الرابط سوف تجد العجب:

السلام عليكم اتبع الخطوات التالية: 1- نفتح صفحة غوغل كمثال و نضغط على الزر الأيمن للفأرة فوق مربع نص البحث و نختار فحص كما توضح الصورة التالية. 2- تظهر الشاشة التالية: 3- نبحث عن كلمة name و سوف نجد بعدها مباشرة اسم مربع النص في هذا المثال اسم مربع النص هو: q

السلام عليكم عند حدث عند التركيز للمربع النص ضع هذا الأمر: Me.txt_date.SelStart = 0 Me.txt_date.SelLength = 1 بحيث txt_date هو اسم مربع النص السطر الأول يعني بداية التحديث، و القيمة 0 تمثل الحرف الأول و 1 يمثل الحرف الثاني و هكذا.. السطر الثاني يحدد طول التحديد أو عدد الأحرف المحددة. بالتوفيق إن شاء الله

بهذا الشكل: Dcount("*","اسم الجدول","date1=***** and date2=*******") date1 هي من تاريخ و date2 الى تاريخ

استخدم الدالة Dcount لحساب عدد السجلات التي يتحقق فيها الشرط بهذا الشكل إذا يساوي العدد 2 أضف له أمر التراجع عن التسجيل

السلام عليكم أخي الكريم لديك خطأ في الأكواد البرمجية لمعرفة مكان الخطأ إتبع الخطوات التالية: 1- إفتح محرر الأكواد 2- إضغط على القائمة Debug 3- اختر الامر Compile Database سوف تظهر لك الأخطاء الموجودة بالكود.

السلام عليكم @Khalf لقد وضعت هذا السؤال عندما كنت في أول الطريق لكني لم أجد إجابة شافية مما جعلني أجتهد و أنشئ موضوعا جديدا به المطلوب و أكثر ليستفيد منه إخوتي. نعم أخي kanory صدقت كلنا فخورين بالإنتماء لهذا الصرح الكبير

السلام عليكم إطلع على هذا الموضوع