Hirdetés
- Xiaomi 15 - kicsi telefon nagy energiával
- iPhone topik
- Azonnali mobilos kérdések órája
- Google Pixel topik
- Poco F8 Ultra – forrónaci
- Huawei Watch D2 - nyomás utána!
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Xiaomi 15T Pro - a téma nincs lezárva
- VoLTE/VoWiFi
- Redmi Note 15 4G? Van képünk hozzá!
-
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!
- Precision 3581 15.6" FHD IPS i7-13800H RTX A500 32GB 512GB NVMe ujjlolv gar
- Apple Watch SE (2024) Eladó
- Qnap TS-463U, 4 magos AMD CPU, 2x2TB WD Red, 8GB, 2x10GB sfp, 4x 1GB LAN
- Dji Goggles 3 garanciával/ Neo2, Neo, Avata2, Mini 4 Pro, Air3 / Dji Beszámitás lehetséges
- IPAD Mini 2 64GB Wifi+Cellular, Szép állapot, üzletből, garanciával
- Samsung UE50NU7022 125 cm / 50 4K UHD Smart TV 6 hó garancia Házhozszállítás
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3022, 100% Akksi
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3060, 100% Akkumulátor
- HIBÁTLAN iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3432
- TELJES KÖRŰ IT BESZERZÉS
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest




