مربع تحرير وسرد

[bumb]

السلام عليكم

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

مربع تحرير وسرد به قيم صيغ التصدير

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

 

تقبلو تحياتي

 

 

Microsoft Access Database جديد.accdb

[Barna]

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

 

Microsoft Access Database جديد (1).accdb

[bumb]

اشكرك على جهودك

ولكن تبقى مشكلة ظهور البيانات

حيث عند اختيار الشهر لا تظهر بيانات الشهر الذي اخترته

فعلى سبيل المثال اذا اخترت شهر فبراير لا تظهر بيانات شهر 2 وهكذا

[Barna]

4 ساعات مضت, bumb said:

اشكرك على جهودك

ولكن تبقى مشكلة ظهور البيانات

حيث عند اختيار الشهر لا تظهر بيانات الشهر الذي اخترته

فعلى سبيل المثال اذا اخترت شهر فبراير لا تظهر بيانات شهر 2 وهكذا

اولا .... هل جربت المرفق المرسل لك ؟؟؟

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

 

[د.كاف يار]

8 ساعات مضت, bumb said:

اشكرك على جهودك

ولكن تبقى مشكلة ظهور البيانات

حيث عند اختيار الشهر لا تظهر بيانات الشهر الذي اخترته

فعلى سبيل المثال اذا اخترت شهر فبراير لا تظهر بيانات شهر 2 وهكذا

متسرع في ردك كالعادة

المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب 

لكن قد يكون الفرز في عمود غير العمود الذي تريده

في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده

اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية

ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق

شكرا لكم ,,, ,

[Barna]

اشكرك اخي @د.كاف يار ...

فعلا بعض السائلين يشكك حتى في حلولك ..

بارك الله فيك ..

[bumb]

1 ساعه مضت, د.كاف يار said:

متسرع في ردك كالعادة

المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب 

لكن قد يكون الفرز في عمود غير العمود الذي تريده

في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده

اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية

ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق

شكرا لكم ,,, ,

جرب شهر 4 وشهر 8 انا اخترت شهر 4 ولم تظهر بيانات وكذلك شهر 8

ارفقت ملف به التواريخ مختلفه

Microsoft Access Database جديد.accdb

تم تعديل سبتمبر 5, 2021 بواسطه bumb

[د.كاف يار]

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

 

Microsoft Access Database جديد (3).zip

[bumb]

58 دقائق مضت, د.كاف يار said:

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

 

Microsoft Access Database جديد (3).zip 260.83 kB · 3 downloads

انا عاجز عن الشكر لكل من ساهم بالتجاوب معي

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

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

 

تحياتي للجميع 

[د.كاف يار]

الموضوع بسيط

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

فأستخدمت حلقة تكرارية مع تاريخ افتراضي عشان نطلع الأشهر 

و جعلت الكود في حدث عند الفتح

Dim i As Integer
MonthList = "اختيار ..."
For i = 0 To 11
MonthList.AddItem i + 1 & "-" & Format(DateAdd("m", i, #1/1/2000#), "mmmm")
Next

 

في حدث عند التغيير في مربع التحرير و السر 

اضفت الفتر التالي

On Error Resume Next
Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(MonthList) Then
      varFilter = (varFilter) & "format([txtMovementDateStart],'mmmm') LIKE '" & Right(MonthList, Len(MonthList) - 2) & "'"  ' الفلتر
      t1.Caption = "التقرير الشهري للحركة لشهر" & " ( " & Right(MonthList, Len(MonthList) - 2) & " )"  ' تعديل رأس الصفحة لإضافة اسم الشهر لعنوان الصفحة
   End If
   With Me.frmMovementMonthlyReport.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

و اذا رغبت بالتواصل معي تفضل على الخاص او الايميل 

حاليا لا استطيع استقبال المكالمات من السعودية لأني في ماليزيا

[د.كاف يار]

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

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

كذلك نصيحة لك حاول مثل هذي النماذج انك ما تجعلها بحجم كبير لجل انها تناسب جميع الشاشات

لو لاحظت اني صغرت حجم النموذج لكن عند الفتح ياخذ حجم الشاشة

Microsoft Access Database جديد (3).zip

[Barna]

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

 

Microsoft Access Database جديد (1).accdb

[Eng.Qassim]

1 hour ago, د.كاف يار said:

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

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

كذلك نصيحة لك حاول مثل هذي النماذج انك ما تجعلها بحجم كبير لجل انها تناسب جميع الشاشات

لو لاحظت اني صغرت حجم النموذج لكن عند الفتح ياخذ حجم الشاشة

Microsoft Access Database جديد (3).zip 250.22 kB · 0 downloads

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

البرنامج قال لي لو تطلع نخلة في راسك ما اشتغل .. قلت بنفسي يمكن هذا الاكسس في جني هههه

تحية لك دكتور ولا ستاذنا القدير @Barna

[bumb]

13 ساعات مضت, Barna said:

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

 

Microsoft Access Database جديد (1).accdb 900 kB · 4 downloads

اشكركم على جهودكم

المشكلة لا تزال قائمة وهي ان شهر 8 (اغسطس) لا يظهر بياناته

[Barna]

19 دقائق مضت, bumb said:

اشكركم على جهودكم

المشكلة لا تزال قائمة وهي ان شهر 8 (اغسطس) لا يظهر بياناته

طيب المشكلة من الكمبوبكس شهر أغسطس مكتوب فيها بهذه الصورة ( اغسطس ) اما في الاستعلام مكتوبة بهذه الصورة ( أغسطس ) انظر الصور 

 

Microsoft Access Database جديد (1).accdb

تم تعديل سبتمبر 6, 2021 بواسطه Barna

[د.كاف يار]

تفضل هذا 

Microsoft Access Database جديد (3).zip

[bumb]

اشكركم جميعاً على ماقدمتموه من اجلي