الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الحفظ بعد الطباعة

مغلق
بدأه مازن مصطفى في 20 مارس 2007 · 6 رد · 701 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أخوانى الأعزاء مشرفى وأعضاء المنتدى

أولاً كل عام وأنتم جميعاً بخير بمناسبة مولد سيدنا ورسولنا الحبيب نبى الهدى محمد صلى الله عليه وسلم

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

ولكم وافر تحياتى وشكرى

#2

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

من الواضح أننى لم أوضح سؤالى لذلك لم أجد رد 0000 وسوف أسرد سؤالى مرة أخرى

لديه قاعدة بيانات لمطعم وبها نموذج مبيعات به بيانات العميل وبداخله نموذج فرعى للفاتورة المطلوب هو بعد إدخال بيانات الفاتورة وطباعتها لايمكن للمستخدم الدخول على نفس الفاتورة وتغيير بيانات بها وفى نفس الوقت يستطيع أن يقوم بعمل فواتير أخرى من داخل النموذج

أرجو أن يكون سؤالى واضح الآن وشكراً.

#3

اخي الفاضل مازن مصطفى

تستطيع عمل ذلك بكل سهوله من خلال الكود التالي الذي يوضع في النموذج الرئيسي والفرعي في حدث النموذج الحالي

Private Sub Form_Current()
If Me.Moveable Then
   Me.AllowEdits = False
 End If
End Sub

وهذا مثال حاول التعديل او المسح في اي حقل من الحقول بعد الإضافه ولكن يمكنك اضافة بيانات جديده

zaNo_Edit.rar

#4

السلام عليكم

الكود يؤدي إلى النتيجة المرغوبة ولكن السؤال ( استفسار واستفهام ليس أكثر ) ما علاقة movbeable بهذا الحدث

أليست هذه الدالة من اجل عدم تحريك الفورم ؟

وشكراُ للإجابة

قالَ رَسُولُ الله صلى الله عليه وسلم:

"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "

حديث حسن صحيح

#5

ملحوظة

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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#6

نعم اخي عمار زايد كلامك صحيح هذه الدالة تستخدم لتحريك النموذج ولكن لا تأتي لوحدها بل معها دالة ثانيه Move

If Forms(0).Moveable Then
	Forms(0).Move  Left:=0, Top:=0, Width:=400, Height:=300
Else
	MsgBox "لا يمكن تحريك النموذج"

وبالإمكان ايضا استخدام AllowEdits لوحدها مباشرة بدون مشكله ولكن في المثال قيدنا استخدامها بشرط الحركه ايضا

#7

بسم الله الرحمن الرحيم

الأخت الكريمة زهرة المنتدى تحية وشكر وأمتنان خالص على مرورك الكريم وحل المشكلة وليس هذا غريباً على الأمبراطورة وجارى التحميل والتجربة كما ودعواتى لكى دائماً بالسمو العالى .

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

هذا الموضوع مغلق.

مواضيع مشابهة