Hirdetés
- Ilyen olcsó sem volt még egy Apple notebook
- Túl nagy alkatrészt vettél? Így kerülheted el a PC-építés legnagyobb hibáját
- MWC 2026: leégsz, ha nem figyelsz a TCL 15 ezer nites panelje előtt
- Második villámcsapás: teszteltük a ROG Raikiri II Xbox kontrollert
- 100 TB-os HDD-k felé vezető alapot prezentált a Seagate
- TCL LCD és LED TV-k
- Ilyen olcsó sem volt még egy Apple notebook
- Kezdő fotósok digitális fényképei
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Projektor topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Nem indul és mi a baja a gépemnek topik
- DUNE médialejátszók topicja
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- Milyen egeret válasszak?
-
PROHARDVER!

Ú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!
- MWC 2026: Kezünkben a minden tekintetben európai okostelefon
- TCL LCD és LED TV-k
- Parkside szerszám kibeszélő
- Ilyen olcsó sem volt még egy Apple notebook
- Windows 10
- Kezdő fotósok digitális fényképei
- GL.iNet Flint 2 (GL-MT6000) router
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- MasterDeeJay: RAM gondolatok: Mennyi a minimum? DDR3 is jó?
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- További aktív témák...
- Újszerű HP EliteBook 640 G11 2028.12.Hó-ig Garis Ultra 5 135U 16GB DDR5 512GB SSD 9nap üzemidővel!
- ASUS Zenbook Flip UX360CA
- !AKCIÓ+GARI! GAMER PC Intel Core i5-14400F/ASUS TUF Gaming B760M/RTX 4070 12GB/32 GB DDR5 5200 MHz
- Új állapotú Samsung Galaxy S23 Ultra garanciával
- Kingston FURY Beast 16GB (2x8GB) DDR4-3600 CL17
- Apple iPad 5. generáció (A1822) 128GB, asztroszürke
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! 64GB G.Skill Trident Z Neo 3600Mhz DDR4 memória garanciával hibátlan működéssel
- Apple iPhone 6S/6S Plus szerviz alkatrészek, készletről akár másnapra!
- AKCIÓ! AMD Ryzen 9 7950X 16 mag 32 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



