Tjeck af indholdet i en streng, Valutafelt

if 258934 = int(text1.text)    -prøv

ellers kan du bare gøre sådan at kun numerics og comma og dot kan komme i box\'en

Øhh, det forstår jeg ikke helt.

Hvordan løser det problemet med at min streng må indeholde tal, og punktum´er og komma´er, men ikke alle andre tegn

Kan man definere, at man kun kan skrive numerics, comma og dot i et tekstfelt

ok.........lige et sec

Private Sub Text1_KeyPress(KeyAscii As Integer)
\'De tilladte char i text1 box\'en
Const Numbers$ = \"0123456789,.\"

If KeyAscii <> 9 And KeyAscii <> 32 And KeyAscii <> 8 Then
  If InStr(Numbers, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
      MsgBox \"Only Numeric Characters and xxx Characters are allowed.\"
  End If
End If
End Sub

du kan bare fjerne msgbox\'en, så sker der ikke noget hvis man skriver andre char end dem i Const Numbers$

Det ser lovende ud. Det prøver jeg lige

jeg har lige testet det......ser ud til at virke


du kan bare køre fingrene over alle tasterne :_>

Vi har et dynamisk antal tekstfelter, og vi ved ikke fra gang til gang, hvilket et af felterne som er et valutafelt.

Kan man ikke anvende denne sætning:

If InStr(Numbers, ?????????) Then

og på en eller anden måde spørge om tekstens elementer en efter en er indeholdt i Numbers, og hvis man møder et element i strengen, som ikke er med i numbers, så generere en msgbox eller lign.
   
     

du må da vide på en eller anden måde hvaforn felt(er), som er numeric...

så kan du bare ændre lidt i den kode jeg ga\' dig og skrive at den skal checke hvis det er et valutafelt.

ellers send projectet i en zip/rar/whatever til postal@briefcase.com

Prøv at kalde denne funktion i din tekst boks KeyPress function

Public Sub OnlyNumber(ByRef KeyAscii As Integer, Optional OnlyInt As Boolean = True, Optional AllowScientificNotation As Boolean = False, Optional AllowSign As Boolean = False, Optional AdditionalAllows As Variant)
 
  Select Case KeyAscii
    Case Asc(\"-\")
      If (AllowSign) Then Exit Sub
    Case Asc(\"+\"), vbKeyE
      If (AllowScientificNotation) Then Exit Sub
    Case vbKeyBack
      Exit Sub
    Case Else
      Dim i As Integer
      If (Not IsMissing(AdditionalAllows) And Not IsEmpty(AdditionalAllows)) Then
        For i = 0 To UBound(AdditionalAllows)
          If (KeyAscii = Asc(AdditionalAllows(i))) Then
            Exit Sub
          End If
        Next
      End If
  End Select
 
  If (Not OnlyInt) Then
    If (KeyAscii = Asc(\".\") Or KeyAscii = Asc(\",\")) Then
      If (CDbl(\"1\" + Chr(KeyAscii) + \"2\") = 1.2) Then
        Exit Sub
      End If
    End If
  End If
 
  If (KeyAscii < Asc(\"0\") Or KeyAscii > Asc(\"9\")) Then
    KeyAscii = 0
  End If
End Sub

Prøv at skriv OnlyNumber KeyAscii

Voila! Så er det kun muligt at skrive hele tal!

Skrive OnlyNumber KeyAscii, False

Voila! Det er nu muligt at skrive komma tal. Punktum eller komma afhængigt af hvad maskinen er sat op til!

//Nolle_K

Er det sådan her du mener med KeyAscii,False nolle k:

Public Sub OnlyNumber(ByRef KeyAscii As Integer, Optional OnlyInt As Boolean = True)

for at skrive kommatal?

Nej!!

Kopier hele funktionen i mit første svar!

Og skriv så i

Privcate Sub txt_KeyPress(KeyAscii as Integer)
  OnlyNumber KeyAscii, False
end sub

Ahhhh, ok

Det er sku´ fornemt. Tak for hjælpen nolle k

I orden!!! Fornøjelsen er HELT på min side!!