-
Posts
1,197 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
313 Excellentعن العضو ازهر عبد العزيز

- تاريخ الميلاد 26 ينا, 1979
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
baghdad
-
البلد
iraq
اخر الزوار
2,543 زياره للملف الشخصي
-
وهو المطلوب جزاك الله كل خير
-
السلام عليكم لدي مربع نص textbox1 وهناك ثلاثة ازرار الاول button1 والثاني button2 والثالث button3 احتاج عند الضغط على الزر الاول يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار طبعا نوجد طريفة وهي كتاية الكود التالي تحت كل زر وحسب الرقم المطلوب me.textbox1 = 1 لكني احتاج طريقة اسهل لوجد العديد من الازرار في مشروعي وهناك مجموعة من الاكواد المرتبطة في كل زر New Microsoft Access قاعدة بيانات.accdb
-
المساعدة في بيانات مستند نصي
ازهر عبد العزيز replied to ازهر عبد العزيز's topic in قسم الأكسيس Access
جزبل الشكر استاذنا ابو خليل -
التوفيق بين البرامج المعمولة بالعربية ولغة اجنبية
ازهر عبد العزيز replied to XVMOHAMED's topic in قسم الأكسيس Access
ممكن بوضيح او مثال لو تفضلت اسناذ -
السلام عليكم قي النموذح 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
-
هل يمكن تصمم تكست بوكس (مربع نص) بحواف دائرية
ازهر عبد العزيز replied to ahmedsaadzeed's topic in قسم الأكسيس Access
ملاحظة تلسكوبية اخي حلبي ماهو التكتست موجود داخل زر الامر وهذا مثال اخر لعلي وفقت للمطلوب o.accdb -
هل يمكن تصمم تكست بوكس (مربع نص) بحواف دائرية
ازهر عبد العزيز replied to ahmedsaadzeed's topic in قسم الأكسيس Access
لعلة المطلوب o.accdb -
وعليكم السلام ورحمة الله وبركاتة بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb
-
طلب كود عدم تنفيد امر في حالة مربع نص فارغ ا
ازهر عبد العزيز replied to رشبد's topic in قسم الأكسيس Access
if isnull(tnv) or tnv = "" then exit sub end if -
مساعدة في حفظ مسار ملف ( اضافة - فتح - حذف )
ازهر عبد العزيز replied to ازهر عبد العزيز's topic in قسم الأكسيس Access