اذهب الي المحتوي
أوفيسنا

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

04 عضو فضي
  • Posts

    1,197
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

313 Excellent

3 متابعين

عن العضو ازهر عبد العزيز

  • تاريخ الميلاد 26 ينا, 1979

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    baghdad
  • البلد
    iraq

اخر الزوار

2,543 زياره للملف الشخصي
  1. السلام عليكم لدي مربع نص textbox1 وهناك ثلاثة ازرار الاول button1 والثاني button2 والثالث button3 احتاج عند الضغط على الزر الاول يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار طبعا نوجد طريفة وهي كتاية الكود التالي تحت كل زر وحسب الرقم المطلوب me.textbox1 = 1 لكني احتاج طريقة اسهل لوجد العديد من الازرار في مشروعي وهناك مجموعة من الاكواد المرتبطة في كل زر New Microsoft Access قاعدة بيانات.accdb
  2. السلام عليكم قي النموذح ftext يوجد حقل textfield وهناك زران الاول textimport احتاج عند الضغط علية يجلب لي النص الموجود في المستند textm الى الحقل textfield وهذا المستند موجود بجانب قاعدو البيانات في نفس فولدر القاعدة اما الزر الثاني textchange عند الضغط علية يتم تحديث النص الموجود في المستند textm مثلا لو كان النص في textfield بعد جلبة هو x12345 وبعد تغيرة في textfeild الى y12345 والضغط على الزر textchange ينم تحديث النص الموجود في المستند textm الى القيمة الجديدة textf.rar
  3. السلام عليكم لدي نموذج ولنفرض اسمة fa يحنوي على زر ولنفرض اسمة b1 اريد نغير حجم هذا الزر من خلال زر اخر في نموذج ثاني لنفرض اسمة النموذج الثاني هو fb
  4. استعمل الكود الاخير للاستاذ @Eng.Qassim ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة واضف الكود التالي في نهاية الكود Me.Combo0 = Null تحياتي
  5. حسب فهمي للسؤال عليك استخدام معيار في الاستعلام <> True datadaleywork.accdb
  6. 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
  7. ملاحظة تلسكوبية اخي حلبي ماهو التكتست موجود داخل زر الامر وهذا مثال اخر لعلي وفقت للمطلوب o.accdb
  8. وعليكم السلام ورحمة الله وبركاتة بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb
×
×
  • اضف...

Important Information