Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- mefistofeles: A furcsa hobbi.....
- Kalandor: „Ha engedtem volna a lelkiismeretemnek, az üzlet kevésbé lett volna jövedelmező”
- Brogyi: CTEK akkumulátor töltő és másolatai
- SzDavid99: Van 20 perced? Akkor tanulj meg koreait olvasni!
- btz: Internet fejlesztés országosan!
- Mr Dini: Mindent a StreamSharkról!
- gban: Ingyen kellene, de tegnapra
-
LOGOUT
Ú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!
- ASUS routerek
- Xiaomi 14 Ultra - Leica hercegnő
- OLED TV topic
- Linux kezdőknek
- Felforgatná Kína a technológiai világrendet
- Elektromos autók - motorok
- Színhelyességre fókuszáló, menedzselhető monitorral jelentkezett a BenQ
- sziku69: Szólánc.
- Formula-1
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- AKCIÓ ÚJ Bontatlan Macbook Pro 14 M4 MAX 14 32GPU 36GB 1TB Magyar billentyűzet Azonnal átvehető Deák
- BONTATLAN Új Ipad 9th 10th 11 gen. Air 6 7 , Ipad Pro Mini 7 IPADEK Azonnal DEÁK Térnél Átvehető.
- BONTATLAN Új iPhone 17 PRO MAX 256-512GGB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Dell Precision 7740 Workstation 17,3", i9-9980HQ, 32GB, RTX3000 6GB
- Gamer PC - i5 14600k, RTX 3080 és 32gb RAM + GARANCIA
- Apple Mac mini M4 Pro 24GB RAM 512GB SSD 1 év garancia
- ÚJ ÁRU 09.25. !!! HP üzleti laptopok Elitebook, Probook, Zbook 8-13. gen gar.
- Új Asus Zenbook Pro Duo 14 OLED QHD 120Hz i7-12700H 16GB 1TB Nvidia RTX 3050Ti Studio Win11 Garancia
- BESZÁMÍTÁS! 0 perces Apple iPhone 16 Pro MAX 256GB okostelefon garanciával hibátlan működéssel
- Általános igazgatóhelyettes tábla üvegből eladó
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest