Új hozzászólás Aktív témák

• #30861 Delila_1 veterán the radish #30860

  Új Válasz 2016-03-06 07:12:07 #30861

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz the radish #30860 üzenetére

  Private Sub TextBox1_AfterUpdate()
  Application.EnableEvents = False
  If Len(TextBox1) <> 11 Or Not IsNumeric(TextBox1) Then
  MsgBox "Hibás adószám", vbOKOnly + vbInformation
  Exit Sub
  Else
  TextBox1 = Format(TextBox1,"00000000-0-00")
  End If
  Application.EnableEvents = True
  End Sub

Új hozzászólás Aktív témák