Abdelaziz Osman

اخى ومعلمى @Foksh

لك كل التقدير والاحترام

مرفق ملف العمل

تطبيق الفكرة على حقل retial

Retial -.accdb

معذرتا معلمى و اخى الكريم @Foksh

مش قابل معايا فى نموذج ورقة بيانات

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

الكود هو

Retial_afterUpdate

Retial_
if Not Me.newRecord Then
MsgBox "غير مسموح بتغيير البيانات"
Retial.value = Retial.oldvalue
End IF
End SUb

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

لدي حقل داخل نموذج

اسم الحقل  Retial

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

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

عندما إرسال ايميل لبعض الأشخاص ضمن bcc لا تظهر عناوين الايميلات الخاصة عندما اطلب تقرير طباعة بالايميل الذى أرسلته

وكل مرة ادخل إلى developer لكي اقوم باظهار bcc فى نموذج الطباعة

هل يوجد حل يتم عمله مرة واحدة فقط بدل ما كلما ادخل اعمله كل مرة

اذا ينفع. على سبيل المثال

ادخل الأرقام بشكل عمودى واضغط enter مثل يقوم الاستعلام يسحب سجلات الأرقام التى تم كتابتها

مرفق صورة للاستدلال

58 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @Abdelaziz Osman محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد . واذا كان هذا طلبك اضغط أفضل اجابة .

                                                                                                                            

codeM-1.rar 88.79 kB · 2 downloads

مجهود رائع. معلمنا. @kkhalifa1960

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

ثانيا

لا أريد استعمل البحث بالنظر ولكن اريد ادخل الأرقام يقوم البرنامج هو بالبحث عنها

ثالثاً 

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

6 ساعات مضت, Abdelaziz Osman said:

الطلب الثانى يخص جدولexplan

يوجد حقل باسم "رقم الطلب"

ولدي بعض ارقام تلك الطلبات

أريد اداة ادخل فيها تلك الأرقام وبعدما اضغط enter

يتم استخراج بيانات سجلات تلك الارقام المسجلها داخل جدول explan

على سبيل المثال يوجد بالجدول سجل يتبع رقم الطلب 1100268616

أريد استخراج بيانات سجل هذا الحقل 

ومعه سجل رقم طلب،اخر

ومعهم سجل رقم طلب ثالث

وبعدما اكتب كل أرقام الطلبات التى كتبتها 

تقوم تلك الاداه سواء كانت استعلام او ماشابه 

باستيراد سجلات تلك الحقول فقط

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

مطلوب المساعدة فى حل تلك المسألة 

3 ساعات مضت, AlwaZeeR said:

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

بخصوص الطلب الثاني صراحة لم افهم مقصدك

ما معيار الفلترة التي تريده لاستخراج هذه السجلات؟

 

codeM.accdb 680 kB · 2 downloads

الطلب الثانى يخص جدولexplan

يوجد حقل باسم "رقم الطلب"

ولدي بعض ارقام تلك الطلبات

أريد اداة ادخل فيها تلك الأرقام وبعدما اضغط enter

يتم استخراج بيانات سجلات تلك الارقام المسجلها داخل جدول explan

على سبيل المثال يوجد بالجدول سجل يتبع رقم الطلب 1100268616

أريد استخراج بيانات سجل هذا الحقل 

ومعه سجل رقم طلب،اخر

ومعهم سجل رقم طلب ثالث

وبعدما اكتب كل أرقام الطلبات التى كتبتها 

تقوم تلك الاداه سواء كانت استعلام او ماشابه 

باستيراد سجلات تلك الحقول فقط

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

مرفق ملف اكسيس

به جدولين  explan & ser

اولا

المطلوب استعلام يظهر كافة سجلات جدول ser 

التى ليست متشابه مع سجلات حقل "رقم الطلب" بجدول explan.

ثانيا

مطلوب استعلام استخرج بعض السجلات المحددة بعينها من وسط سجلات حقل "رقم الطلب" بجدول explan.

بمعنى على سبيل المثال أريد استخراج بيانات  6سجلات فقط من سجلات الجدول explan

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

مرفق صورة

مع مراعاة انه قد يكون العدد 6 او 7 او 10

العدد متغير بحسب الحالة

codeM.accdb

5 ساعات مضت, أبوبسمله said:

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

كل عام وانتم بخير

مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا

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

بالتوفيق

PRindex_1.accdb 884 kB · 4 downloads

@أبوبسمله

عمل جيد جدا اشكرك بالفعل جزاك الله خيرا

لكن اريد عمود التاريخ يظهر به احدث تاربخ فقط وليس كل التواريخ 

@kkhalifa1960

عمل أشد من رائع

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

مرفق جدول اكسيس

أريد استعلام او طريقة ما

تعطي لى  بيانات الحقل الاول  فيه بدون تكرار. امامه  على نفس السطر

الحقل الثانى بدون تكرار 

الحقل الرابع بدون تكرار

الحقل الخامس بدون تكرار

أما الحقل الثالث  به جميع محتويات  ذلك الحقل امام سطر الحقل الأول الذى يخصة

اما الحقل السادس يظهر به أعلى ترتيب بما يخص حقله الأول

والحقل الاخير يظهر به مجموع كل قيم ذلك الحقل بما يخص حقله الأول

بالغ التحية 

PRindex.accdb

11 ساعات مضت, Foksh said:

مداخلة جانبية مع معلمي الفاضل @ابوخليل .

جرب هذا الكود

Private Sub Form_AfterUpdate()
    Dim recordId As Long
    Dim allFieldsFilled As Boolean
    allFieldsFilled = True
    
    ' قم بفحص ملء كل الحقول
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ' التأكد من أن الحقل هو حقل نصي
            If IsNull(ctl.Value) Then
                allFieldsFilled = False
                Exit For ' توقف الفحص عندما يتم العثور على حقل غير ممتلئ
            End If
        End If
    Next ctl
    
    ' إذا كانت جميع الحقول ممتلئة، قم بعرض رسالة بمحتوى الحقل Id
    If allFieldsFilled Then
        recordId = Me.ActiveControl.Value ' استخدم الحقل النشط حاليًا
        MsgBox "تم إنشاء السجل برقم: " & recordId
    End If
End Sub

واعلامنا بالنتيجة 😊

استاذنا ومعلمى @Foksh

اخذت الكود بالكامل copy كما أنت أرسلته

ولم احذف او اعدل فيه حرف 

ولكنه لم يعمل.     وساحاول مرة أخرى البحث عن أي أخطاء ممكن تكون عندى 

بالغ التحية

تمام

ساقوم بتجربة الحلين

وان شاء الله أبلغ سيادتكم

بالنتيجة

لكم من كل التقدير والاحترام

@ابوخليل

@Foksh

وهل اكتب هذا السطر خصائص النموذج

ام السجل

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

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

لدي نموذج اكسيس بطريقة عرض سجلات ورقة بيانات

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

بمعنى ان السجل به 5 حقول منهم حقل باسم Id وهو حقل ترقيم تلقائى 

أريد بعد أن انتهى من باقى حقول السجل وعندما اضغط enter لكى انتقل الى السجل الجديد أريد ظهور رسالة تخبرنى بمحتوى الحقل Id  الذى يخص هذا السجل الذى تم انشائه

بالغ التحية

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

لدي حقلين داخل نموذج

الحقل الأول باسم prog

والحقل الثانى باسم cast

المطلوب 

تحديث الحقل الثانى تلقائيا بكلمة "complete" 

فى حالة اذا كان الحقل الأول يحتوى على كلمة "plan"

اهم ما الأمر أن مفهوم الشرط هو يحتوى  يعنى جزء من بيانات الحقل الأول

بالغ التحية

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

لدي حقل داخل نموذج اكسيس

أريد اكتب فى هذا الحقل بعض الكلمات اوارقام مثل "شريحه1"  أو  5G او 4G

أو أي كلمات

المطلوب بعد أن اقوم بالادخال أو التحديث أريد من الاكسيس بشكل تلقائى يكمل الادخال بعلامة / وكذلك رقم السنة المسجل للويندز

بمعنى عندما اكتب كلمة 5G ثم اضغط enter 

يقوم الاكسيس تلقائيا  بالتغيير إلى

5G/2024

اسم الحقل    Msys

وطريقة عرض الأخ الفاضل @kanory

لها مميزات اخرى استخدمتها فى أحداث اخرى داخل قاعدة البيانات

@kkhalifa1960

لا لم أرفض طريقة عرضك نهائيا

بل بالعكس هى التى قمت بتشغيلها

بالفعل ولكنى شديد الحب للعلم والعلماء

واحب كثيرا التعلم من ذو الخبره

لكم منى كل التقدير والاحترام

@kanory

تقريبا مش شغال معايا الكود 

@kanory

هو تمام اوك اول سجل طريقة طيبة ان شاء الله

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

وجزاكم الله خيرا إليكم جميعا على تفاعلكم واهتمامكم بالغ التقدير

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

طيب حضرتك ايه رايك يا استاذنا

@Foksh

انا شايف ان فى كود بالامر التالى

DoCmd.GoToRecord , , acAnyRecord