كيفية التحديث التلقائى من خلال نموذج مفرد

الاخ العزيز rewnasser

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

قم بانشاء جدول يحتوى على الحقول a1-a2-a3

ثم قم بعمل استعلام مبنى على هذا الجدول وبه الحقل التجميعى a4 وبه المعادلة الحسابية

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

1234.rar

شكرا اخى الكريم

..أرفق مثالاً للتعديل عليه...

ارفق مثالا بصيغة 2003

و ثانيا / لا تعلم بالجهد الذي نبذله فى عمل الحلول لذا من المفترض ان توضح قصدك من البداية

مش كل مشاركة توضح فيها جزء

ربما بعد عمل الحل الثانى تقول / لم اقصد هكذا و انما محتويات مربعات النص هي احداثيات ديكارتية

ارجو التوضيح جدا لعدم هدر الوقت

و تقبل مروري

اخي الكريم إن الاخ gadelrab اجابك اجابة جيدة حسبما طلبت في الطلب الاول

اما الطلب الثاني فإليك الاجابة منفس مثال الاخ gadelrab

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

1234.rar

أواب كتب:

..أرفق مثالاً للتعديل عليه...

tbazh كتب:

ارفق مثالا بصيغة 2003

و ثانيا / لا تعلم بالجهد الذي نبذله فى عمل الحلول لذا من المفترض ان توضح قصدك من البداية

مش كل مشاركة توضح فيها جزء

ربما بعد عمل الحل الثانى تقول / لم اقصد هكذا و انما محتويات مربعات النص هي احداثيات ديكارتية

ارجو التوضيح جدا لعدم هدر الوقت

و تقبل مروري

mirage4pc كتب:

اخي الكريم إن الاخ gadelrab اجابك اجابة جيدة حسبما طلبت في الطلب الاول

اما الطلب الثاني فإليك الاجابة منفس مثال الاخ gadelrab

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

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

أما بالنسبة للمطلوب

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

لكن الحقل newname لا تظهر بياناتة الا من خلال الخروج من الحقل a8

عملت زر تحديث للبيانات لحساب قيمة new name لاكثر من سجل فى وقت واحد

راجع المثال أخى وستفهم قصدى - أفتح الفورم وحاول التنقل بين السجلات وسترى ان بيانات newname لا تظهر الا عند الخروج من a8

وشكرا للجميع

db1.rar

للرفع

تفضل الحل

db1.rar

أواب كتب:

تفضل الحل

مشكور أخى الكريم

لقد نفذت ما فعلتة بالفعل على البرنامج لدى وفعلا وضعت كود حساب بيانات new name فى حدث الحالى على النموذج وفى حدث الضغط على الزر تحديث

وفعلا تظهر البيانات دون الحاجة للخروج من الحقل a8

لكن للأسف ليس هذا هو المطلوب

المطلوب لو فية 100 سجل بدون بيانات فى new name - افتح الفورم وأضغط على زر تحديث فقط - ثم اذهب وافتح الجدول مصدر الفورم أجد بيانات new name تم حسابها

دون الحاجة للذهاب الى كل سجل فى الفورم كما فى حل حضرتك

مشكور أخى على محاولة المساعدة

تفضل الحل كما تريد بالضبط

db1.rar

مشكور أخى الكريم

بس لى طلب أخير

انا عاوز أستخدم نفس الكود بتاعى انا وللاسف جربت أستبدلة فى ألأستعلام بتاعك بدال الكود بتاعك ما صح معى

ممكن تستعمل نفس الكود بتاعى بدون أى تغيير

وشكرا

وهو

Dim f, f1, f2, f3, f4, f5 As String

If Me.a3 = 1 Then

f = ""

Else

f = " ÞØÑ ÎÇÑÌì " & Me.a3 & " ãã"

End If

If Me.a4 = 1 Then

f1 = ""

Else

f1 = " ÞØÑ ÏÇÎáì " & Me.a4 & " ãã"

End If

If Me.a5 = 1 Then

f2 = ""

Else

f2 = " Øæá " & Me.a5 & " ãã"

End If

If Me.a6 = 1 Then

f3 = ""

Else

f3 = " ÚÑÖ " & Me.a6 & " ãã"

End If

If Me.a7 = 1 Then

f4 = ""

Else

f4 = " Óãß " & Me.a7 & " ãã"

End If

If Me.a8 = 1 Then

f5 = ""

Else

f5 = " æÒä " & Me.a8 & " ßÌã"

End If

QWER = f & f1 & f2 & f3 & f4

Me.NewName = QWER

طبعا عند النسخ فى محرر الأكواد بالأكسيس بيضبط

وعامة هو موجود فى مثالى المرفق بالمشاركة رقم 7

وشكرا