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

طلب بخصوص كود الحفظ

مغلق
بدأه memouz في 26 نوفمبر 2006 · 7 رد · 748 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي مشكلة في كود الرقم التسلسلي للفاتورة و هذا هو

Private Sub Form_load()

Text2.Text = GetSetting("test", "test", "Fnomber") +1

End Sub

لأنه و عندما يعمل البرنامج للمرة الاولى لا يكون هناك أي قيمة مخزنة فيعطي خطأ بالكود

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

و أيضا طلب اخر لو سمحتمم

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

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

مع الشكر

#2

اخي الفاضل ارجو ان تجد الحل في الملف المرفق

sol.doc

اقتباس

لا تنسوا محمد الدرة وايمان حجو وفارس عودة ....

لا تنسوا القدس وبغداد وبيروت والشيشان ....

ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية

اقتباس
لو هدوا بيتي منا خايف لو كسروا عظامي انا زاحف

مواضيعي بالمنتدي

(1) كيف تعمل مؤقت بسهولة

(2) جميع رسائل الخطأ التي قد تظهر عند تشغيل مشروعك في ملف واحد

(3) كيف تنشأ اسم مستخدم وكلمة مرور بصلاحيات معينة لبرنامجك

(4) برنامج لمعرفة الــ ASCII كود لأي مفتاح على لوحة المفاتيح

(5) مثال على نقل عناصر من List Box إلى أخرى مع الترتيب (الفرز)

(6) مثال لتفقيط المبالغ المالية بالحروف

اللهم ارحم والداى كما ربياني صغيراً

%20الجنود%20الامريكيين.jpg

ًWelcome Back

#3

أشكرك جزيل الشكر أخي الكريم

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

تم تعديل هذه المشاركة بواسطة memouz في 26 نوفمبر 2006 في 10:28

#4

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

اقتباس

لا تنسوا محمد الدرة وايمان حجو وفارس عودة ....

لا تنسوا القدس وبغداد وبيروت والشيشان ....

ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية

اقتباس
لو هدوا بيتي منا خايف لو كسروا عظامي انا زاحف

مواضيعي بالمنتدي

(1) كيف تعمل مؤقت بسهولة

(2) جميع رسائل الخطأ التي قد تظهر عند تشغيل مشروعك في ملف واحد

(3) كيف تنشأ اسم مستخدم وكلمة مرور بصلاحيات معينة لبرنامجك

(4) برنامج لمعرفة الــ ASCII كود لأي مفتاح على لوحة المفاتيح

(5) مثال على نقل عناصر من List Box إلى أخرى مع الترتيب (الفرز)

(6) مثال لتفقيط المبالغ المالية بالحروف

اللهم ارحم والداى كما ربياني صغيراً

%20الجنود%20الامريكيين.jpg

ًWelcome Back

#5

Set rs = New ADODB.Recordset

rs.Open ("SElECT * FROM tt "), cnn, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then

Text1.Text = 1

Exit Sub

End If

rs.MoveLast

Text2.Text = rs.Fields![sundNo] + 1

ضع هذا الكود في زر التهيئة او زر جديد

حيث Text1 اداه النص لرقم الفاتوره

tt اسم الجدول

sundNo اسم الحقل ويمثل الرقماي رقم الفاتوره في الجدول

:D :D :D

redahashem

رضا هاشم

اللهم اصلح امورالمسلمين

سبحان الله وبحمده سبحان الله العظيم

اللهم اهلك من سبب في فرقتنا وسفك دمائنا وزاد همنا وكربنا

#6
black_boxer كتب:
اخي العزيز رغم توضيحك لم افهم المطلوب ولكن معني ذلك ان الحل الذي اعطيته لك لم يساعدك فارجو ان تصف لي المشكلة مرة اخرى مع التوضيح وها معنى كلمة صفحة عندك هل هي نموذج او شئ اخر

أخي الكريم أشكرك على اهتمامك

ان ما قصدته هو الاتي

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

أشكرك مرة أخرى

redahashem كتب:
Set rs = New ADODB.Recordset

rs.Open ("SElECT * FROM tt "), cnn, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then

Text1.Text = 1

Exit Sub

End If

rs.MoveLast

Text2.Text = rs.Fields![sundNo] + 1

ضع هذا الكود في زر التهيئة او زر جديد

حيث Text1 اداه النص لرقم الفاتوره

tt اسم الجدول

sundNo اسم الحقل ويمثل الرقماي رقم الفاتوره في الجدول

:D :D :D

بارك الله بك أخي رضا

لا أدري لماذا لم يعمل الكود معي و يعطيني غلط بأول سطر و انا بصراحة لم أفهمه

هل يعني السطر الاول أنه يجب أن يكون قاعدة بيانات مرتبطة مع البرنامج لكي يعمل

بانتظار ردك بارك الله بك

#7

بالفعل اخي لازم يكون هناك قاعده بيانات متصله بطريقه الادو

هذا برنامج محاسبي فكيف يعمل بدون قاعده بيانات

redahashem

رضا هاشم

اللهم اصلح امورالمسلمين

سبحان الله وبحمده سبحان الله العظيم

اللهم اهلك من سبب في فرقتنا وسفك دمائنا وزاد همنا وكربنا

#8

بارك الله بك اخي الكريم

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

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