Tjena,

Jag har skapat ett formulär(frmKemi) som innehåller två textboxar(txtPH & txtTemp).

När formuläret laddas och man ska mata in PH så vill jag att man endast ska kunna mata in ett värde från 1-12 med två decimaler. Ex: 4,58

När man matar in temperaturen så ska man kunna mata in ett värde mellan -50°C och +100°C, med en decimal. Ex: 23,7

Kan man ha ett förinställt komma-tecken(,) i textboxarna när man laddar formuläret vore det Guld värt.

Kan någon komma med förslag/hjälp...

/Sweamer

Hej
Beträffande komma gör du så här.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44 '46 = punkt 44 = komma
End Sub

Återkommer ang de andra begränsningarna.


vh
Sven

Hej igen
Så här blir mitt förslag

Option Explicit
Private Sub txtPh_KeyPress(KeyAscii As Integer)
'Ph boxen
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 13 Then 'Validera med Enter
If Val(txtPh) > 12 Then
MsgBox txtPh & " Felaktigt värde"
txtPh = ""
Else
txtPh = Round(txtPh, 2)
End If
End If
End Sub

Private Sub txtTemp_KeyPress(KeyAscii As Integer)
'Temperatur boxen
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 13 Then 'Validera med Enter
If Val(txtTemp) > 100 Or Val(txtTemp) < -50 Then
MsgBox txtTemp & " Felaktigt värde"
txtTemp = ""
Else
txtTemp = Round(txtTemp, 1)
End If
End If
End Sub

mvh
Sven

Tack Sven...

...men jag undrar om man kan tillåta TextBoxen(txtPH) att endast innehålla ett komma(,)-tecken. I nuvarande fallet kan användaren mata in ex: 22,73,6...-->vilket medför att programmet kommer krascha!

Finns det inget annat objekt man skulle kunna använda sig av, typ något TextBox-liknande objekt, som innehåller pil-upp & pil-ner(scroll funk.) för att bestämma pH-värde med, medan komma tecken redan befinner sig i boxen.???

Kolla i Egenskaper för Datum och tid: i din Bildskärm(förmodligen längst ner i det högra hörnet på ditt skrivbord) och så ser du årtalet-boxen som man kan scrolla upp och ner i värde(2001-02-03...). Typ ett sådant objekt och sådan funktion skulle jag vilja ha.

Hoppas du förstod min formulering.

Tack!

Mvh / Sweamer

Hej igen
Angåend 22,73,6.. inmatning
Då får du göra så här

Private Sub txtPh_KeyPress(KeyAscii As Integer)
'Ph boxen
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 13 Then 'Validera med Enter
If Val(txtPh) > 12 Then
MsgBox txtPh & " Felaktigt värde"
txtPh = ""
Else
On Error GoTo Felvalue
txtPh = Round(txtPh, 2)
End If
End If
Okvalue:
Exit Sub
Felvalue:
MsgBox txtPh & " Felaktigt värde"
txtPh = ""
Resume Okvalue
End Sub

DS