Av ngn konstig anledning blev jag avregistrerad och mitt inlägg försvann. Private Sub txtPh_KeyPress(KeyAscii As Integer)Intervall definition
Så jag testar igen.
-------------
Jag har skapat ett formulär(frmKemi) som innehåller två textboxar(txtPH & txtLuftTemp).
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...
/SweamerSv: Sven svarade ungefär så här....
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 13 Then 'Validera med Enter
If Val(txtPh) > 12 Or Val(txtPh) < 1 Then
MsgBox txtPh & " Felaktigt värde"
txtPh = ""
Else
txtPh = Round(txtPh, 2)
End If
End If
End Sub
Private Sub txtLuftTemp_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 13 Then 'Validera med Enter
If Val(txtLuftTemp) > 100 Or Val(txtLuftTemp) < -50 Then
MsgBox txtLuftTemp & " Felaktigt värde"
txtLuftTemp = ""
Else
txtLuftTemp = Round(txtLuftTemp, 1)
End If
End If
End Sub