ازهر عبد العزيز

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

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

استاذ @أحمد الفلاحجى http://snap.ashampoo.com/F5zfAUmGS0D0K5CvJqnGbC4qZtoca3GgYbLzVXbJXfjdCLYm5hS7JPoee5GeYNks

الاستاذ @أحمد الفلاحجى هناك مشكلة اذا اضفنا نص في الحقل وهذا النص موجود فعلا في السجلات في الجدول at تظهر لي الرسالة هذا الرقم غير موجود اعتقد اني لم اوضح السؤال عفوا انا احتاج اذا كان النص غير موجود في سجلات الجدول at للحقل serial number تظهر لي الرسالة ويتم التراجع @أحمد الفلاحجى

شكرا

السلام عليكم ..... لدي نموذج FLD يحتوي على حقل NAME1 عند ادخال معلومات غير موجودة في السجلات تظهر لي الرسالة كما في الصورة هل بالامكان استبدال هذة الرسالة بالرتاجع عن التسجيل اذا كان النص غير موجود في السجلات مع رسالة تنبية بسيطة TEST1 (4) - Copy.accdb

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

السلام عليكم .... ماذا تعني هذة الرموز في الاكواد 1-"*" 2-"'" 3-EOF 4-Bookmark 5-Me.Recordset.Clone 6- Dim rs As Object 7- Dim stry As String

الاستاذ المبدع @essam rabea

السلام عليكم لدي نموذج يحتوي على مربع نص عدد 2 الاول اسمة b1 والثاني اسمة b2 ويوجد تحت زر بعد التحديث لمربع النص p1 الكود في الاسفل .....وهو عند الادخال في مربع النص p1 يقوم بالتاكد من وجود هذا الرقم في السجلان في جدول at وواذا لم تكن موجودة يظهر رسالة خطا انا بحاجة لتخلص من مربع النص الثاني مع ابقاء عملية التحقق On Error Resume Next ''''''''''''''''''''''' Me.p2 = DLookup("[serial number]", "at", "[serial number]='" & Me.p1 & "'") '''''''''''''''''' If Len(Me.p2 & "") = 0 Then MsgBox "error" Undo Exit Sub End If New Microsoft Access Database.accdb

السلام عليكم .... لدي نموذج FLH يحتوي مربع تحرير وسرد (N1 (NAME1 يحتوي على هذا الكود Private Sub N1_AfterUpdate() If DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.N1 & "'") > 0 Then Dim stry As String stry = Me.N1 Me.Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[B] = '" & stry & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark DoCmd.GoToRecord , , acNewRec End If End Sub ويحتوي مربع نص(N2 ( serial number كيف اجعل مربع النص يعمل كعمل مربع التحرير والسرد عن طريق نسخ واللصق القيمة اي عند ادخال قيمةكمثال 645645656 عن طرق لصق القيمة وكانت مكررة يضيفها الى القيمة التي كانت موجودة مسبقا ثم ينشئ سجل جديد اما اذا كانت القيمة غير موجودة يظهر رسالة خطا TEST1 (4) - Copy.accdb

السلام عليكم لدي نموذج FXYX يحتوي على مربع قيم اريد ان اظهرة في التقرير RXYX عند الضغط غلى زر فتح التقرير من النموذج New Microsoft Access Database.accdb

الاستاذ kanory شكرا جزيلا لكن هناك مشكلة انا لا استطيع الكتابة بعد نقل التركيز الا عند الضغط على الحقل وانا احتاج عند نقل التركيز اتمكن من الكتابة مباشرتا وهذا مثال مرفق لتوضيح المشكلة التي تواجهني SetFocus.accdb

السلام عليكم .... لو فرضنا ان لدي نموذج رئيس A يتضمن زر SET ونموذج فرعي B داخلة حقل C كيف انقل التركيز من النموذج الرئيسي الى الحقل C في النوذج الفرعي B عند الضغط على زر SET

الاستاذ المبدع ابو تراب شكرا جزيلا لك

الاستاذ المبدع ابو تراب شكرا لمرورك لكني احتاج ان تبقى قيمة الحقل dname افتراضية

السلام علكيم .... لدي نموذج flh عند اضافة عنصر في الحقل name1 تظهر لي رسالة الخطا كما في الصورة طبعا الكود كان يعمل بشكل طبيعي الى ان جعلت حقل dname افتراضي DRASAMH TEST1.accdb

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

الاستاذ العزيز ابو تراب اعتقد المشكلة بسبب نسخة قاعدة البيانات فقد ظهر لي بها بعض الاخطاء اعتذر منك وارجو منك مراجعة هذا الكود الذي استخدمتة وابداء ملاحظاتك ان وجدت حفظك اللة ورعاك Private Sub nameVaccines_Click() DoCmd.OpenForm "F1Vaccines", , , "[nameVaccines]=" & nameVaccines End Sub

Ashampoo_Snap_Thursday,_April_30,_2020_16h35m17s_001_.zip هذا مايحدث عند فتح البرنامج عندي

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

اخي واستاذي @kha9009lid البرنامج الذي اعمل علية يحتوي معلومات تحتاج الى سرية في الحقيقة انا فكرة بعدة طرق لاضيف الجماية الى برنامجي سوف اطرحها ان شاء قريبا لعل الاساتذة يساعدوني على تنفيذها وشكرا لك لسعة صدرك وعلى مدحك عملي شهادة اعتز بها

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

السلام عليكم .... لدي نوذج FVaccines يحتوي على اسماء بعض اللقاحات بشكل نماذج مستمرة احتاج عند الضغط على اي اسم لقاح في الحقل nameVaccines يحولني على معلومات اللقاح في النموذج F1Vaccines والتي ستظهر بشكل نموذج منفرد باي طريقة ممكنة Vaccines - Copy.accdb