اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kanory

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2375

  • تاريخ الانضمام

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

  • Days Won

    140

 نوع المحتوي 

كل منشورات العضو kanory

  1. kanory
    غير ها بهذه ..... If Mid([Combo1], 1, 5) = "اسمنت" Then Me.R.Visible = True Me.S.Visible = False Me.T.Visible = False End If
  2. kanory
    هل المطلوب اجمالي السنه الحالية فقط
  3. kanory
    اصنع في الجدول الخاص بالاشخاص مربع اختيار .... صع علامة صح للاشخاص الغير مرغوب في ظهورهم ....
  4. kanory
  5. kanory
    الحمد لله رب العالمين ..... حياك الله
  6. kanory
    انت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج Me![Text4] = DLookup("[Pc]", "[Table1]", "[Pc]=forms![Form1].[Text0]") Refresh If (IsNull(Forms![Form1]![Text4])) Or (Forms![Form1]![Text4] = "") Then MsgBox "Number not found", 48, "Attention" End If
  7. kanory
    طيب برنامجك جربته وكتبت في الرقم 100 واشتغل عادي ايش المشكلة
  8. kanory
    طيب ممكن ترفق لنا هذا التقرير
  9. kanory
    ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟
  10. kanory
    التلقائي هو العمودي مالم تغيره أو تقصد برمجيا
  11. kanory
    تفضل ولاحظ التعديلات : كونت لك استعلام ونموذج لاستخراج الاجمالي copy.accdb
  12. kanory
    انظر .....
  13. kanory
    استخدم هذا الكود ...... Private Sub Text0_Change() On Error Resume Next Dim L As Integer L = Val(Len(Text0.Text) - 1) If Not Trim(Text0.Text) = "" Then If IsNumeric(Text0.Text) = False Then Text0.Text = Mid(Text0.Text, 1, L): Text0.SelStart = Len(Text0.Text) End If End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next Select Case KeyAscii Case 48 To 57, 32 '(لإلغاء SPACE) KeyAscii = 0 End Select End Sub
  14. kanory
    الحمد لله رب العالمين ...... حياك الله
  15. kanory
    تفضل .... القسمة على غير العدد.accdb
  16. kanory
    ضع عند حدث التحديث لمربع النص A هذا الكود If IsNumeric(A) And IsNumeric(B) Then Me.نص4 = [A] / [B] Else Me.نص4 =0 End If
  17. kanory
    شرح وافي ... ماشاء الله تبارك الله
  18. kanory
    بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....
  19. kanory
    ممكن عينة من برنامجك بالمسارات
  20. kanory
    الكود ليس ليه مشكلة لاحظ هذا objWorkbook.Sheets(SHEET%).range("c5").CopyFromRecordset RS_STUDENTS SHEET% = SHEET% + 2
  21. kanory
    مشاركة مع استاذي محمد استخدمنا هذا الكود Kill (Me.txt1 & "*.*") تفضل --------->>>>>> حذف محتويات مجلد.accdb
  22. kanory
    حياك الله .... الحمد لله رب العالمين
  23. kanory
    حياك الله ....... الحمد لله رب العالمين
  24. kanory
    بشرط اذا وجدت القاموس تدرجة هنا مع هذا المثال ..... طبعا موافق .... طيب انظر المرفق .... names.mdb
  25. kanory
    في هذه الحالة تحتاج قاموس كامل يحوي كل مفردات الاسماء المعروفه ..... ابحث عن القاموس ان وجدتها فممكن للاكسس عندها ترجمة الاسماء من خلالها والله اعلم .....
×
×
  • اضف...

Important Information

  I accept