الرجاء المساعده فى تصحيح الخطا رساله NO Selection mode

[Mohamed 188]

السلام عليكم

عندما اختار اى عنصر من الكمبوكس لا تظهر فى الليست بوكس

Dim r As Integer
Sheets("Database").Activate
    If Me.LsAdAm.ListIndex = -1 Then
        MsgBox " No selection made"
    ElseIf Me.LsAdAm.ListIndex >= 0 Then
        r = Me.LsAdAm.ListIndex
        With Me
            .TxtBalance.Value = LsAdAm.List(r, 0)
            .TxtDeparture.Value = LsAdAm.List(r, 1)
            .TxtArrival.Value = LsAdAm.List(r, 2)
            .TxtRoomType.Value = LsAdAm.List(r, 3)
            .TxtRoomNo.Value = LsAdAm.List(r, 4)
            .TxtCompany.Value = LsAdAm.List(r, 5)
            .TxtGuestName.Value = LsAdAm.List(r, 6)
            .TxtFilio.Value = LsAdAm.List(r, 7)
            End With
            End If

            
            

End Sub

مرفق الملف

الرجاء المساعده

 

Book .xlsm

تم تعديل يوليو 19, 2020 بواسطه Mohamed 188