- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Tonnara di Scopello
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- crok: Android ADB, TWRP, ROM, GApps, MicroG, Shizuku, APK és egyéb segédeszközök
- Meggyi001: Áram nélkül....méltóság nélkül.....
- sziku69: Szólánc.
Új hozzászólás Aktív témák
-
-
-
Oly
őstag
Sziasztok
Private Sub Command21_Click()
If Lista12.Value > 0 Then
On Error GoTo Err_Command21_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "data Lekérdezés"
stLinkCriteria = "[BillDay]=" & "#" & Me![Lista12] & "#"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command21_Click:
Exit Sub
Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click
Else
MsgBox "Válassz dátumot!"
End If
End SubA fenti kódra Syntax errort kapok.
Az lehet azért, mert a mező dátum formátumú, a Lista elem pedig 2010.10.10.-es formátumbad adja vissza az értéket?
Szám formátumú mezőkkel simán működik a dolog. -
Oly
őstag
Megtaláltam...
Function AZjog()
Dim rst As Recordset, dbs As Database, LUser As String, TUser As String, nev As String, jogsi As Long
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("users")
r = rst.RecordCount
rst.MoveFirst
For x = 1 To r
LUser = "Admin"
TUser = rst("login_name")
If LUser = TUser Then
AZjog = rst("jogID")
nev = rst("user_name")
GoTo Vege
End If
rst.MoveNext
Next x
Vege:
MsgBox "Szia " & nev & "! Jogosultság: " & AZjog
End FunctionCsináltam egy ilyen fgv-t és csak erre kell hivatkoznom minden lekérdezésnél...
-
Oly
őstag
-
Hali!
"Ha tudnám, hogy merre induljak..."
Egyenlőre kézifék, semerre se indulj.
Az adatbázis-kezelés legalapvetőbb és egyik legfontosabb része, az adatbázist alkotó táblák megtervezése és létrehozása. Rosszul, az adatbázis-kezelés szabályainak ellentmondó táblák/kapcsolatok/függőségek stb esetén nem szabad továbbmenni, mert onnantól csak a szívás lesz...
Az általad kialakított adatbázis alapjaiban rossz, ezen változtatni kell. Sajnos arra nincs időm, hogy minden elmagyarázzak, mert lehetetlen. No...Ami hiba és javítsd: év/hónap/nap nem 3 mezőbe kerüljön, hanem 1 dátum típusúba.
2 user táblád van, ugyanolyan mezőkkel, na ez nem játszik. valamiért 2 usert használsz, mert pl más típusúak, de ehhez nem kell két azonos felépítésű tábla. Egy users tábla legyen és egy plusz mező, ami azt a típust jelöli, amiért eddig két táblát használtál.Elsőre ennyi...
Fire.
-
cellpeti
nagyúr
Keresd Fire/Soul/CD-t!
-
Hali!
Magával az Access-el nem lehet.
Ez egy hiba a program/adatbázis készítőjétől(főnököd egy vadegér
), hisz az eredeti kódot mentette így el. Normál esetben az embernek meg van a módosítható változat is, mert utólag lehet változtatni a dolgokon és persze le lehet gyártani az accde fájlt is akárhányszor belőle.Ha van is ilyen szoftver, annak valamilyen decompiler-nek kellene hogy legyen, mert egy "gépi kódot" kellene visszafejteni forráskóddá. Ilyenről nem tudok, pontosabban régebben volt MDE->MDB decompiler...(az MDE-t váltotta fel az accde) [link]
Fire.
-
Hali!
Hát ha ezt a képet hamarabb beraktad volna, meg az egysoros hibaleírást, akkor nem kellett volna felesleges köröket futni...
Amiről tudok, és 100%-ban ezt a jelenséget okozza(mert hogy ez NEM hiba), az az, hogy a project ún. accde fájlként van mentve, ilyenkor felejtős történet a kód megtekintése/módosítása.
Beszéljen helyettem inkább az Access súgó ezzel kapcsolatban, elég egyértelmű azt hiszem.
"Ha a Microsoft Office Access-adatbázis Visual Basic for Applications- (VBA-) kódot tartalmaz, akkor az adatbázis .accde fájlformátumban való mentésével rejtetté teheti a kódot. Az adatbázis .accde fájlként történő mentésekor az Access lefordítja a VBA-kódmodulokat, eltávolít minden szerkeszthető forráskódot, majd tömöríti a végső adatbázist. A VBA-kód által nyújtott funkciók megmaradnak, de a kód nem látható és nem szerkeszthető. Az adatbázis továbbra is a megszokott módon működik, tehát az adatok frissíthetők, a jelentések pedig futtathatók."
Más "okról" sajnos nincs tudomásom...
Fire.
-
Hali!
Új rendszer okozhatja, de elméletileg elég egyszerűen megoldható. Ellenőrizd ezeket.
1. ITT a Lock project for viewing előtt NEM lehet pipa. Ha van, akkor jelszóval is védve van.
(ALT+F11/Tools/<ADATBÁZIS NEVE> Properties/Protection fül)2. ITT pedig ha van digitális tanúsítvány, akkor az ellenőrizhető. Ha van, akkor el kell távolítani. Ezután kilépni a VBA Editorbó és az Accessből is, majd újraindítani és újra megnyitni az adott adatbázist.
(ALT+F11/Tools/Digital Signature)Azért ha meg is oldódott a probléma ezzel, azért írj.
Fire.
-
Hali!
Még valami, ami okozhatja ezt a "jelenséget". Szóval ha különböző verziójú az Access.
Azaz a főnököd 2000-ben készítette és Te meg 2003/2007-ben néznéd meg, vagy konvertálva lett az adatbázis formátum, akkor a Digitális aláírás miatt jelentkezik ez a hiba , bár ilyenkor valóban nincs jelszóval védve a VBA project. Lehet, hogy a főnöködnél automatikusan digitális tanúsítvánnyal látja el a projectet.
Adatok védelme
Project Is UnviewableMás lehetőségről nem tudok sajnos, remélem ezek az infók segítenek...
Fire.
-
-
Hali!
Nyílván nem te készítetted azt a projectet, a készítője pedig letiltotta jelszóval, hogy belenézhess a VBA forráskódba.
[link]Ha ez meg esetleg egy tutorial, amit arra szántak hogy megnézhesd, akkor ahonnan leszedted, ott valahol a jelszónak is ott kellene lennie.
Fire.
Új hozzászólás Aktív témák
Hirdetés
- Újszerű Apple MacBook Air 13 M2 (2022) 8GB/256GB - 61 Ciklus - 91% akku - MAGYAR
- AKCIÓ! Sony PlayStation 5 825GB SSD lemezes konzol fejhallgatóval garanciával hibátlan működés
- HP EliteBook 840 G7 i5-10210U 16GB 256GB FHD 400nit 1 év garancia
- Apple iPhone 17 Pro 512GB & 1TB Bontatlan Független Összes Szín / 27% áfás ár
- 27% - MSI RX 6650 XT GAMING X 8GB GDDR6 Videokártya!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


