VBA Userform format data

  1. 2 tahun lalu

    Hai para sepuh aku punya case lagi..
    Kan ada tabel GL Account Dimana inputan tersebut 2400000 dan 820000 lalu ada juga combobox
    Case nya bila inputan yabg masuk 24xxxxx maka combobox tersebut harus didisable , bila inputan yang selain 24xxxx maka combobox bisa dipakai
    Aku sudah code seperti
    If Left(Me.txtGL1.Text,2) = "24" then
    CbJC.Locked = false
    Tapi saat di jalanin ga bsa yah?
    Apa saya saya logikanya?

  2. Di sunting 2 tahun lalu oleh Fujiansyah92

    hmmp...terbalik bro

    coba ini

    If Left(Me.txtGL1.Text, 2) = "24" Then
    CBJC.Locked = True
    Else
    CBJC.Locked = False
    End If

    code lengkapnya terletak pada txtGL1_change ya :

    Private Sub txtGL1_Change()
    If Left(Me.txtGL1.Text, 2) = "24" Then
    CBJC.Locked = True
    Else
    CBJC.Locked = False
    End If
    End Sub

  3. Di sunting 2 tahun lalu oleh Petter Jo

    Owalah, didalam sub textbox tohh , terimakasih sepuh

  4. Sepuh kalo case nya
    Pc code nya dia diharuskan masuk inputan kayak 234A
    Itu gmna yah ?
    Kalo dia masukin AAAA salah 1234 juha salah harus format 123A ?
    Apa kah kyk
    Format(pccode, "###"A-Z)

  5. coba ini :

    Private Sub PCCode_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    '(KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Or KeyAscii = 8 : as alphabet
    '(KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 : as numeric
    'limit : 4 characters as many as "case" 
    Select Case Len(Me.PCCode.Text)
        Case 0
            If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Then
                KeyAscii = KeyAscii
            Else
                KeyAscii = 0
                MsgBox "Invalid key pressed"
            End If
        Case 1
            If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Then
                KeyAscii = KeyAscii
            Else
                KeyAscii = 0
                MsgBox "Invalid key pressed"
            End If
        Case 2
            If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Then
                KeyAscii = KeyAscii
            Else
                KeyAscii = 0
                MsgBox "Invalid key pressed"
            End If
        Case 3
            If (KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Or KeyAscii = 8 Then
                KeyAscii = KeyAscii
            Else
                KeyAscii = 0
                MsgBox "Invalid key pressed"
            End If
        Case 4
            MsgBox "Limit (4 characters) is reached"
            KeyAscii = 0
    End Select
    End Sub

    semoga membantu

  6. Mantap sepuhh bisa.. mantaps
    Terimakasih.

  7. sama sama bro

    noted please jangan panggil sepuh...
    kita kan sama sama belajar,ga ada kata sepuh disini :)

  8. Okee mas bro..
    Noted hehehe

 

atau Mendaftar untuk ikut berdiskusi!