Set UserForm - user form Show hata hk.

[pNouma]

Kıymetli hocalarım selamlar, saygılar

UserFoorm ' da aşağıdaki kod ile cbServiceType combobox değerine göre farklı user formların açılmasını istiyorum.
cbServiceType 'de yazan değeri ("BD", "TT","KDV") değerlerine, form adı "frmOrd... " şeklinde olan formları açmak için aşağıdaki kodu düzenledim ama

form.Show satırında hata verdi ,

bu konuda nasıl bir çözüm yolu önerebilirsiniz

desteğiniz için şimdiden teşekkür ederim.
iyi Akşamlar.

Private Sub Label27_Click()
Dim form As MSForms.UserForm
Dim servis As String
Dim idm As Long
Dim s As Byte


If cbServiceType = "" Then
    MsgBox "Servis Türünü Seçiniz..!!", vbExclamation, "UYARI!"
    Exit Sub
Else
    servis = cbServiceType
End If

idm = Me.LbID.caption


If servis = "BD" Then
    Set form = frmOrdBD
    s = 1
ElseIf servis = "TT" Then
    Set form = frmOrdTT
    s = 2
ElseIf servis = "KDV" Then
    Set form = frmOrdKDV
    s = 3
Else
    Exit Sub
End If


form.Controls("LbOrder").caption = idm

form.Show

End Sub
[code]

 

[RBozkurt]

Deneyiniz,

Private Sub Label27_Click()
    If cbServiceType.Value = "" Then
        MsgBox "Servis Türünü Seçiniz..!!", vbExclamation, "UYARI!"
        Exit Sub
    End If

    Select Case cbServiceType.Value
        Case "BD"
            frmOrdBD.Show
            'frmOrdBD.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case "TT"
            frmOrdTT.Show
            'frmOrdTT.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case "KDV"
            frmOrdKDV.Show
            'frmOrdKDV.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case Else
            MsgBox "Geçersiz seçim!", vbCritical, "Hata"
    End Select
End Sub

 

[pNouma]

Deneyiniz,

Private Sub Label27_Click()
    If cbServiceType.Value = "" Then
        MsgBox "Servis Türünü Seçiniz..!!", vbExclamation, "UYARI!"
        Exit Sub
    End If

    Select Case cbServiceType.Value
        Case "BD"
            frmOrdBD.Show
            'frmOrdBD.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case "TT"
            frmOrdTT.Show
            'frmOrdTT.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case "KDV"
            frmOrdKDV.Show
            'frmOrdKDV.Show vbModal 'Userformda hata verirse bu satırdaki gibi deneyiniz.
        Case Else
            MsgBox "Geçersiz seçim!", vbCritical, "Hata"
    End Select
End Sub

Yardımlarınız için çok Teşekkürler Hocam

 

[RBozkurt]

Yardımlarınız için çok Teşekkürler Hocam

Estf. kolay gelsin.