Hirdetés
- Kormányok / autós szimulátorok topikja
- OLED monitor topic
- Mindenféle könyves (és olvasós) Off topic
- Apple MacBook
- Nem indul és mi a baja a gépemnek topik
- Az olcsó Macbook sokkolja a PC-ipart az ASUS társvezetője szerint
- AMD Navi Radeon™ RX 9xxx sorozat
- Gamepad
- Valami baja van a tápomnak
- Projektor topic
Ú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
- BESZÁMÍTÁS! Asrock B450M R5 5600 16GB DDR4 512GB SSD GTX 1080 8GB Zalman T3 Plus ADATA 600W
- HP EliteBook 640 G9 - i5-1235U 16GB 512GB 1 év garancia
- XPS 9320 27% 13.4" 3.5K OLED érintő i7-1260P 16GB 512GB NVMe ujjlolv IR kam gar
- Macbook Pro 16" M1 Pro 2021 - 10 GPU, 16 CPU, 16GB RAM, 1 TERA SSD - garancia (12)
- BESZÁMÍTÁS! Asrock B450M R5 4500 16GB DDR4 512GB SSD GTX 1660 Super 6GB Zalman T3 Plus DeepCool 400W
- Panasonic Toughbook CF-XZ6-1,12",QHD,2 az 1-ben, i5-7300U,8GB RAM,256GB SSD,WIN11
- Legjobb kijelzős!!! HP ZBook Power 15 G8 i7-11850H 32GB 512GB Nvidia RTX A2000 1 év garancia
- AKCIÓ! Apple iPhone 12 Mini 64GB mobiltelefon garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A16, Samsung Galaxy A26, Samsung Galaxy A36, Samsung Galaxy A56
- HIBÁTLAN iPhone 12 mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3818
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


