Hirdetés
- Samsung Galaxy A52s 5G - jó S-tehetség
- iPhone topik
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- Poco F3 - a mindenes, de nem mindenkinek
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Vége a dalnak: leállt az iPhone Air gyártása
- Yettel topik
- Beárazták a Nubia Z80 Ultra európai verzióját
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Rossz hírek a Galaxy S26-ok teléjét illetően
Új hozzászólás Aktív témák
-
bepken
veterán
sziasztok!
a sokadik kezdő kérdésem lesz, szóval bocsi azoktól, akik korábban már nem egyet megválaszoltak más topic-ban

egy egyszerű programot szeretnék, ami tartalmaz:
- egy access adatbázist
- egy "azonFind" TextBox-ot, ahová beillesztve egy azonosító számot
- egy "btnFind" gombot, mely segítségével a TextBox-ba beírt azonosítószámot tudom kikeresni
- egy "btnSave" gombot, mellyel hozzá lehet adni az adott azonosítószámot, hogyha még nincs benne az adatbázisbanPublic Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Munka1TableAdapter.Fill(Me.AzonositoDataSet.Munka1)
End Sub
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
Me.Munka1BindingSource.Filter = "[Azonosítószám] = '" & Me.azonFind.Text & " ' "
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Me.Validate()
Me.Munka1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.AzonositoDataSet)
End Sub
End Classeddig meg is vagyok - bár valamiért az adatbázist nem mindig akarja módosítani.....

na de ezekhez az azonosítószámokhoz az adatbázisban tartozik egy checkbox is!
szeretném, ha a program ezek értékeinek megfelelően (true/false) meghatározott szöveget adna vissza.egyébként az ilyesmit Label segítségével szokás kiíratni? (tehát amikor nem MsgBox féle ablakot szeretnénk, hanem csak egy szöveg változót valahova)
remélem nem kérdeztem sok hülyeséget...

köszi erőre is a segítséget!
Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- Hobby elektronika
- Melyik tápegységet vegyem?
- World of Tanks - MMO
- Kerékpárosok, bringások ide!
- Black Friday november 29. / Cyber Monday december 2.
- Samsung Galaxy A52s 5G - jó S-tehetség
- iPhone topik
- Torrent meghívó kunyeráló
- AliExpress tapasztalatok
- További aktív témák...
- Steam Deck vadi új 512GB SSD-vel, 100% akku, Windows 11 Pro, tok, töltő, karcmentes, mint az új!
- Dell Latitude 9410 i7 / 16GB RAM / 512GB SSD 2in1 érintőkijelző Profi gép, kedvező áron!
- AKCIÓ! Dobozos új Lenovo Yoga Slim9 Laptop! / i7-1165G7 16 GB 1 TB SSD UHD IPS TOUCH Garancia
- Intel 12th gen. i5-12500 / B660M / 16GB DDR4 félkonfig
- Toshiba Survillance S300 Pro 8 TB megfigyelőrendszerekhez - 2 db
- LG OLED & OLED evo Televíziók: BLACK NOVEMBER -30%
- iKing.Hu - Honor 400 Pro Black Stílusos csúcsteló, nagy tárhely 12/512 GB,3 hónap gari!
- Bomba ár! Lenovo ThinkBook 13s-IML - i5-10210U I 8GB I 256SSD I 13,3" FHD I Cam I W11 I Gari!
- FELVÁSÁRLÁS A GYŐRÚJBARÁTI BOLTUNKBAN!
- Fém, összecsukható és kihúzható fotó állvány eladó
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



