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

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

السلام عليكم لدي مربع نص textbox1 وهناك ثلاثة ازرار الاول button1 والثاني button2 والثالث button3 احتاج عند الضغط على الزر الاول يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار طبعا نوجد طريفة وهي كتاية الكود التالي تحت كل زر وحسب الرقم المطلوب me.textbox1 = 1 لكني احتاج طريقة اسهل لوجد العديد من الازرار في مشروعي وهناك مجموعة من الاكواد المرتبطة في كل زر New Microsoft Access قاعدة بيانات.accdb

جزبل الشكر استاذنا ابو خليل

ممكن بوضيح او مثال لو تفضلت اسناذ

السلام عليكم قي النموذح ftext يوجد حقل textfield وهناك زران الاول textimport احتاج عند الضغط علية يجلب لي النص الموجود في المستند textm الى الحقل textfield وهذا المستند موجود بجانب قاعدو البيانات في نفس فولدر القاعدة اما الزر الثاني textchange عند الضغط علية يتم تحديث النص الموجود في المستند textm مثلا لو كان النص في textfield بعد جلبة هو x12345 وبعد تغيرة في textfeild الى y12345 والضغط على الزر textchange ينم تحديث النص الموجود في المستند textm الى القيمة الجديدة textf.rar

السلام عليكم لدي نموذج ولنفرض اسمة fa يحنوي على زر ولنفرض اسمة b1 اريد نغير حجم هذا الزر من خلال زر اخر في نموذج ثاني لنفرض اسمة النموذج الثاني هو fb

استعمل الكود الاخير للاستاذ @Eng.Qassim ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة واضف الكود التالي في نهاية الكود Me.Combo0 = Null تحياتي

حسب فهمي للسؤال عليك استخدام معيار في الاستعلام <> True datadaleywork.accdb

Function EnableShift() 'This function enables the SHIFT key at startup. This action causes 'the Autoexec macro and the Startup properties to be bypassed 'if the user holds down the SHIFT key when the user opens the database. On Error GoTo errEnableShift Dim db As DAO.Database Dim prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb() 'This next line of code disables the SHIFT key on startup. db.Properties("AllowByPassKey") = True 'function successful Debug.Print "Enabled Shift Key - Successful" GoTo ExitHere errEnableShift: 'The first part of this error routine creates the "AllowByPassKey 'property if it does not exist. If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, True) db.Properties.Append prop Resume Next Else MsgBox "Function 'ap_DisableShift' did not complete successfully." GoTo ExitHere End If ExitHere: Set prop = Nothing Set db = Nothing Exit Function End Function

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

لعلة المطلوب o.accdb

وعليكم السلام ورحمة الله وبركاتة بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb

if isnull(tnv) or tnv = "" then exit sub end if

اغلق الوجهة ثم قم بتمكين المحتوى من الشرط الاعلى