Hirdetés
- Sok pénz mellett az NVLink Fusiont is felkarolja a Marvell
- Mit rejt a telefonod? – A tranzisztorok elképesztő világa
- Fogyókúrával kínálnak több tányért a Toshiba új merevlemezei
- Kicsit visszafogottabban nyávog az Intel Wildcat Lake
- Gyorsabb processzort igen, memóriát alig kapott a Xiaomi új HD tévéokosítója
- NVIDIA® driverek topikja
- Apple MacBook
- Projektor topic
- Hivatalosan is elkezd védekezni az Intel csodafegyvere ellen az új Geekbench
- 5.1, 7.1 és gamer fejhallgatók
- Fejhallgató erősítő és DAC topik
- Milyen egeret válasszak?
- LG LCD és LED TV-k
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Windows 11: miért nem vált mindenki?
-
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!
- Fury 15 G8 15.6" FHD IPS i7-11850H RTX A2000 32GB 512GB NVMe magyar vbill ujjolv gar
- ZBook Firefly 14 G11 14" FHD+ IPS Ultra 7 155H RTX A500 32GB 1TB NVMe ujjlolv IR kam gar
- Garmin Epix Sapphire White Titanium (Gen2) - Bontatlan
- Gigabyte A16 CVH 15.6" FHD+ IPS i7-13620H RTX 5060 16GB 512GB NVMe IR kam gar
- Lenovo T15 G2 i7-1185G7 16Gb ram, 512Gb NVMe, 15,6", számla, 1 év garancia
- Apple iPhone 12 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- APPLE MacMini 7,1,i5-4278U,8GB RAM,1TB,macOS Monterey
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 Plus 256GB Red-1 ÉV GARANCIA - Kártyafüggetlen, MS4561, 100% AKKSI
- Beszámítás! Intel Core i7 4770K 4 mag 8 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



