تسجيل القيمة في الجدول الفرعي تلقائيا حسب القيمة الموجودة في الجدول الرئيسي

[ahmedabuzena]

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

اريد القيمة الموجودة في الجدول الرئيسي حقل ([RATE]) ان يتم تسجيلها في حقل ([rate]) الموجود في الجدول الفرعي على ان يتم تسجيله تلقائيا مع كل عملية او مع كل اضافة

بمعنى لو مثلا كتبت في الجدول الرئيسي rate 20 اصبح في كل اضافة جديدة في الجدول الفرعي من فاتورة او مدفوعات يتم التسجيل تلقائيا في حقل rate الموجود في الجدول الفرعي وهو رقم 20

ولو غيرت rate في الجدول الرئيسي الى 23 اصبح في كل اضافة جديدة في الجدول الفرعي من فاتورة او مدفوعات يتم التسجيل تلقائيا في حقل rate الموجود في الجدول الفرعي وهو رقم 23 

ولا يتم تغير ما تم اضافته سابقا بمعنى ما تم اضافة في السابق رقم 20 لا يتم تغيره ال رقم 23  ارجو ان اكون قد وفقت في الشرح مرفق مثال للتوضيح ستجد في الجدول الفرعي rate انا بكتبه يدوى مع كل تسجيل انا عايز اكتبه مرة واحدة فقط وبعد كدة يتم تسجيل نفس الرق تلقائي حتي يتم تغيرة في وقت لاحق وجزاكم الله خيرا

test rate.accdb

[ahmedabuzena]

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

والعمله متغيرة باستمرار وانا بدخل كل البيانات مرة واحدة في الشهر والعملة بتكون مختلفة 

عايز اطلع بيان في اخر السنة كل شهر كان التغير بكام والمبلغ كام

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

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

انا عايز اكتب قيمة التغير مرة واحدة وبالكود او اي طريقة اخري يتم كتابة القيمة تلقائيا في حقل التغير

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

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

[الحلبي]

30 دقائق مضت, ahmedabuzena said:

انا عايز اكتب قيمة التغير مرة واحدة

يرجى توضيح هل تريد الاضافة من الرئيسى الى الفرعى في سجل واحد جديد 

ام تريد الاضافة فى جميع سجلات الفرعى

جزاك الله كل خير

[ابو جودي]

جرب وضع الكود الاتى فى النموذج الفرعى 

Private Sub Form_Current()
  rate = IIf(IsNull([rate]), [Form_حساب العملاء الرئيسى].Text59, [rate])
End Sub

 

[ahmedabuzena]

7 ساعات مضت, الحلبي said:

يرجى توضيح هل تريد الاضافة من الرئيسى الى الفرعى في سجل واحد جديد 

ام تريد الاضافة فى جميع سجلات الفرعى

جزاك الله كل خير

السلام عليكم 

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

3 ساعات مضت, ابو جودي said:

جرب وضع الكود الاتى فى النموذج الفرعى 

Private Sub Form_Current()
  rate = IIf(IsNull([rate]), [Form_حساب العملاء الرئيسى].Text59, [rate])
End Sub

 

السلام عليكم اعطاني هذا الخطأ جزاكم الله خيرا

test rate.accdb

[دروب مبرمج]

تفضل هذا التعديل

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

 

test rate (2).zip

[ahmedabuzena]

16 ساعات مضت, دروب مبرمج said:

تفضل هذا التعديل

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

 

test rate (2).zip 76.38 kB · 2 downloads

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

ا  والف شكر على اهتمامك وحل المشكله

 

test rate (4).rar

تم تعديل يونيو 15, 2023 بواسطه ahmedabuzena

[ahmedabuzena]

ارجو المساعدة ازاي اكتب الكود لما يكون اكثر من ٣ فورم 

[دروب مبرمج]

تفضل بهذه الطريقة

استبدل الكود في الموديل بالتالي

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )

' القيمة الافتراضية لسعر البيع
=sellVal([Forms]![customer account]![حساب العملاء]![Text59])

' القيمة الافتراضية لسعر الشراء
=buyVal([Forms]![customer account]![حساب العملاء]![Text61])

 

test rate (4).zip

[ahmedabuzena]

27 دقائق مضت, دروب مبرمج said:

تفضل بهذه الطريقة

استبدل الكود في الموديل بالتالي

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )

' القيمة الافتراضية لسعر البيع
=sellVal([Forms]![customer account]![حساب العملاء]![Text59])

' القيمة الافتراضية لسعر الشراء
=buyVal([Forms]![customer account]![حساب العملاء]![Text61])

 

test rate (4).zip 131.93 kB · 2 downloads

جزاكم الله خيرا وزادك من علمه

[ahmedabuzena]

23 ساعات مضت, دروب مبرمج said:

تفضل بهذه الطريقة

استبدل الكود في الموديل بالتالي

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )

' القيمة الافتراضية لسعر البيع
=sellVal([Forms]![customer account]![حساب العملاء]![Text59])

' القيمة الافتراضية لسعر الشراء
=buyVal([Forms]![customer account]![حساب العملاء]![Text61])

 

test rate (4).zip 131.93 kB · 7 downloads

السلام عليكم اخي الكريم في مشكله بسيطه الرقم لو فيه علامة عشريه لا يسجل العلامه العشرية بمعنى لو كتبت 19.35 يسجلها في الجدول الفرعي 19 فقط بدون العلامه العشريه

[دروب مبرمج]

استبدل الأسطر التالية 

تحويل المتعيير من رقم صحيح الى مزدوج

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

 

[ahmedabuzena]

49 دقائق مضت, دروب مبرمج said:

استبدل الأسطر التالية 

تحويل المتعيير من رقم صحيح الى مزدوج

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

 

لم يعمل بس لما غيرت (val as integer) الى double اشتغل الف شكر جزاكم الله خيرا

Public Function buyVal(Val As double) As Double