Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.880 pregleda

Najnovija ↓

Unos decimalnog zareza iz forme u tabelu 14.10.2014. u 11:18 · pre 146 meseci #1
Podake u tabelu unosim preko forme i to isključivo sa numeričke tastature.
Pošto uneseni podatak treba i da preračuna rezultat u labelu kao broj to se pojavljuje greška zavisno od unosa dec.zareza sa numeričke ili tekstualne tastature.
Šaljem uprošten primjer.

Pozdrav
Re: Unos decimalnog zareza iz forme u tabelu 15.10.2014. u 16:52 · pre 146 meseci #2
Meni proradilo kada sam ispravno deklarisao promenljivu za očekivani tip podatka.

Code (vb):

Private Sub CommandButton1_Click()
Dim numInput As Double

    If IsNumeric(TextBox1.Value) _
        Then
            numInput = CDbl(TextBox1.Value)
        Else
            MsgBox "Unesite brojčanu vrijednost", , "Greška!"
            TextBox1.SetFocus
            Exit Sub
    End If

    ' TEST:

    Range("A2").Value = numInput

    Label2.Caption = numInput + 10
End Sub
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Re: Unos decimalnog zareza iz forme u tabelu 15.10.2014. u 20:29 · pre 146 meseci #3
Može se upotrijebiti maleni trik a to bi izgledalo:

.............
Code:

....................
numInput =TextBox1.Value*1
.................


pomnožiti sa jedan.............bez replace, find substitute i sličnih stvari
jednostavnije je razumljivije bez deklaracija varijabili, za početnike idealno, naravno i za one ostale
koji muku muče sa tim zarezom u formama
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme