Hirdetés
- OnePlus 15 - van plusz energia
- Fotók, videók mobillal
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Okosóra és okoskiegészítő topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Rugalmas OLED panelre válthat a Samsung Galaxy A57
- Samsung Galaxy A56 - megbízható középszerűség
- Honor Magic6 Pro - kör közepén számok
- Aranyozott különkiadást kapott a Red Magic 11 Pro+
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
-
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!
- OnePlus 15 - van plusz energia
- Amazon
- Fotók, videók mobillal
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Laptop árazás segítség - msi cyborg 15 a13vf
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Automata kávégépek
- Kínai és egyéb olcsó órák topikja
- Alkoholista nevelde
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- További aktív témák...
- Vállalom telefonok,tabletek javítását ,(szoftveres hibát is,frp lock-ot is)márkától fügetlenűl
- BESZÁMÍTÁS! GIGABYTE A520M R5 5500 16GB DDR4 512GB SSD GTX 1070 8GB Zalman T3 Plus DeepCool 400W
- KIÁRUSÍTÁS - HP Elite / ZBook Thunderbolt 3 Dock (akár 2x4K felbontás)
- GYÖNYÖRŰ iPhone 12 Mini 128GB Purple-1 ÉV GARANCIA - Kártyafüggetlen, MS3630
- BESZÁMÍTÁS! ASRock X870 R9 7950X3D 32GB DDR5 1TB SSD RTX 4090 24GB Be quiet Pure Base 501 LX white
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest




