طلب بسيط : إظهار رسالة في كود VB

[ahmed draz]

السلام عليكم اخوتي الكرام 

الى السادة الخبراء

طلب: أريد اظهار سالة (لا توجد صورة مطابقة لرقم الجلوس) عندما لاتوجد صورة مطابقة لرقم الجلوس

عند تنفيذ الكود التالي:

 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim s1 As String

s1 = Str(Me![رقم الجلوس])

s1 = Right(s1, Len(s1) - 1)

Me![Image_Std].Picture = "D:\صور\" + s1 + ".jpg"

End Sub

 

ولكم جزيل الشكر

تم تعديل يونيو 10, 2024 بواسطه ahmed draz

[safaa salem5]

 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Dim s1 As String

    Dim imagePath As String

 

    s1 = Str(Me![رقم الجلوس])

    s1 = Right(s1, Len(s1) - 1)

    

    imagePath = "D:\صور\" + s1 + ".jpg"

    

    If Dir(imagePath) <> "" Then

        Me![Image_Std].Picture = imagePath

    Else

        Me![Image_Std].Picture = ""

        Me![Image_Std].Caption = "لا توجد صورة مطابقة لرقم الجلوس"

    End If

End Sub

```

[ahmed draz]

شكرا جزيلا اختي safaa salem5 

جاري التجربة

[ابو جودي]

ممكن تجرب الكود ده  

 

Dim ImagePath As String

s1 = Str(Me![رقم الجلوس])
s1 = Right(s1, Len(s1) - 1)
ImagePath = "D:\صور\" & s1 & ".jpg"

On Error Resume Next
Me![Image_Std].Picture = ImagePath
If Err.Number <> 0 Then
    MsgBox "لا توجد صورة مطابقة لرقم الجلوس", vbExclamation, "خطأ"
    Err.Clear
End If
On Error GoTo 0

End Sub

 

[ahmed draz]

السلام عليكم ورحمة الله

شكرا جزيلا الكريم ابو جودي احسنت  فاجابتك صحيحة 

وشكرا جزيلا لاختنا الكريمة safaa 

لاهتمامها بالموضوع ومحاولتها الرد على طلبي

فجزاكم الله خيرا جميعا.