Hirdetés
- Android alkalmazások - szoftver kibeszélő topik
- Okosóra és okoskiegészítő topik
- Huawei Watch GT 5 Pro - egészség + stílus
- One mobilszolgáltatások
- Milyen okostelefont vegyek?
- iPhone topik
- Honor Magic 8 Pro Air a neve, január 19-én mutatják be
- Honor Magic6 Pro - kör közepén számok
- Áprilisban már szaggathatja a kínai aszfaltot a Xiaomi SU7 új verziója
- Google Pixel topik
-
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!
- Konteó topic
- Home server / házi szerver építése
- PlayStation 5
- Debrecen és környéke adok-veszek-beszélgetek
- Autós topik látogatók beszélgetős, offolós topikja
- Gitáros topic
- exHWSW - Értünk mindenhez IS
- HiFi műszaki szemmel - sztereó hangrendszerek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Android alkalmazások - szoftver kibeszélő topik
- További aktív témák...
- Thinkpad T14s Gen2i 14" FHD IPS i7-1185G7 32GB 512GB NVMe ujjlolv IR kam gar
- Bomba ár! Lenovo ThinkBook 15 G2 - i5-1135G7 I 16GB I 512GB SSD I 15,6" FHD I Cam I W11 I Gari!
- Bomba ár! Dell Latitude 3520 - i5-1135G7 I 16GB I 256SSD I HDMI 15,6" FHD I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude 5420 - i5-1145G7 I 16GB I 256SSD I HDMI I 14" FHD I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude 5480 - i5-7GEN I 8GB I 128SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude 3520 - i5-1135G7 I 16GB I 256SSD I HDMI 15,6" FHD I Cam I W11 I Garancia!
- Apple iPhone 11 Pro Max 64GB,Átlagos,Adatkabel,12 hónap garanciával
- Fujitsu LIFEBOOK E449 i3-8130U 12GB 512GB 14" FHD 1 év garancia
- 175 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5070Ti (ELKELT)
- Bomba ár! Lenovo ThinkPad L480 - i5-8G I 16GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gar
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




