تعديل نماذج تلقائية

[وسيم الحمادة]

اخواني وحبايبي رجعت لكم في موضوع ومشكلة جديدة

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

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

تسجيل عميل جديد لازم يكون في الحالة دائما انتظار مو قائمة اختيار

والحاجة الثانية من فوق مكتوب تسلسل اخر عميل يظهر لك العميل كم نحن وصلنا 

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

في ده النموذج عندي اسم عميل روقمة وهو مثلا 1 عند اتمام الصيانة تغير الحالة من انتظار الى تمت الصيانة

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

تاريخ الصيانة القادم يصير +80 يوم والحالة انتظار

يعني التغييرات تصير  فقط في رقم الزيارة +1 وتاريخ الصيانة +80 من تاريخ الصيانة اللي قبلها والحالة انتظار 

اخوكم وتلميذكم وشكرا لمساعدتكم سلفاَ

المرفق.rar

[وسيم الحمادة]

للرفع

[سعيد صواب]

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

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

وان شاء الله ماراح احد يقصر ..

بالتوفيق

[وسيم الحمادة]

جزاك الله كل خير سيد سعيد

وانا شارح المطلوب بشكل مفصل

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

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

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

[سعيد صواب]

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

انصحك اولا ببناء القاعدة بشكل صحيح ... واقراء عن العلاقات وتصميم الجداول بشكل صحيح .. حتى تعمل مشروعك على اكمل وجه.

جدول لبيانات العملاء .... وجدول للصيانة .

=== ردا على طلبك الأول : انت تدريج ادراج سطر للعميل نفسه بعد 80 يوم ... مع انك لو جربت ذلك يدويا فهو غير ممكن لأن رقم العميل مفتاح اساسي ترقيم تلقائي .. لن يتكرر.

بعد ان ترتب مشروعك هذه تجاوبات لاسئلتك.

بالنسبة لإضافة عدد ايام معين استخدم الدالة DateAdd

Me.ziarh = DateAdd("d", 80, AkhrZiarh)

هنا اضفنا للحقل زياره 80 يوم من تاريخ الحقل .. اخر زيارة .

بالنسبة لتمكين وعدم تمكين .. استخدم الأمر enabled.

Me.a.Enabled = False

في الكود عدم تمكين  للحقل a ... وعندما تريد تمكينه استخدم  true

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

وفقنا الله واياك 

[وسيم الحمادة]

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

ولكن اود التاريخ يكون تلقائي بعد ٨٠ يوم عند اختيار الحاله من انتظار الى تمت الصيانه وبالنسبه للتفعيل اذا اخترت تركيب تصبح خانة عدد الزيارات غير مفعله

اتمنى المساعدة 

وشكرا للنصيحه وسوف اعمل بها ان شاء الله 

بخصوص الترقيم التلقائي ممكن يلتغي مافي مشكلة 

تم تعديل يناير 18, 2016 بواسطه ابو سيما

[وسيم الحمادة]

للرفع حبايبي

[وسيم الحمادة]

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

تم تعديل يناير 18, 2016 بواسطه ابو سيما

[سعيد صواب]

تفضل اخي 

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

If Me.ziarah = "Tarkeeb" Then
Me.Add_ziarh.Enabled = False
ElseIf Me.ziarah = "Syannah" Then
Me.add_ziarah.Enabled = True
Me.add_ziarah.Value = 1
End If
End Sub

وهذا بالنسبة لزيادة 80 يوم تلقائي ..

هو نفس الكود في الأعلى تضعه في حدث بعد التحديث للحالة:

Me.ziarh = DateAdd("d", 80, AkhrZiarh)

طبعا لك الخيار ان تغير المسميات الإنجليزية بالمسميات العربية لديك ... او تغير مسمياتك الى الإنجليزية

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

جاوبتك فقط ارضاء لشخصك الكريم .....

بالتوفيق

[وسيم الحمادة]

جزاك الله كل خير حبيبي ووفقك الى الامام 

سوف اقوم في تجربته حبيبي وابلغك

شكرا جزيلا.

[وسيم الحمادة]

سيد سعيد المحترم

اشكرك على اهتمامك وذوقك الرفيع

نجحت التعليمات والحمد لله

والفضل يعود لله ومن ثم لهذا الموقع ولك حبيبي

باقي لي اخر طلب في نموذج تسجيل عميل جديد

كيف اظهر من اعلى تسلسل اخر عميل

يعني نحن وصلنا مثلا العميل رقم 15 يظهر من فوق في مربع النص الرقم

ارجو النظر الى الصورة

واشكرك مره اخرى واشكر القائمين على هذه الصفحة المحترمه 

[سعيد صواب]

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

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

Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)

ameelnoinform= رقم العميل في النموذج

ameelNointable = رقم العميل في الجدول

Albianat = جدول البيانات .

بالتوفيق

[وسيم الحمادة]

17 ساعات مضت, سعيد صواب said:

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

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

Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)

ameelnoinform= رقم العميل في النموذج

ameelNointable = رقم العميل في الجدول

Albianat = جدول البيانات .

بالتوفيق

شكرا لك حبيبي ولكن غير واضحة المعلومة بصراحة هل من توضيح جزاك الله كل خير حبيبي

اخر طلب وجعلها ربي في ميزان حسناتك حبيبي

[سعيد صواب]

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

ماهي الرسالة التي تظهر 

ثانيا اضف على الكود +1 ليصبح بالشكل التالي .. اعتذر منك نسيت +1 ليزيد كل مرة بمعدل 1

Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)+1

الان ماهي الرسالة ..

واسأل وخذ راحتك .. كلنا نسأل ونتعلم 

[وسيم الحمادة]

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

انا غايتي لمدخل البيانات يعرف وقم اخر عميل ويبدا في ادخال العميل اللي بعدو

يعني لو فرضنا اخر عميل ١٠ يفتح النوذج يعطيه اخر نموذج ١٠ يروح يحط رقم ١١ في رقم العميل الجديد

او اذا في فكره افضل افيدوني جزاكم الله كل خير

[سعيد صواب]

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

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

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

Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)+1

ولكن انت قلت ان فيه مشكلة .. ماهي رسالة الخطاء التي تظهر 

وهنا سؤال : هل مازال رقم العميل ترقيم تلقائي ؟؟

بالتوفيق

تم تعديل يناير 20, 2016 بواسطه سعيد صواب

[وسيم الحمادة]

لا حبيبي انا لغيت الترقيم التلقائي

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

ويجي مدخل البيانات يشوف انو في اخر رقم تسلسل هو 10 يحط رقم 11

يعني انا بدي بس طريقة اظهار رقم اخر تسلسل عميل

وجزام الله كل خير وشكرا كثير لمتابعتك معي في موضوعي حبيبي

المرفق يوضح لك الفكره

تم تعديل يناير 21, 2016 بواسطه ابو سيما

[سعيد صواب]

حياك الله اخي الكريم ..

شاهد اجابتي الأخيرة ... لا املك ما اقوله اكثر 

بالتوفيق

[وسيم الحمادة]

جزاك الله كل خير حبيبي ولكن المشكلة ماتحلت للان 

الترقيم التلقائي ملغى الان

ولازم اظهر تسلسل رقم اخر عميل 

اتمنى ان يكون هناك حل وشكرا

[سعيد صواب]

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

تمنيت انك تقول لي رسالة الخطاء بس .. سألت اكثر من مره

عموما شاهد المرفق وشاهد حدث عند التحميل للنموذج .. هناك تغييرات فيالمسميات بإمكانك تعديلها بعد فهم المطلوب .

بالتوفيق

النجاح.rar