Hirdetés
- Jelentősen meglazítja a gyeplőt a Windows 11 frissítéseknél a Microsoft
- Milyen TV-t vegyek?
- Vezeték nélküli fejhallgatók
- Milyen billentyűzetet vegyek?
- Egyre inkább szoftverrel segítene a Core CPU-k teljesítményén az Intel
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD Navi Radeon™ RX 9xxx sorozat
- Milyen monitort vegyek?
- Hisense LCD és LED TV-k
- Nem indul és mi a baja a gépemnek topik
-
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!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Jelentősen meglazítja a gyeplőt a Windows 11 frissítéseknél a Microsoft
- BestBuy topik
- Diablo IV
- PROHARDVER! feedback: bugok, problémák, ötletek
- Parfüm topik
- Samsung Galaxy Felhasználók OFF topicja
- Futás, futópályák
- Yettel topik
- Milyen autót vegyek?
- További aktív témák...
- Keresünk iPhone 12/ 12 Mini/ 12 Pro/12 Pro Max
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 9060XT 16GB GAMER PC termékbeszámítással
- ASUS TUF Gaming F16 Laptop! i7-14650HX / RTX 5060 / 16GB DDR5 / 1TB NVMe! BeszámítOK
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Bomba ár! Getac RX10 - Intel Core m5 I 8GB I 256SSD I 10,1" WUXGA Touch I Cam I W10 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



