- Xiaomi 15T - reakció nélkül nincs egyensúly
- Hivatalos a OnePlus 13 startdátuma
- Végre hivatalos, mikor lesz az S26 hivatalos
- Reklámok kikapcsolása Xiaomi, Redmi és Poco telefonokon
- Beletenyerelnek a memóriaárak a mobileladásokba
- Vivo X300 - kicsiben jobban megéri
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- A világ aktív okostelefonjainak negyede iPhone, ötöde Galaxy
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Honor 200 Pro - mobilportré
-
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!
- Windows 11
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Mibe tegyem a megtakarításaimat?
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Hivatalos a OnePlus 13 startdátuma
- Melyik tápegységet vegyem?
- SSD kibeszélő
- TCL LCD és LED TV-k
- Vírusirtó topic
- További aktív témák...
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- iPhone 11 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4346, 100% Akksi
- ÚJ 20 méteres LED szalag adapterrel és távirányítóval eladó
- Lenovo Legion laptop 15.6 / i5-9300HF/8GB/1TB HDD + 512GB SSD!
- BESZÁMÍTÁS! GIGABYTE Z370 i7 8700K 16GB DDR4 512GB SSD RTX 2060 Super 8GB Zalman S2 TG CM 650W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs




