Hirdetés
- A kínai felsővezetés blokkolhatta Mark Zuckerberg óriási AI üzletét
- Papírnehezékként használható csúcs-GeForce-ot árul egy francia viszonteladó
- RISC-V alapokon nyugvó egykártyás gép(ek) a Banana Pi konyhájából
- Úttörő újításokat hozhat a shader modell 6.10
- Szélvészként hasít a Kingston nem gyenge kapacitású SSD-je
- Házimozi belépő szinten
- Fujifilm X
- Analóg-mechanikus hibrid billentyűzetekkel újít a Logitech
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen egeret válasszak?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 4K vs 8K – Megéri-e a 8K TV 2026-ban?
- Milyen billentyűzetet vegyek?
- Beolvad a Palitba a Galax a VGA-piac nehézségei miatt
- Milyen TV-t vegyek?
Új hozzászólás Aktív témák
-
Luxurka
tag
halihó! jaj de régen volt már access
Szóval csinálsz egy űrlapot és belrakosgatod a beviteli mezőidet,
de minden hivatkozás (kötetlen!) nélkül. Legyen ez egy szimpla beviteli mező.
Hivatkozási neve legyen: beviteli 1
Ezután save és ha okés akkor jöhet a VB editor ALT+F11
Elvileg a class objects-ek között megjelenik a Form_''Form neve''
Private Sub Parancsgomb4_Click()
Set dbs = CurrentDb '' Adatbázis beállítása, a jelenlegi
Set rst = dbs.OpenRecordset(''bla'') ''bla tábla beállítása
rst.AddNew ''Új rekord hozzáadása
rst![beviteli 1] = bevitelimezo1
rst![beviteli 2] = bevitelimezo2
rst.Update
End Sub
Aztán ezt az kis progit meghívod egy gombbal a formból, ha lefut, akkor felveszi
az adatokat, ha nem fut le, akkor nem csinál semmit
Ja, de a kizárásokat azt mindet NEKED kell beleprogramozni, de
szerintem megéri!
Na azért megirtam accessban is, de csak 2000-et találtam itthon és magyart, de vszinu müködik angolon is.
Elküldöm mindjárt
üdv
Lux!
Új hozzászólás Aktív témák
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó Redmi Note 12 4/128GB fekete / 12 hónap jótállás
- 264 - Lenovo ThinkBook 16 (G7 ARP) - AMD Ryzen 5 7535HS, no GPU
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2 év gari
- ADATA XPG SPECTRIX S40G 4TB M.2 PCIe (AS40G-4TT-C) (ELKELT)
- BESZÁMÍTÁS! Sapphire Pulse RX 6800 16GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


