كيف اطرح تكست في فورم من تكست في فورم اخر

جرب المرفق

______.zip

اشكرك يااخي علي الرد ولكن المشكلة لم تحل

السلام عليكم

أخى للأسف الشديد الملف

الذى أرفقته انت لم يعمل عندى

ولكن جرب هذا المرفق لعله

يكون عونا لك 0

والسلام عليكم

Exp.rar

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

اخي loveforever

السبب في ان الكود الذي عملته انت لا يعمل بسبب انك وضعت الكود التالي في حدث تحميل الفورم:

نافذة الاقساط

x = txtDiscount.Text

في نافذة العملاء

c = txtLoan.Text

وبالتالي فان المتغيران c و x لن ترجع اليهما القيم من التكست بوكس، فالصحيح ان تضع الكود السابق في حدث يكون قبيل تنفيذ عملية الطرح

لقد قمت بتعديل بسيط في المشروع الذي ارفقته في مشاركتك بحيث اني وضعت كود ترجيع القيمة للمتغير c في حدث txtLoan_Change للتكست بوكس txtLoan

و كود ترجيع القيمة والطرح في حدث txtDiscount_KeyUp للتكست بوكس txtDiscount كما يلي:

في نافذة العملاء

Private Sub txtLoan_Change()
c = txtLoan.Text
End Sub

في نافذة الاقساط

Private Sub txtDiscount_KeyUp(KeyCode As Integer, Shift As Integer)
If txtDiscount.Text = "" Then
txtDebit.Text = ""
Else
x = txtDiscount.Text
txtDebit.Text = Val(c) - Val(x)
End If
End Sub

ارجو ان يكون هذا ما تريده ويشتغل البرنامج كما هو مخطط له

والسلام عليكم

______.rar

معذرة يبدو اني ما فهمت السؤال

اشكرك الاخوة علي الردود

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

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

جرب الكود التالي

Text2.Text = Val(Form1.Text1) - Val(Form2.Text1)

واليك مثال مرفق

f.zip

الاخ فواز الشمري اشكرك علي المداخلة

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

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

الاخ فواز الشمري اشكرك علي التواصل

بالنسبة للجداول فهي كالاتي:-

1-جدول العملاء Customer ويحتوي علي الحقول

-customer_No)AutoNymumber+primarykey)

-Customer_Name)text)

-Customer_Phone(text)

-Loan)Number)ويمثل حقل المديونية.

2-جدول Loan ويحتوي علي الحقول الاتية:

-Customer_No.

-Customer_Name

-Loan_No

-Install_Value

-Debitالمبلغ المدين

-Discountالمخصوم

العلاقة بين رقم العميل في الجول الاول ورقم العميل في الجدول الثاني

المطلوب المبلغ المدين=المديونية -المخصوم

اتمني ان اكون اوصلت المطلوب

شكرا

اول شي تحليلك للجدولين غلط .

بتكرر اسم العميل في الجدول الثاني ليش . مع انك عامل عرقة عن طريق الرقم . (حاول تقراء في العلاقات والفائدة منها اي من عمل علاقات بين الجداول)

Loan)Number) في جدول العملا .كان يفضل ان يفصل في جدول اخر .

لكن على العموم جرب عمل الإستعلام التالي :

وهوا عمل ادخال. أو يمكنك حتى تحديث.

سوف اقوم بعمل تحديث على الجدول الثاني حتى اضع له المبلغ المدين .

كما فهمت المديونية موجود في جدول العملاء . الخصم والمبلغ المدين في الجدول الثاني :

المثال التالي :

استعلام جلب المديونية ناقص الخص من الجدولين كما يلي :

Dim Sql As String
Sql = "SELECT  Customer.Loan - Loan.Discount FROM Customer, Loan WHERE  " &
		 "Customer.Customer_No = Loan.-Customer_No AND " &
		 "Customer.Customer_No  = 1"

Dim res as Double
res = rs.Feild (0)

الأن قم بعمل إضافة مباشرة للحقل في الجدول الثاني للحقل Debit

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

مشكوووووووووووورين الف شكر لكم جميعا

انا استفد من هذا الموضوع كثيرا

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

اخي لا أعرف اذا كان كود الاخ فواز حل مشكلتك ام لا .. اتمنى يكون حلها

سأحاول طريقة ربما تكون بسيطة بعض الشئ

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

الشغل كله في فورم الاقساط

اولا عند سداد قصط

تقوم بفتح جدول العملاء وتبحث عن العميل عن طريق رقمه (لأنه من المفترض الا يتغير)

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

كود البحث والتحديث سيكون كالتالي

If rs.State = 1 Then rs.Close
rs.open "select * from Customer where Customer_No =" & txtNo & "", db, 1, 2
rs("Loan") = Val(rs("Loan")) - Val(txtDiscount)
rs.Update
rs.Close

بعد ذلك تقوم بربط التكستات بالحقول وتخزن العملية كلها في جدول Loan على حسب نظام برنامجك

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

بالتوفيق

==================

الى اللقاء

ان شاء الله يشتغل معاك

اشكر الاخوة علي الردود

بالنسبة للاخ فواز اريد توضيح ماذا تقصد بان الجداول غير مربوطة محاسبيا بصورة جيدة

بالنسبة لاسم العميل فانا لم اكرره في الجول الثاني وانما اريد توضيح المشكلة وهو في المرفق يتم استدعاؤه بادخال رقم العميل.

كما اشكر الاخ mr^king وارجو توضيح ماقلته يااخي بالمرفق.

شكرا

______.rar

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

اتفضل يا اخي تم تعديل الاكواد وان شاء الله تكون كما هو مطلوب

بالتوفيق

============

الى اللقاء

______.rar