Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

04 Silver Member
  • Content Count

    891
  • Joined

  • Last visited

Community Reputation

236 Excellent

1 Follower

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

  • Rank
    Name
  • Birthday 01/26/1979

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    baghdad
  • Location
    iraq

Recent Profile Visitors

1,242 profile views
  1. استاذ الغالي @kanory لم اعد اريد ان يفتح لي نموذجان لكن المشكلة اني لم اعد استطيع التعامل مع قاعدة البيانات خصوصا اني قضيت وقت طويل في عملها
  2. السلام عليكم لدي قاعدة بيانات قمت بجعل نموذج عند الفتح نموذج منبثق وايضا عند فتح النموذج المنبثق يفتح نموذج اخر منبثق ايضا لكني تفاجئت بان قاعدة البيانات فقط تفتح النموذجان ثم لاتستجيب ارجو الحل وقد ارفقت مثال للمشكلة mx.accdb
  3. السلام عليكم لدي نموذج fx1 ليس له مصدر بيانات والجدول x1 اريد جلب الاسم dimon في الحقل xxx من الجدول x1 الى النموجج fx1 في الحقل mx mx.accdb
  4. مشتاقين استاذ ابا جودي الغالي
  5. السلام عليكم ,,,,, في النموذج fqx احتاج عند الضغط على زر تحقق وكانت قيمة الحقل z تساوي قيمة الحق v تظهر رسالة تنبية error 1 وبخلافة تظهر رسالة تنبيه error2 عن طريق الكود وليس الماكرو وشكرا جزيلا vvv.accdb
  6. الحمد لله تم الحل قمت بتنزيل برنامج Data Lifeguard Diagnostic for Windows من موقع الرسمي للشركة وقام باعادة الحياة الى الهارد
  7. السلام عليكم ,,,,, احتاج عند بداية عداد الوقت يفتح النموذج A وعند انتهاء العداد يغلق نموذج العداد اي النموذج الحالي Private Sub Form_Open(Cancel As Integer) i = 101 Me.pr = "loading ..." End Sub Private Sub Form_Timer() i = i - 1 Me("sq" & i).Visible = True If i = 1 Then Me.TimerInterval = 0 End If Static intCount As Integer intCount = intCount - 1 If intCount Then Me.pr = "loading " & Abs(intCount) & "%" End If End Sub
  8. @husamwahab, @Shivan Rekany كلمة شكر لاتكفي لكن دعوة بالغيب ,,,,,,
  9. تفضل Dim fdialog As Office.FileDialog Dim filepath As String Set fdialog = Application.FileDialog(msoFileDialogFilePicker) With fdialog .Title = "Select image" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png" If .Show Then filepath = .SelectedItems(1) [Imagepath] = filepath Else Exit Sub End If End With
  10. جزاك الله عني كل خير استاذ وهو المطلوب طلب اخر لو سمحت استاذ @husamwahab هل بالامكان جلب القيمة بواسطة استعلام اي جلب القيمة من الوحدة النمطية الى الاستعلام وكيف وشكرا جزيلا
  11. جزيل الشكر استاذ شفان وهو المطلوب
  12. من رخصة وحش الاكواد الاستاذ محمد تفضل لعلة المطلوب FRm_Refresh.accdb
  13. السلام عليكم ,,,,, اريد نقل الكود الموجود في النموذج FCp في حدث عند التحميل الى وحدة نمطية مع جزيل الشكر وحدة نمطية.accdb
×
×
  • Create New...