Hirdetés
- potyautas: Vizsga
- gban: Ingyen kellene, de tegnapra
- Samus: Oldschool játékos konfig a memóriaválság idején
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- sziku69: Fűzzük össze a szavakat :)
- joghurt: Megtarthatod a jogsid?
- BerserkGuts: 9800X3D Hitvallás, Dogma megcáfolása egy RTX5080+12600K-val
- Klaus Duran: Panelkérdés.
-
LOGOUT

Új hozzászólás Aktív témák
-
bepken
veterán
sziasztok!
a VB topicban is feltettem már ezt a kérdést, ott nem kaptam választ. hát itt is próbálkoznék, hátha

a cél az volna, hogy az enter lenyomása után nyissa meg a táblát, ellenőrizze, hogy a beírt érték benne van e, majd ennek megfelelően jelezzen.
az első enter lenyomásakor még nincs gond, akkor a feltételnek megfelelően jár el. viszont itt be is ragad a dolog és írhatok neki bármit, az első érték marad.Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(e.KeyChar) = 13 Then
con.Open()
sql = "SELECT [tel] from tel"
da.Fill(ds, "tel")
con.Close()
For index = 0 To ds.Tables("tel").Rows.Count - 1
Dim dt As DataTable
Dim val As String
dt = ds.Tables("tel")
val = dt.Rows(index).Item("tel")
If val = txtTelNumber.Text Then
lbExist.Text = "Már létezik!"
Else
lbExist.Text = ""
End If
Next
End If
End Subegyszerűen nem tudok rájönni, hogy hogyan tudnám rávenni arra, hogy minden enter után újra ellenőrizze az (új) értéket...nincs ötletetek?
köszi előre is!
Új hozzászólás Aktív témák
Hirdetés
● olvasd el a téma összefoglalót!
- Eredeti játékok OFF topik
- Megjöttek Magyarországra a Redmi Note 15-ök, január 22-től ennyiért kaphatók
- Egér probléma
- Napelem
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Kerékpárosok, bringások ide!
- Elektromos autók - motorok
- GeForce RTX 5080-nak álcázott 5060-at kapott egy pórul járt vásárló
- Milyen autót vegyek?
- Samsung Galaxy A56 - megbízható középszerűség
- További aktív témák...
- újszerű iPhone 16 Pro Max 256GB white titanium fehér titán független Apple 2 év garancia ajándék tok
- szinte új 13 hüvelykes MacBook Air M4 512GB SSD midnight éjfekete Apple 3 év garancia
- új aktiválatlan Apple Watch SE 3 GPS 40mm csillagfény alumíniumtok Apple 1 év garancia
- újszerű iPhone Air 256GB sky blue égkék független Apple 1 év garancia
- szinte új Magic Keyboard 11 hüvelykes iPad Pro -hoz (M4 - M5) magyar fehér
- HIBÁTLAN iPhone 13 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4245, 100% Akksi
- HP EliteOne 800 G6 All-in-One i5-10500 16GB 512GB 24" Érintőkijelző!! 1 év garancia
- DDR4 Szerver RAM felvásárlás - napi árak, elsősorban nagy mennyiségben
- Okosóra felvásárlás!! Samsung Galaxy Watch 6, Samsung Galaxy Watch 7, Samsung Galaxy Watch Ultra
- HIBÁTLAN APPLE WATCH ULTRA 2 NATURAL TITANIUM 49MM -1 ÉV GARANCIA - MS3713, 100% AKKUMULÁTOR
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



