- 3D nyomtatással csökkentené a kijelző gyűrődését az Apple iPhone Foldnál
- Youtube Android alkalmazás alternatívák reklámszűréssel / videók letöltése
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Azonnali mobilos kérdések órája
- Akciófigyelő: Kedvezményes Poco telefonokkal is várhatók a locsolók
- Xiaomi 11 Lite 5G NE (lisa)
- Motorola Edge 50 Fusion - jó fogás
- iPhone topik
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy A52s 5G - jó S-tehetség
-
Mobilarena

Ú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
● olvasd el a téma összefoglalót!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Projektor topic
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Meggyi001: Áram nélkül....méltóság nélkül.....
- Kerékpárosok, bringások ide!
- 50 év után kilőtt négy űrhajós a Holdra
- Épített vízhűtés (nem kompakt) topic
- E-roller topik
- Crimson Desert
- Dell notebook topic
- További aktív témák...
- Dell Optiplex/Precision MT/SFF 3430, 3050, 3060, 3070, 5060, 5070, 7070, 7060/7.-8.-9.gen/SZÁMLA-GAR
- ÚJ AKCIÓS HP EliteBook 6 G1a Ryzen 5 PRO 230 16GB DDR5 512GB FHD+ 16:10 már jobbik kijelző, gar 2028
- Eladó Xiaomi Redmi Note 13 Pro 5G 8/256GB / 12 hónap jótállás
- Sony PS3/PS4/PS5 és kézikonzolok Okosítása és Szoftveres szintű javítása - MÁR 13.00-S PS4 IS!
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600X / GTX 1080Ti 11GB / 16GB DDR4 / 512 Nvme SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



