Hirdetés
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Milyen okostelefont vegyek?
- iPhone topik
- iPhone Ultra néven jöhet az Apple első foldja, nem lesz olcsó mulatság
- Xiaomi 15T Pro - a téma nincs lezárva
- Honor 200 Pro - mobilportré
- Xiaomi 13 Pro - szerencsés szám
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Akciófigyelő: 25 000 forintos ajándék jár a Xiaomi Pad 8 tabletek mellé
- Samsung Galaxy A36 5G - a középső testvér
-
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!
- Magyar kiosztású Apple Magic Keyboard 2, Touch ID, teljes méretű
- Új Mac Studio M4 Max 2025 14C CPU /32C GPU / 36GB RAM / 512GB - 1 ÉV APPLE GARANCIA
- 2026 MacBook Air / MacBook Pro / M5 - M5 Pro - M5 MAX 14" / 16"
- Asus 15.6,core i3 8145U(4x3,9Ghz)IntelUHD VGA,MAGYAR Vil.bill.,8-20GB RAM,SSD+HDD?,,Win.11
- LG UltraGear 27GS85Q-B NanoIPS/2K/200HZ (068)
- Apple 20W USB-C gyári hálózati adapter (md3j4zm/a)
- GYÖNYÖRŰ iPhone 13 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4681
- DELL Alienware 16X Aurora Intel Core Ultra 7 / RTX 5060 Csillagközi indigó 2029-ig garancia
- Samsung Galaxy A16 / 4/128GB / Kártyafüggetlen / 12HÓ Garancia
- Creative Sound BlasterX G6 7.1 USB külső hangkártya
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



