- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
- gban: Ingyen kellene, de tegnapra
- Gurulunk, WAZE?!
- VoidXs: Tényleg minden játék optimalizálatlan?
- Hieronymus: Három júniusi képem
- Magga: PLEX: multimédia az egész lakásban
Új hozzászólás Aktív témák
-
bepken
veterán
sziasztok!
a következő problémám volna:
teljesen elölről kezdtem a kis művemet, ezúttal külső adatbázisra hivatkozik és ez kellően meg is bonyolította számomra a dolgokat...így néz ki a kereső gomb click event:
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
'telefonszám szövegének formázása
txtTelNumber.Text = ""
txtTelNumber.Paste()
txtTelNumber.Text = Replace(txtTelNumber.Text, " ", "")
txtTelNumber.Text = Replace(txtTelNumber.Text, "/", "")
txtTelNumber.Text = Replace(txtTelNumber.Text, "(", "")
txtTelNumber.Text = Replace(txtTelNumber.Text, ")", "")
txtTelNumber.Text = Replace(txtTelNumber.Text, "-", "")
txtTelNumber.Text = Replace(txtTelNumber.Text, "+", "")
If txtTelNumber.TextLength > 7 Then
If txtTelNumber.Text.StartsWith("06") Then
txtTelNumber.Text = txtTelNumber.Text.Substring(2)
End If
If txtTelNumber.Text.StartsWith("36") Then
txtTelNumber.Text = txtTelNumber.Text.Substring(2)
End If
End If
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
dt = ds.Tables("tel")
If txtTelNumber.Text = ds.Tables("tel").Rows(index).Item("tel") Then
lbTelNum.Text = ds.Tables("tel").Rows(index).Item("tel")
Else
lbTelNum.Text = ""
End If
If lbTelNum.Text = "" Then
lbTelNum.Text = ""
lbExist.Text = ""
Else
Me.lbTelNum.Text = Me.lbTelNum.Text
Me.lbExist.Text = "Már létezik!"
End If
Next
End Suba cél továbbra is az volna, hogy a textbox-ba beírt számot keresse meg az access táblában, majd ha megtalálja, azt jelezze.
ez ugye most úgy néz ki, hogy ha a "txtTelNumber" mezőbe beírt szám benne van a táblában, annak értéke kerüljön át az "lbTelNum" mezőbe (és mellette az "lbExist" is írjon ki valamit) >> hogyha a "lbTelNum" üres, akkor egyszerűen nullázza ki ezt a két mezőt.
a gyakorlatban ez működik is, de csak az első érték beadásakor....ha jól sejtem, az lehet a gond, hogy a következő kattintáskor már nem fut le a ciklus.
próbáltam Else ágon újra beadni neki ugyanezt a ciklust, de csúnyán megakasztottam vele a gépet, úgyhogy valószínűnek tartom, hogy nem az lesz a megoldás...várom az ötleteket, véleményeket!
_____________________________________________________
szerk.:
cigam!a Form_Load részhez írd be:
KeyPreview = True
Új hozzászólás Aktív témák
- Milyen légkondit a lakásba?
- Debrecen és környéke adok-veszek-beszélgetek
- Apple iPhone 16 Pro - rutinvizsga
- Bemutatkozott a Poco X7 és X7 Pro
- S.T.A.L.K.E.R. 2: Heart of Chornobyl
- One otthoni szolgáltatások (TV, internet, telefon)
- Apple iPhone 13 Pro Max - őnagysága
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Hálózati kábelek és szerelésük
- Revolut
- További aktív témák...
- HP Spectre x360 Érintős Hajtogatós Laptop Tab 16" -60% i7-1360P 32/2TB Intel Arc A370M 4GB UHD OLED
- Szép! Lenovo Thinkpad T14s G2 Üzleti "Golyóálló" Laptop 14" -60% i5-1135G7 4Mag 16GB /512GB FHD IPS
- Samsung Q80T 55" QLED - 4K 120Hz VRR / FreeSync / HDMI 2.1
- ÚJ HP ENVY 17 Nagyképernyős "Kis Gamer" Laptop -45% 17,3" Brutál i7-13700H 16/1TB Iris Xe FHD IPS
- Legion Go 8APU1
- Magyarország piacvezető szoftver webáruháza
- Bomba Ár! Dell Latitude 3190 - Intel N4120 I 4GB I 64GB SSD I 11,6" HD I Cam I W11 I Garancia!
- Csere-Beszámítás! RGB Számítógép PC játékra! R5 5600X / RTX 3060Ti 8GB / 32GB DDR4 / 500GB SSD
- Apple iPhone 14 128Gb Kártyafüggetlen, 1Év Garanciával
- Csere-Beszámítás! RTX Számítógép PC Játékra! I3 10100F / RTX 2060 12GB / 32GB DDR4 / 500GB SSD
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest