Informatika és tudomány

Visual Basic Programozás, segítsetek nekem
  • zegner
    #132
    akkor próbálkozz vmi ilyesmivel. azért nem tudtad a focus-t birizgálni mert te a kilépésre programoztad az egészet és miután kilép már nem nagyon fókuszál semmire ezért gondoltam h ha nincs hiba akkor lépsz ki.


    Dim hiba As Boolean


    Private Sub cikk_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    hiba = False
    wcikk = cikk.Value
    If cikk = 0 Then
    ElseIf cikk < 1000000000 Then
    hiba = True
    ElseIf cikk > 9999999999# And cikk < 1000000000000# Then
    hiba = True
    ElseIf cikk > 9999999999999# Then
    hiba = True
    End If
    End Sub


    Private Sub CommandButton1_Click()
    If hiba = True Then
    MsgBox ("Ez nem cikkszám")
    cikk.SetFocus
    cikk = ""
    Else
    End
    End If
    End Sub


    szerintem