Combobox tarih formatında "/" otomatik yazdırma

[deniz42]

merhaba arkadaşlar aşağıdaki kodda tarih yazarken tarih aralarına otomatik '.' nokta işareti getiriyor fakat ben bunu '/' slaş işareti koyduğumda olmuyor yardım edebilirmisiniz.

Private Sub ComboBox6_Change()
If Menu.ComboBox6 <> "" Then
If Len(ComboBox6) = 2 Then
ComboBox6 = Format(ComboBox6, "0#"".")
End If
If Len(ComboBox6) = 5 Then
ComboBox6 = Format(ComboBox6, "0#"".""##"".")
End If
If Len(ComboBox6) = 10 Then
ComboBox6 = Format(ComboBox6, "0#"".""##"".""####")
End If
End If
End Sub

 

[Ömer]

merhaba arkadaşlar aşağıdaki kodda tarih yazarken tarih aralarına otomatik '.' nokta işareti getiriyor fakat ben bunu '/' slaş işareti koyduğumda olmuyor yardım edebilirmisiniz.

Merhaba,

Bu şekilde deneyin.

Private Sub ComboBox6_Change()
 
    On Error GoTo son
    
    If Menu.ComboBox6 <> "" Then
        If Len(ComboBox6) = 2 Then
            ComboBox6 = Format(CDate(ComboBox6 & ".01.2012"), "dd\/")
        End If
        If Len(ComboBox6) = 5 Then
            ComboBox6 = Format(ComboBox6, "dd\/mm\/")
        End If
        If Len(ComboBox6) = 10 Then
            ComboBox6 = Format(ComboBox6, "dd\/mm\/yyyy")
        End If
    End If
    Exit Sub
son:
    MsgBox "Girilen Değer Tarih Değil"
 
End Sub

.