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

حراثي تواتي

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه حراثي تواتي

  1. بارك الله فيك الاخ الفاضل

    فقط ان لم اكثر عليك تعديل رابط اسراد الصورة من الملف المستحدث photos وشكرا مرة أخرى

    Private Sub TextBox1_Change()
    '=============================

    Dim MYPATH
    MYPATH = ThisWorkbook.Path & "\" & TextBox1.Text & ".JPG"
    If Right(MYPATH, 1) <> "\" Then
    On Error GoTo 1
    Image1.Picture = LoadPicture(MYPATH)
    Else
    1:
    'MsgBox "åÐÇ ÇáÕæÑÉ ÛíÑ ãæÌæÏÉ", vbInformation, "ÎØÃ"
    'Image1.Picture = LoadPicture()
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\M.JPG")
    Exit Sub
    End If
    '==========================================

    End Sub

     

     

    2019-05-06_181335.jpg

  2. كل عام وانتم بخير استاذنا

    شكرا استاذنا على المتابعة و الاهتمام

    نعم هذا هو المطلوب بارك الله فيك استاذ ودمت ذخرا لنا

    تقبل مروري وخالص تحياتي استاذ

  3. شكرا أستاذنا على الاهتمام والمتابعة والرد

    ببساطة شيخنا أردت وضع كمبوبوكس في اليوزر فورم 1 ومنه وبقائمة منسدلة انتقل الى اليوزر فورم 2 او اليوزر فورم 3 الى غير ذلك

    طبعا اذا كان ممكن استاذنا وان شاء الله ما اكون كثرت عليك

  4. السلام عليكم اخواني رواد منتدى اوفيسنا

    التمس منكم مساعدة فيما يخص كود الانتقال من فورم الى فورم عبر القائمة المنسدلة في الكمبوبوكس

    وشكرا مسبقا

    vlcsnap-1806641.png

    انتقال من فورم الى فورم عن طريق الكمبوبوكس.rar

  5. السلام عليكم ورحمة الله وبركاته

    أساتذتي رواد المنتدى التمس منكم مساعدتي على كود التعديل عى البيانات بالاستناد الى رقم التسجيل كما هو مبين في الصور

    تقبلوا مني فائق الاحترام

    2019-04-20_111709.png

    2019-04-20_112842.png

    برنامج مدرسي.rar

    برنامج مدرسي.rar

  6. بارك الله فيك اخي و في اخينا ياسر خليل ابو البراء  على العمل الرائع الذي تقومون به من اجل تنويرنا فشكرا لكم جميع

    بعد تجريب الكود على ورقة العمل لاحظت انه يمسح جميع محتويات الورقة وليس النطاق المحدد فقط

    رجاء من الاخوة الكرام اعادة تصحيحه و جعله يمسح النطاق المحدد فقط

    تواتي 5.rar

×
×
  • اضف...

Important Information