/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Data i Textbox.
Fra :
pjl
Dato :
25-01-02 20:24
Hej.
Min form indeholder 10 Textboxe(index)
Textbox(index) sættes = data (fra en stregkodescanner).
Datastrengen kan være mellem 5 og 6 charakterer lang og indeholder bogstaver
og tal.
(eks. "DR001" "KL123")
Når første Textbox har fået data, chekkes på stringen og derefter søges
værdien i en database.
Hvis ok springer cursor til næste felt (if ok (checkfunktion) then
Textbox(index+1).setfocus
Jeg har 2 spørgsmål..
1. Hvordan chekker jeg datastrengen, som jo kan være enten 5 eller 6
karakterer lang!
2 Hvordan sikrer jeg mig at jeg ikke har dobbel records (Textboxdata) når
alle Textbox har fået data. ?
mvh pjl
Michael Møltorp (
29-01-2002
)
Kommentar
Fra :
Michael Møltorp
Dato :
29-01-02 17:58
Hej pjl
Til dit første spørgsmål:
Hvad mener du med at tjekke datastrengen? Mener du at tjekke om den er 5
eller 6 karakterer lang? I så tilfælde kan du bare bruge
--------------------------------
variabel = len(textbox1.text)
--------------------------------
udfra variblen kan du så se hvor lang strengen er.
Til dit andet spørgsmål:
Mener du at du vil tjekke at der ikke er nogen textboxe der indeholder de
samme data? Hvis det er tilfældet kan du bruge noget der ligner:
----------------------
Dim Match As Boolean
Dim Ok As Boolean
Private Sub Command1_Click()
Match = False
Ok = False
For t = 0 To 8
y = t + 1
For x = y To 9
If Text1(t).Text = Text1(x).Text Then
Match = True
Ok = True
MsgBox "Textbox " & t & " Textbox " & x & " er ens"
Else
Match = False
End If
Next x
Next t
If Ok = False Then
MsgBox "Ingen match fundet"
End If
End Sub
Private Sub Form_Load()
Match = False
End Sub
---------------------------------
Med venlig hilsen
Michael Møltorp
"pjl" <fam.juul@larsen.dk> wrote in message
news:<a2sbqs$1qe5$1@news.cybercity.dk>...
> Hej.
>
> Min form indeholder 10 Textboxe(index)
> Textbox(index) sættes = data (fra en stregkodescanner).
> Datastrengen kan være mellem 5 og 6 charakterer lang og indeholder
bogstaver
> og tal.
> (eks. "DR001" "KL123")
> Når første Textbox har fået data, chekkes på stringen og derefter søges
> værdien i en database.
> Hvis ok springer cursor til næste felt (if ok (checkfunktion) then
> Textbox(index+1).setfocus
>
> Jeg har 2 spørgsmål..
>
> 1. Hvordan chekker jeg datastrengen, som jo kan være enten 5 eller 6
> karakterer lang!
> 2 Hvordan sikrer jeg mig at jeg ikke har dobbel records (Textboxdata) når
> alle Textbox har fået data. ?
>
>
> mvh pjl
>
>
"pjl" <fam.juul@larsen.dk> wrote in message
news:a2sbqs$1qe5$1@news.cybercity.dk...
> Hej.
>
> Min form indeholder 10 Textboxe(index)
> Textbox(index) sættes = data (fra en stregkodescanner).
> Datastrengen kan være mellem 5 og 6 charakterer lang og indeholder
bogstaver
> og tal.
> (eks. "DR001" "KL123")
> Når første Textbox har fået data, chekkes på stringen og derefter søges
> værdien i en database.
> Hvis ok springer cursor til næste felt (if ok (checkfunktion) then
> Textbox(index+1).setfocus
>
> Jeg har 2 spørgsmål..
>
> 1. Hvordan chekker jeg datastrengen, som jo kan være enten 5 eller 6
> karakterer lang!
> 2 Hvordan sikrer jeg mig at jeg ikke har dobbel records (Textboxdata) når
> alle Textbox har fået data. ?
>
>
> mvh pjl
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408926
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.