- Elektromos rásegítésű kerékpárok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: Asus Q170M-C coffeetime mod!
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
Új hozzászólás Aktív témák
-
jeges
senior tag
ilyet pl. dsum függvénnyel tudsz kódban csinálni.
az OK gomb megnyomásakor úgy generálod az ID-t, hogy az adatbázisban a dmax+1-gyel legyen egyenlő. ID=dmax(table.ID)+1
sajna ez sem tuti, de egy fokkal jobb a tapasztalatok szerint.
lehet esetleg olyan rendszert csinálni, hogy a usereket megjelölöd 1-től valamilyen range-et kiszakítva minden usernek (pl. 1 millió helyet adsz mindenkinek), majd megnézed, hogy az adott user mely ID-ket rögzítette, ezeknek veszed a maximumát (dmax), és ennél eggyel nagyobbat adsz a rekordnak. -
Gh0sT
addikt
''egyébként attól még, hogy az üzleti terület nem tudja, hogyan képződik a sorszám, attól még a program tudhatja.''
Az a baj, hogy nincs rá konkrét algoritmus. Illetve van, de rohadtul bonyolult.
Visszatérve a problémára: tegyünk fel egy abszurd példát. 1-50 között generálok véletleszámot (csak hogy érthető legyen a példa). Ilyenkor ugye egyre nagyobb a valószínűsége annak, hogy olyan szám lesz generálva, ami már foglalt. Azt kellene megoldanom, hogy ne legyen hibaüzenetem a tárolás gombra nyomva, hanem fusson le valami rutin (biztos van valami ellenőrzés, mert hibát azt kapok duplikációnál), ami ellenőrzi a meglévő kódokat és ha már létezőt talál, akkor generáljon újra kódot. -
jeges
senior tag
a többszörös azonosító nem rossz megoldás, és úgy látom, Te is ilyesmit használsz. ha jól értem, a probléma leginkább a konkurrens felhasználók miatt merül fel. én csak annyit mondtam, hogy amennyiben ''látható'', visszakereshető azonosítót akarsz adni az ügyeknek, úgy általában a szigorú sorszámozás a célravezető, de az nincs kikötve, hogy a sorszámozás nem történhet úgylet-típusonként, vagy még inkább felhasználónként...
egyébként attól még, hogy az üzleti terület nem tudja, hogyan képződik a sorszám, attól még a program tudhatja.
szerintem akkor lehet kavarodás a véletlen generálásból, ha nincs tisztességes archiválási rend. ha van, azaz ''rendes'' kereshető ID-vel nem rendelkező ügyletek kikerülnek az adatbázisból, úgy nem valószínű, hogy gond lenne. egyébként ellenőrizni nem nagyon kell, mer' ha duplikátum születne, az hazavágja a tranzakciót, rosszabb esetben az adatbázist is. -
Gh0sT
addikt
Nem kimondottan számvitelről lenne szó.
Szóval:
Az ügyleteknek adunk ugyan számot, de elég érdekesen. Adott az üzleti terület, ami felrögzíti az ügyletet és nem ad neki számot (egész egyszerűen azért, mert nem ismeri a számadás szintaktikáját). Az ügylet átkerül az elemzésre és itt kap egyedi azonosítót. Ergo az üzleti területen nincs mivel azonosítani az ügyletet, mert csak egy másik területen kap majd tényleges számot. Valahogyan azonban már a rögzítés pillanatában adnom kell neki valami azonosítót. Na erre használom én a véletlenszámos módszert. Sajnos nem tudok jobbat. -
Gh0sT
addikt
Én ezt úgy oldottam meg, hogy meghagytam az azonosítót számlálónak és a tábla tervező nézetében átállítottam véletlenszerűre az értékadást. Ezzel ugye szinte biztos, hogy egyedi értéket fogsz kapni mindig és nem fognak eltűnni az adatok.
Hátránya, hogy a user nem fogja ismerni az azonosítót. Ezért itt beraktam egy azonosító1 nevű mezőt, amit ő adhat meg és igazából semmilyen célt nem szolgál, csak keresni lehet rá. -
jeges
senior tag
nem teljesen értem: a számviteli bizonylatok általában sorszámozottak. ez nem feltétlen access-féle számlálót jelent, de azt jelenheti, hogy pl. egy típusú ügyletek emelkedő számsorrendben sorszámozottak.
a véletlenszám generálást nem szokás használni, már csak azért sem, mer' elegendően nagy számosság esetén már megfelelően nagy a duplikátumok valószínűsége.
miért lenne jó a véletlenszám?
#385: access 2005öt még csak távolról láttam
[Szerkesztve] -
Gh0sT
addikt
Tényleg, biztosan tudsz nekem ebben segíteni:
Adott egy üzleti terület, akik berögzítenek az adatbázisba egy ügyletet. Az ügylet azonosítójának generálása a háttérben történik. Tehát nem a user adja meg az azonosítót, hanem kódból kell legenerálni. Van erre valami tuti módszer, hogy ne legyen duplikáció és hibaüzenet?
Egyelőre annyit csináltam, hogy a mentés gombra klikkelve egy 0 és 10 millió közötti véletlenszámot generálok, és az lesz az azonosító. Jó esetben kicsi az esély arra, hogy kétszer ugyanaz a szám lenne az azonosító, de valahogyan lehet ezt csekkolni a mentés előtt? -
Gh0sT
addikt
Még egy fontos dolog!!!
Látom, hogy az azonosítást számlálóval oldod meg. Ha többen használjátok a táblát, akkor ez a megoldás hibát fog eredményezni. Ez akkor következik be, amikor egyszerre ketten is rögzítenek terméket és a számláló mindkét esetben ugyanazt az értéket kapná. Vagyis igazából nem kapja, de valamiért ilyenkor ketté válik az adatbázis. A felek nem fogják látni a másik által rögzített termékeket. -
jeges
senior tag
így van, de a váltógomb alatt azt a típust értem, amelyik ha benyomod, úgy is marad, ha meg kinyomod, akkor is úgy marad. a nem visszavehetőség, ha jól értem, egy másik tulajdonság, valamint a kiadottság feltétele. azaz akár ki van adva (kiadva=true), akár nem visszavehető (visszaveheto=false), le köll tiltani. oszt jónapot

a váltógomb ugyanúgy használható, mint a normál gomb, előnye, hogy forrástulajdonsága is van, azaz mint a checkbox, egy létező boolean változóra mutat rá. -
Gh0sT
addikt
A váltógombbal szerintem akkor lesz gond, ha mondjuk egy termék ki van adva és nem szeretnénk, hogy az visszavehető is legyen. Ilyenkor a radio buttonban le lehet titalni az egyik tagot? Igazából váltógombot még nem használtam soha.

Szerk.: jah, le lehet tiltani az egészet.
[Szerkesztve] -
jeges
senior tag
nekem nem egyértelmű: az a cél, hogy az űrlapon csak a kiadott vagy kiadható (azaz lefoglalt vagy nem lefoglalt) cikkek látszanak, vagy a foglalhatóság megteremtése? szellem kollega megoldása gyakorlatilag a lefoglalás műveletét oldja meg, ha jól értem, de most úgy tűnik, nem ez a feladat. (''ha le nem foglaltra nyomok, akkor is lefoglalja'')
ghost: én az ilyesmit esetleg váltógombbal szoktam csinálni, azon is egyértelműen látszik, mi az ábra. -
Gh0sT
addikt
Nem, nem gond.
Módosítod a kódot:
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec
If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
If foglalas.Value = False Then
MsgBox (''Az temék még nem lett lefoglalva'')
Ide kell beírni egy olyan kódot, ami letiltja a kivételezést. Ha ezt a kivételezés kapcsolóval csinálod, akkor csak ennyi:
kiadva.Enabled = False
End If
End If
End Sub
Szerk.: esetleg
kiadva.Visible = False
Bár szerintem elegánsabb egy olyan megoldás, hogy rejted a kapcsolót és beraksz a helyére egy parancsgombot (Parancsgombx) Kiadás felirattal.
Ennek a click eseményéhez hozzárendeled az alábbit:
If kiadva.Value = False then
kiadva.Value = True
Parancsgombx.Caption = ''A termék kiadva''
else
kiadva.Value = False
Parancsgombx.Caption = ''Termék kiadása''
End If
Fentebb pedig a Parancsgombx.Enabled tulajdonságát engedélyezed, vagy tiltod.
[Szerkesztve] -
Gh0sT
addikt
Megnéztem, egy gond van vele:
Az űrlap ugye egy SQL lekérdezésen alapul, amiben a foglalas-hoz az igaz érték van hozzárendelve (ergo csak azok a termékek jelennek meg, amelyek le vannak foglalva). Annyi a dolgod, hogy ezt a feltételt kiveszed.
Magyarán: keress most rá mondjuk a 14. termékre
Találat: nem lesz, mert alapból úgy hívod meg a lekérdezést, hogy kiszűröd a le nem foglalt termékeket.
Teendő:
Szerkeszted az űrlapot, tulajdonságok, adat, rekordforrás, ...
Bejön ugye a lekérdezés, amiben a foglalás mező alatt kitörlöd az Igaz feltételt.
Ennyi. -
sszever
őstag
Option Compare Database
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec
If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
If foglalas.Value = False Then
MsgBox (''Az temék még nem lett lefoglalva'')
End If
End If
End Sub
Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)
End Sub
Így? Mert nem csinálja
-
Gh0sT
addikt
Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec
If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
Szerintem itt jó lesz
End If
End Sub -
sszever
őstag
S melyik részébe kell beszúrni?
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec
If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
End If
End Sub
Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)
End Sub -
jeges
senior tag
a linkcriteria csak akkor köll, ha szűrni is akarod az űrlapot

ölég csak az openform parancs, pl. docmd.openform ''űrlap neve''
rebel: ha ''általában'' érdekel a dolog, javallom a help-et. sok jól használhat dolog van benne. én a macro-s megoldásokat nem szeretem, a modulban sokkal jobban paraméterezhetők a dolgok, és gyorsabb a végrehajtás is. -
jeges
senior tag
ha modulból akarod vezérelni (ami szerintem gyorsabb és ''tisztább''), akkor a szellem kollega által leírtaka próbáld, azaz
létrehozol egy lekérdezést, ami a kivánt rekord adatait hozza le (gondolom vmiféle paraméterezéssel)
létrehozol egy riportot, lehetőleg varázslóval, mer' úgy egyértelmű a dolog, a fontos az, hogy az előző lekérdezésen alapuljon (azaz a forrása az a lekérdezés legyen).
az űrlapra kiteszel egy parancsgombot, aminek a tulajdonságai közt a 3. fülön vannak az eseményvezérelt eljárások. létrehozol egy modult hozzá (azaz ''eseményvezérelt eljárás'' az onclick-re), és a modulba ezt írod:
if me.dirty then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport ''Jelentés neve'', acViewNormal
me.close
sajna itthon továbbra sincs access, úgyhogy csak fejből írtam, a domenuitem parancsra csak halványan emlékszem...lehet, hogy acrecordmenu, vagy csak acsave, de alapjában a fentiről van szó.
az openreport parancsot így is tudod paraméterezni, hogy csak az aktuális rekordra legyen szűrve az űrlapról, de ez most fejből nem fog menni...
-
rebel56
tag
Sziasztok! Lesz a következő hetekben még jópár kérdésem..
Most egy olyannal találkoztam, hogy leraktam egy parancsgombot, ami egy másik űrlap megnyitására szolgált volna, de ezt sehogysem tudtam beállítani vele, a kifejezésszerkesztővel próbálkoztam. (Varázslóval persze sikerült utána, csak érdekelne a technika anélkül is.) -
sszever
őstag
Megnézem

A vonalkód nyomtatásról még valamit: van egy komplett jelentés, ahol az összes bevitt (és nem törölt termék szerepel), ott is kighagy 1-2 esetben vonalkódot (minden más infó megvan).
Mivel ez jelenleg egy 30 napos teszt verzió, és mivel arra esély sincs, hogy a fenti lekérdezésben nem volt elég idő az infó mentéséhez és lekérdezéséhez, így gondolom ezt betuthatom a TRIAL verzió korlátozásának. ?? -
sszever
őstag
eggel ismét próbáltam nyomtatni vele, cimkenyomtatóval.
5-öt nyomtattam, 1 megint üresen jött ki. A logó rajta van, de a vágatazonosító és a vonalkód nincs
Mégiscsak megpróbálom azt a parancsot inkább -
jeges
senior tag
nem köll a lekérdezést meghívni, mer' - ahogy szellem kollega írta - a riport meghívja a lekérdezést.
egyébként emlékeim szerint a ''makro'' is az openreport parancsot használja, annak viszont van olyan paraméterezése is, ami nyomtat, nem pedig preview-t mutat (az acviewpreview helyett köll vmi más, talán acviewnormal).
a letárolásra kellene elég idő legyen, de ha attól tartasz, h nincs, akkor érdemes egy ''tárol'' gombot az űrlapra applikálni, ami ''csak'' elmenti az aktuális rekordot. esetleg megoldást jelenthet az egyetlen gombos megoldásnál (mentés, bezárás, riport nyomtatás egyszerre), ha váratsz egy kicsit (pár másodpercet) a nyomtatás parancs előtt - ezt makróból is meg lehet tenni (csak nincs itthon access telepítve, és fejből nem tudom, melyik parancs az sajna).
egyébként én első blikkre fordított sorrendben csinálnám kódban, azaz a) rekord mentése, b) riport nyomtatása (ill szebb, ha rákérdez a nyomtatásra előbb) c) űrlap bezárása. -
sszever
őstag
De mi van akkor, ha a beviteli úrlap bezárása
lekérdezés megnyitása
lekérdezés bezárása
jelentés nyomtatása lenne a sorrend?
Ez már elég időt biztosít? Vagy itt nem is az a gond, hogy nincs elég idő ezek végigfutására? -
sszever
őstag
Nem csúszik át semmi. Belefér minden az oldalra.
Ami gond lehet:
első sorban szerepel a ''bezárás'', majd a második sorban a nyomtatás (jelentés megnyitása, nézet: nyomtatás).
Amit nem tudok, hogy vajon ezt egyszerre futtatja e, vagy van közte egy kis idő. Ha van közte idő, az elég e ahhoz, hogy az adatokat az adatbázisban letárolja (ha nem elég, akkor is kellene nyomtatnia, legfeljebb az előző azonosítót, nem?) -
Gh0sT
addikt
Ha először letárolod az adatokat, majd utána meghívod a lekérdezésre alapuló jelentést és csak végül nyomtatsz, akkor nem lesz gond. Remélem...
Szerk.: A két üres lap hol helyezkedik el és miért üres? Fel vannak töltve rendesen a rekordok? Az oldalak nem csúsznak át a következő lapra?
[Szerkesztve] -
sszever
őstag
azt sem tudom mi fán terem! 
Nem láttam még kódot világ életemben, erre zavarba hozol ilyen kérdésekkel
Viszont megcsináltam most egy makróval:
Gomb megnyomására bezárja az bűrlapot, majd kinyomtatja a jelentést (Microsoft Office Document Image Writer-el, mert ugyancsak nyomtatóhiányban szenvedek jelenleg). Ez egész jól is néz ki. Mivel a nyomtatót elég lassan indítja el, így bőven jut rá idő, hogy az adatbázisban majd a lekérdezésben, és végül a jelentésben is megjelenjen a változás.
Kérdés: ez rendes nyomtató esetén is így lesz, vagy esetleg elképzelhető, hogy nem lesz rá elég idő, és az előző sorszámot nyomtatja ki? -
sszever
őstag
''Hoba történt az alkalmazás (Microsoft Office Access) és az OLE kiszolgáló vagy az ActiveX vezérlő közötti kommunikáció során.
*A kifejezés eredménye nem makrónév, felhasználó által definiált függvény vagy [Esemény vezérelt eljárás]
*Egy függvény, esemény vagy makró kiértékelése során hiba lépett fel.'' -
sszever
őstag
Ez nagyon jó!

Már csak egy gondom van:
bbeviteli mezőnél, beviszem az adatokat, majd megnyomom a ''bevitel jóváhagyása'' gombot. (Erre ugyebár bezárja a beviteli űrlapot) Ezek után a bevit adat megjelenik az adatbázisban. Ezután kellene a cimkének automatikusan kinyomtatódnia (jelentésből, a [link] modul segítségével).
Gondolom erre is valami script kellene, és gondolom, az megírható úgy, hogy a bevitel gomb megnyomására először elmenti az adatbázisba, majd utánna a jelentésből nyomtatja. Vagy helytelen a gondolatmenet? -
Gh0sT
addikt
Közben találtam egy elegánsabb megoldást:
Nincs szükség így a dátum rögzítésére sem.
Csinálsz egy új lekérdezést. Hozzáadod a táblákat, majd a táblából a megjeleníteni kívánt mezőt lehúzod a tervezőbe. Ezután fent az eszköztáron a szumma jelre klikkelsz. Megjelenik egy új feltétel a lekérdezésnél ''Összesítés'' címszóval. Itt kiválasztod a Last függvényt és kész is van.
SQL-ben valahogyan így néz ki:
SELECT Last(Tábla.Mező) AS Mezőnév
FROM Tábla;
Még egy fontos dolog!
A mező, amit lehúzol mindenképpen az Azonosító legyen, és ebben a lekérdezésben több mező nem szerepelhet!!!
Ha más adatokra is kíváncsi vagy, akkor kell készíteni egy másik lekérdezést, amit kapcsolni kell ehhez.
[Szerkesztve] -
sszever
őstag
Ugye!
Ugyanezt csináltam meg most én is. Most már csak arraa fránya gombra kell valahogy rávinni, hogy a jelentés első oldalát nyomtassa ki mindig, mikor megnyomom... (vagyis inkább úgy lenne jó, ha a bevitel gomb megnyomásakor a beviteli űrlp is lezárulna, de ugyanakkor a cimke is kijönne).
Mégsem vagyok annyira hülye ehhez?
-
Gh0sT
addikt
Egy ötlet: amikor terméket rögzítesz, akkor egy mezőbe letárolod a rögzítés dátumát a now() függvénnyel. Ezután csinálsz egy olyan lekérdezést, ami fordított sorrende rendezi a termékeket a rögzítés időpontja szerint. Ilyenkor a lekérdezés első eleme mindig az utoljára rögzített termék lesz. Erre kell majd hivatkozni.
-
sszever
őstag
Találtam egy beépülő modult acceshez, amely megoldja a vonalkód gondomat (megoldaná), csakhogy:
- csak jelentésbe tud vonalkódot generálni
Ez nem is lenne baj, ha meg tudnám oldani az alábbit:
beviszek egy új terméket, ami ugyebár bekerül az adatbázisba. De ehhez olyan lekérdezés kellene, amely mindig is az utoljára bevit terméket hozza csak ki (ugyebár ezt nyomtatnám matricára, termékenként külön - külön, jelentésből).
Ez vajon valahogy megoldható? -
Gh0sT
addikt
Még egy kis apróság, ami nálad hátrány lehet. Jelenleg a keresés nem jól működik, egy kis kozmetikázás után így szebb lesz:
Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec
If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
End If
End Sub
Ezzel nem fogsz visszakapni rossz találatokat, erről az acEntire tulajdonság gondoskodik. -
sszever
őstag
Köszönöm, megkaptam, és tutin működik!

Azt hogy lehet megoldani, hogy pl. van az adatbázisban az adatelérési lapok között a ''vagat szures'', ahol az anyagot csak le lehet foglalni, hogy a foglalás pipa be esetben ehhez az eseméynhez a ''foglalt'' lekérdezésben a foglalás dátumát is automatikusan hozzávegye? -
-
Gh0sT
addikt
The server you were trying to contact sent an invalid response
Possible reasons:
The server violates the HTTP/1.1 protocol
There's an interoperability problem between the server and this gateway
Possible solutions:
Contact your system administrator for assistance
Contact your Zorp support for assistance
Additional information:
Invalid headers received in response
--------------------------------------------------------------------------------
Page generated by Zorp on aule, version 3.0.8 on Tue May 23 10:25:34 CEST 2006.
Nevezd át jpg-re és küldd el a mail címemre! -
Gh0sT
addikt
Összedobtam egy példát: [link]
Nézd meg a mögötte lévő kódot, nem nagy szám:
Option Compare Database
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Parancsgomb22_Click()
Azonosito.SetFocus
DoCmd.FindRecord Szöveg23.Value, acAnywhere, False, acSearchAll, , acCurrent, True
End Sub
Még lehet finomítani, de ez már működik. A keresőmezőbe 1-5 között írhatsz értékeket. -
sszever
őstag
Form alatt gondolom űrlapra gondolsz, TextBox alatt pedig beviteli mezőre?
Bocs a hülye kérdéseket, Access-el még nem igazán foglalkoztam
azt is csak magyar nyelvűvel 
Több találat nem lehet, hisz az egyedi azonosítóból csak egy lehet!
Másik kérdésem, lehet tudsz ebben is segíteni:
rá lehet venni, hogy a ''beviteli űrlapon'' (ahol beviszik a terméket az adatbázisba) parancsgomb hatására csak az egyedi azonosítót nyomtassa egy címkére (esetleg vonalkóddal??)? -
Gh0sT
addikt
Egy formon a következő képpen tudod használni:
1. Szükség lesz egy TextBox-ra, amiben bekéred a keresendő azonosító egy részletét, vagy akár az egész stringet. (KERESO_MEZO)
2. Szükség lesz magára az AZONOSITO-ra szintén egy TextBox formájában.
3. Szükség lesz egy találati mezőre is. Mivel nem ismerem a példát, ezért ez legyen egyelőre a TERMÉK mező Textbox formájában. Ezzel igazából sok dolgod nem lesz, csak beszúrod a formra és automatikusan megjelennek benne a találatok. Ha szeretnél még egyéb mezőket hozzáadni, akkor hasonlóan kell eljárnod.
4. Beraksz még a formra egy Command buttont, aminek a Click eseményéhez hozzárendeled az alábbi kódot:
Private Sub Parancsgomb1_Click()
AZONOSITO.SetFocus
DoCmd.FindRecord KERESO_MEZO.Value, acAnywhere, False, acSearchAll, , acCurrent, True
End Sub
Ez akár kód töredékre is keresni fog és az első találatot jeleníti meg. Én szoktam még mellé egy másik Command buttont is beszúrni ''Következő'' felirattal, így végig tudok menni az egész adatbázison, ha esetleg több találat lenne.
Ennek a kódja:
Private Sub Parancsgomb2_Click()
On Error GoTo Err_Parancsgomb2_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Parancsgomb2.SetFocus
Exit_Parancsgomb2_Click:
Exit Sub
Err_Parancsgomb2_Click:
MsgBox Err.Description
Resume Exit_Parancsgomb2_Click
End Sub -
sszever
őstag
Sziasztok,
Kis segítségre lenne szükségem:
Va egy adatbázis, amely különböző termékeket tárol. Minden terméknek van egy egyedi azonosító kódja, és sok sok egyéb infó párosul még hozzá. (kb. 3-5000 termék).
Azt szeretném, ha az egyedi azonosítót beírom, és a gép nekem kiadná a többi infót az adott termékre. Ezt hogy tudom megoldani? (esetleg adatelérési lapon is megoldható lenne?) -
-
lordring
aktív tag
Hogy kicsit átláthatóbb legyen.

Az A táblázat rekordjaiban van cikkszám és ar mező.
A B táblázat rekordjaiban ia van cikkszám és ar mező.
Az A táblában az ar mezők jelenleg null értékűek. Azt szeretném, ha a B táblából az egyes cikkszamokhoz tartozó ar értékér áttenné az A tabla ugyanolyan cikkszámú rekordjának ar mezőjébe.
-
Gh0sT
addikt
válasz
lordring
#300
üzenetére
SELECT Raktar.Cikkszam, Leltar3.Beszerzes_ar
FROM Leltar3 INNER JOIN Raktar ON Leltar3.Cikkszam = Raktar.Cikkszam;
vagy
SELECT Raktar.Cikkszam, Sum(Leltar3.Beszerzes_ar) AS Összesen
FROM Leltar3 INNER JOIN Raktar ON Leltar3.Cikkszam = Raktar.Cikkszam
GROUP BY Raktar.Cikkszam;
Új hozzászólás Aktív témák
- Beleremegett Hollywood Brad Pitt és Tom Cruise AI harcába
- Vezeték nélküli fülhallgatók
- Projektor topic
- Könyvajánló
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Mazda topik
- Milyen alaplapot vegyek?
- Komplex intelligencia a Gemini 3.1 Pro fókuszában
- One otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy Felhasználók OFF topicja
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- Apple iPhone 13 128GB,Használt,Adatkabel,12 hónap garanciával
- LG 27GR95UM - 27" MiniLED - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 1000
- Keresünk iPhone 16/16 Plus/16e/16 Pro/16 Pro Max
- Keresünk iPhone 13/13 Mini/13 Pro/13 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Csak átneveztem Mégse-re 
Kevertem a radio buttonnal... 


Mégiscsak megpróbálom azt a parancsot inkább
Ez így nem jó 

