Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
17.03.2002. Import htm dokumenta u Access
07.07.2003. Access baza 2000 sa Cirilicom ne radi ?
15.09.2003. VB, Access baza, sql.... pomoc
28.09.2004. Primjeri Access baza?
02.03.2004. Access baza i password...
22.03.2004. compact MS access from delphi
17.05.2006. Koja baza podataka za Delphi, za mrežu?
18.05.2004. Blokada Access baze
03.06.2004. Koji su nedostaci access baza?

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Access Baza Znanja

[es] :: Access :: Access Baza Znanja
(TOP topic, by Getsbi)
Strane: < .. 1 2 3 4 5

[ Pregleda: 93479 | Odgovora: 82 ] > FB > Twit

Autor

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Access Baza Znanja

^{08.02.2011. u 14:22 - pre 160 meseci}

Access 2007 podrzava Access security, ali ne postoji ikonica za pozivanje Security Wizarda. Evo kako moze da se pozove security wizard:

Subject: How to use the Workgroup Administrator utility in Access 2007
http://support.microsoft.com/kb/918583
• Press CTRL + G to open the Immediate window.
• Type the following line of code, and then press ENTER.
DoCmd.RunCommand acCmdWorkgroupAdministrator

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Pristup Excel fajlu koji je zasticen lozinkom

^{15.03.2011. u 14:53 - pre 159 meseci}

U temihttp://www.elitesecurity.org/t424953-0#2833075 SLOJ.1973 dao je lepe funkcije koje omogucuju da se zasticeni Excel fajl importuje ili linkuje na Access. Ima zanimljivih detalja u ovom problemu.

Funkcije su ovde:
Ako ti je potrebno samo da otvoriš zaštićeni excel fajl uradi sledeće:Napravi novi modul i u njega ubaci ovaj kod:

Code:
Public Sub OtvaraZasticeniFajl(strFile As String, _
strPassword As String)
Dim oExcel As Object, oWb As Object
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
Password:=strPassword)
oExcel.Visible = True
Set oExcel = Nothing
End Sub

.Zatim na click nekog komandnog dugmeta pozivaš proceduru:
Code:
OtvaraZasticeniFajl "C:\TvojZasticeniExcelFile.xls", "sifra"

Za linkovanje, ide ovo:

Code:
Public Sub OtvaraZasticeniFajl(strFile As String, _
strPassword As String)
Dim oExcel As Object, oWb As Object
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
Password:=strPassword)
DoCmd.TransferSpreadsheet acLink, _
acSpreadsheetTypeExcel9, "LinkTabela", strFile, -1
oWb.Close SaveChanges:=False
oExcel.Quit
Set oExcel = Nothing
End Sub

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

RTF (superscript i subscript)

^{28.10.2011. u 18:38 - pre 151 meseci}

Novi format ACCDB dozvoljava formatiranje u okviru jednog polja. Tip polja postavite na Memo, a zatim u listi osobina tog polja Text Format prebacite sa Plain Text na Rich Text:

Međutim, reč je osiromašenom RTF formatu koji npr. ne dozvoljava formatiranje karaktera kao eskponent (superscript), a RTF osobina polja postoji tek u verziji Accessa i baze 2007. Problem u potpunosti rešava Lebanova ActiveX RTF kontrola koja "u letu" konvertuje unos u RTF format (kako se zapisuje u bazu) i nazad iz RTF formata u formatiran prikaz teksta. Ujedno se takav tekst može sačuvati kao standardni, samostalni RFT fajl. Kontrolu preuzmite sa http://www.lebans.com/richtext.htm instalirajte je, a zatim pogledajte primer kako se implementira. Ona izgleda ovako:

Pozdrav,
Branislav

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Access Baza Znanja

^{23.12.2011. u 06:12 - pre 150 meseci}

Član FOX028 obradio je funkciju za pretvaranje arapskih brojeva u rimske preko VBA. Originalna tema se nalazi ovde: http://www.elitesecurity.org/t442831-Jedan-moj-mali-doprinos

Code:
Option Explicit
Function RimskiBrojevi(Broj As Integer)

If Broj > 3999 Then
    RimskiBrojevi = "Morate uneti broj manji od 4000!"
    Exit Function
End If

Dim RB As String
Dim i As Integer
Dim jd As Integer, de As Integer, st As Integer, hi As Integer
Dim rjd As String, rde As String, rst As String, rhi As String

Broj = Round(Broj, 0)
RB = ""

Select Case Broj
    Case 1 To 9
        jd = Broj
    Case 10 To 99
        jd = Val(Mid(Str(Broj), 3, 1))
        de = Val(Mid(Str(Broj), 2, 1))
    Case 100 To 999
        jd = Val(Mid(Str(Broj), 4, 1))
        de = Val(Mid(Str(Broj), 3, 1))
        st = Val(Mid(Str(Broj), 2, 1))
    Case 1000 To 3999
        jd = Val(Mid(Str(Broj), 5, 1))
        de = Val(Mid(Str(Broj), 4, 1))
        st = Val(Mid(Str(Broj), 3, 1))
        hi = Val(Mid(Str(Broj), 2, 1))
End Select

'hiljade
If hi > 0 And hi < 4 Then
    For i = 1 To hi
        RB = RB & "M"
    Next i
End If

rhi = RB
RB = ""

'stotine
Select Case st
    Case 1 To 3
        For i = 1 To st
            RB = RB & "C"
        Next i
    Case 4
        RB = "CD"
    Case 5
        RB = "D"
    Case 6 To 8
        RB = "D"
        For i = 6 To st
            RB = RB & "C"
        Next i
    Case 9
        RB = "CM"
End Select

rst = RB
RB = ""

'desetice
Select Case de
    Case 1 To 3
        For i = 1 To de
            RB = RB & "X"
        Next i
    Case 4
        RB = "XL"
    Case 5
        RB = "L"
    Case 6 To 8
        RB = "L"
        For i = 6 To de
            RB = RB & "X"
        Next i
    Case 9
        RB = "XC"
End Select

rde = RB
RB = ""

'jedinice
Select Case jd
    Case 1 To 3
        For i = 1 To jd
            RB = RB & "I"
        Next i
    Case 4
        RB = "IV"
    Case 5
        RB = "V"
    Case 6 To 8
        RB = "V"
        For i = 6 To jd
            RB = RB & "I"
        Next i
    Case 9
        RB = "IX"
End Select

rjd = RB
RB = ""

RimskiBrojevi = rhi & rst & rde & rjd
End Function

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Automatsko-rastavljanje-rijeci-sa-dijakritickim-slovima-na-kraju-reda

^{03.01.2012. u 18:12 - pre 149 meseci}

http://www.elitesecurity.org/t...ritickim-slovima-na-kraju-reda

Nadam se da će nekome pomoći moje negativno iskustvo kada Access 2003 u izvještajima na kraju reda sam rastavlja riječi sa slovima koja imaju dijakritičke znake.

U mojim izvještajima (koji predstavljaju zapisnike o tehničkim ispitivanjima) se dešavalo da se na kraju reda nađe riječ sa dijakritičkim slovom i koja ne može cijela stati u red. Tada ju je Access automatski rastavljao tako da je u redu zadržavao sva slova uključujući i dijakritičko, a u slijedeći red prenosio ostatak riječi, naprimjer: optereć-enje, proizvođ-ača, podeš-avanje, itd.

Naravno da je ovo neprihvatljivo za gramatički korektan zapisnik, pa sam se pomučio da pronađem rješenje i na kraju sam uspio. Rješenje je da se u regionalnim postavkama (Regional and language options), u Tab - "Languages", u odjeljku "Text services and input languages" klikne na gumb "Details". U novom prozoru u Tab - "Settings", u odjeljku "Installed services" treba ukloniti "Handwriting recognition". Nakon ovoga Acces više neće rastavljati riječi, nego će ih cijele prenositi u slijedeći red.

U ovih par mjeseci sam ovdje toliko naučio o Access-u, da mi je samo žao što sam prije toga godine utrošio na mukotrpno samostalno učenje. Još jednom hvala ljudima koji znaju i hoće pomoći onima koji ne znaju: @Zidar, @Zoran.Eremija, @Getsbi, @SLOJ.1973 i ostali ...

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Uvek 'taze' front end

^{20.01.2012. u 13:48 - pre 149 meseci}

Visekorisnicki sistemi u Accesu se konfigurisu na sledeci nacin:
Uvek imas dva Access fajla.
U jednom cuvas samo tabele - to je 'back end'.
U drugom fajlu cuvas aplikaciju (forme, kveriji, reporti) - to je 'front end'.
Tabele iz back end fajla su povezane (linked, attached) na aplikaciju.
Back end se cuva negde na mrzi, na file serveru.
Front ned ima svaki korisnik na svojoj masini.

Na ovaj nacin, svako ima sopstvenu kopiju aplikacija, a svi su zakaceni na istu bazu podataka.

U praksi, front end se cesto menja, prave se nove verzije. Razloga za promenu je mnogo - popravljaju se bagovi ili se dodaju nove mogucnosti, koje donose nove bagove i tako stalno. Tako dolazimo do problema instaliranja nove verzije front enda na korisnicke masine kad god napravimo novu verziju. Na forumu se nekoliko puta razgovaralo o ovom problemu, verovatno i u bazi znanja postoji vec nesto o tome.

Pre nekoliko nedelja, TiestoX je dao veoma lep prilog teoriji i praksi automatskog osvezavanja front enda. To je sve lapo opisano u temi http://www.elitesecurity.org/t398557-1-Uvek-taze-FrontEnd

Zamolili smo da se tema detaljno obradi i prilozi detaljno uputstvo, sto je TiestoX zaista i uradio. U poruci od 20 januara 2012 dato je detljno uputstvo kako i sta treba da se radi.

Sjajan prilog.

Zahvaljujemo!

http://www.elitesecurity.org/t398557-1-Uvek-taze-FrontEnd

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Access Baza Znanja

^{09.02.2012. u 16:03 - pre 148 meseci}

Slanje E-maila iz Accessa, izvoz tabela u XLS formatu:

http://www.elitesecurity.org/t443468-0#3051370

Zakceni fajl se otvara sa SHIFT ENTER.

Hvala na lepom primeru

_{[Ovu poruku je menjao Zidar dana 10.02.2012. u 15:00 GMT+1]}

Prikačeni fajlovi

EAdrese.zip

EAdrese.zip - 38.91k

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Menu BAr u Access 2003

^{30.04.2012. u 13:55 - pre 145 meseci}

Zanimljivo pitanje o kontrolisanju korisnickog men-bar, i briljantno resenje imaet u ovoij temi: http://www.elitesecurity.org/t...Problem-sa-Menu-Bar-om-accessu

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Poredjenje SQL naredbi iamedju MmS Access i MS SQL

^{18.07.2012. u 21:42 - pre 143 meseci}

mozete naci ovde http://www.elitesecurity.org/t453203-0#3140016

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Otvaranje PDF kroz VBA kod

^{04.10.2012. u 17:49 - pre 140 meseci}

Konrolisano otvaranje PDF fajlova iz VBA programa mozete naci ovde:

http://www.elitesecurity.org/t...i-PDF-iz-koda-na-zadatom-mestu

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Kako da podesim da se radi bekup baze jednom na dan?

^{12.11.2013. u 18:24 - pre 127 meseci}

http://www.elitesecurity.org/t...-Kako-bekup-baze-jednom-na-dan

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Linkovanje na NBS i provera blokade kupaca!

^{13.11.2013. u 14:44 - pre 127 meseci}

http://www.elitesecurity.org/t...-na-NBS-provera-blokade-kupaca

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Access Baza Znanja

^{14.12.2013. u 16:12 - pre 125 meseci}

Pošto me je @Zidar zamolio,evo ubacujem primer:
1.Kako putem koda napraviti novi folder,sa podfolderom i u njega izvesti izvestaj u formatu SNP (moze i XLS ili TXT) sa datumom u nazivu.
To je u ovoj temi

Jednog dana...

Prikačeni fajlovi

sloj-SNP.mdb

sloj-SNP.mdb - 164k

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Access spor u design modu na formama i reportima

^{03.01.2014. u 17:23 - pre 125 meseci}

Access 2007 poceo je da gnjavi u design modu za forme i reporte. Potrazio sam malo po webu i nasao ovo:

http://www.utteraccess.com/for...2010-Slower-2000-t1959800.html

U resenju se kaze da postoje dva glavna razloga koji mogu da dovedu do sporosti u design modu:

1. default printer je neki network printer
2. postoje linkovane tabele, koje nisu otvorene (!!!???), resenje - otvori sev tabele dok radis u design modu, cak i one koje nisu u nikakvoj vezi sa formom ili reportom na kome radis

Izgleda da je 2. pravi problem, bar kakao ljudi pricaju, i da prilikom rada treba u startu otvoriti sve tabele koje su linkovane. Evo koda koji to radi (kod preuzet iz poslednjeg posta u prilozenom linku):

Code:

'Open all tables:
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If Left(obj.Name, 4) <> "MSys" Then
DoCmd.OpenTable obj.Name
DoCmd.Minimize
End If
Next obj

'if needed use this code to close all tables

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If Left(obj.Name, 4) <> "MSys" Then
If obj.IsLoaded = True Then
DoCmd.Close acTable, obj.Name
End If
End If
Next obj

Odgovor na temu

cl3v3r

Član broj: 299773
Poruke: 15
213.133.19.*

+6 Profil

Re: Access Baza Znanja

^{02.03.2014. u 12:23 - pre 123 meseci}

Ponekad je potrebno korisniku skrenuti pažnju na događaj u programu (promjena stanja, pristizanje neke poruke ili sl) onda kada je Access minimizovan, ili kada se korisnik prosto bavi nekom drugom aplikacijom i ne prati dešavanja u Access bazi. Naravno, za tu svrhu može se upotrijebiti MsgBox, ali on je za moj ukus previše agresivan.

Zato ja volim da samo \"zatreperim\" Taskbar dugme aplikacije (kao, recimo, neke čet aplikacije kada Vam stigne nova poruka) i tako skrenem korisniku pažnju, a da ga ne uplašim.

Evo koda:

Code:

'Windows API poziv
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

'Procedura koja pokrece blinkanje
Public Sub FlashAppWindow()
FlashWindow Application.hWndAccessApp, 1
End Sub

Odgovor na temu

cl3v3r

Član broj: 299773
Poruke: 15
213.133.19.*

+6 Profil

Re: Access Baza Znanja

^{02.03.2014. u 12:25 - pre 123 meseci}

Skoro sam pravio Help Desk aplikaciju u Access-u (koju, nažalost ne mogu podijeliti sa vama) i tražio sam način kako da obavijestim Help Desk tehničara da mu je pristigao novi nalog onda kada je aplikacija minimizovana ili kada tehničar radi nešto drugo u nekom drugom programu. Rješenje je dobro poznato i široko se koristi. Zablinkaj taskbar (prethodna poruka) i promijeni tekst u taskbaru, tako da oslikava broj novopristiglih naloga. Evo koda:

Code:

'Windows API
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

'Procedura koja mijenja tekst
Public Sub SetAppTitle(TitleText As String)
SetWindowText Application.hWndAccessApp, TitleText
End Sub

Evo kako kombinacija blinkanja i promjene teksta izgleda u praksi:

Broj u zagradi je broj novopristiglih naloga. Ovako korisnik može da radi druge stvari i ne brine da će propustiti važan događaj u aplikaciji.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Access Baza Znanja

^{22.01.2015. u 17:20 - pre 112 meseci}

Direktna štampa nekog fajla pomoću VBA koda
Evo fantasticnog koda koji stampa odmah fajl,bez obzira kojeg je tipa:excel.word,pdf...Treba samo na kraju posle tacke naznaciti koji je tip datoteke.

Code:
CreateObject("Shell.Application").Namespace(0).ParseName("C:\putanja do trazenog fajla\nazivfajla.pdf").InvokeVerb ("Print")

Preuzeto sa linka

Jednog dana...

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Access2003 i skeniranje dokumenata

^{14.05.2015. u 12:54 - pre 108 meseci}

Posredstvom kolege BiloKoje imamo rešenje za skeniranje dokumenta.
Tema je na linku:http://www.elitesecurity.org/t484346-Access-skeniranje-dokumenata

"Ovaj kod sam našao, probao samo da li pokreće skener, radi. U Accessu 2010.
Potrebno je u Referencama uključiti Microsoft Windows Image Acquisition Library v2.0"

Code:

Private Sub slika_DblClick(Cancel As Integer)

   Dim oWIA_DeviceManager As WIA.DeviceManager
   Dim oWIA_Device As WIA.Device
   Dim oWIA_ComDlg As WIA.CommonDialog
   Dim oImageFile As WIA.ImageFile
   Dim i As Long

   Set oWIA_DeviceManager = New WIA.DeviceManager

   If oWIA_DeviceManager.DeviceInfos.Count > 0 Then
       Set oWIA_ComDlg = New WIA.CommonDialog

       ' Index the Devices property starting here at 1, not 0 .
       For i = 1 To oWIA_DeviceManager.DeviceInfos.Count
           Set oWIA_Device = oWIA_DeviceManager.DeviceInfos.Item(i).Connect

           ' Use this to show Acquisition CommonDialog
           Set oImageFile = oWIA_ComDlg.ShowAcquireImage

           ' Use this to show Acquisition Wizard
           Set oImageFile = oWIA_ComDlg.ShowAcquisitionWizard(oWIA_Device)

       Next i
   Else
       MsgBox "No WIA compatible device attached!"
   End If


End Sub

"Proverio sam, radi i u AccessXP."

BiloKoje

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Access Baza Znanja

^{15.07.2015. u 16:14 - pre 106 meseci}

@Zidar: Zelja ispunjena. "Hvatanje IP adrese,user-a i name-a racunara,koji pristupaju bazi.Pozdrav.

Jednog dana...

Prikačeni fajlovi

Sloj-IP.mdb

Sloj-IP.mdb - 152k

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.dsl.bell.ca.

+79 Profil

Prikazivanje opisa ("Description") za sve reporta ili tabele, u kveriju

^{12.12.2015. u 02:50 - pre 101 meseci}

Original post: http://www.elitesecurity.org/t...-za-bilo-koji-query-ili-report

Rdai se ovako:

Pitanje:

Citat:

a prikažem sve izveštaje u postojećem programu koritim :

SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not Like "*Subreport*") AND ((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name;

Kako da prikažem u ovoj listi pored MSysObjects.Name i sadržaj svakog pojedinog "ImeReporstsa.description" odnosno nešto kao MSysObjects.Description ?

Odgovor (velemajstor IZonic):

Code:

Code:
Function Objekti()
'*******************************************
'*Ime:Objekti (Function)
'*Sadržaj: Iscitava imena reporta i opis
'*Autor:     ZXZ
'*Datum:      12 08, 2015, 06:45:57
'*Adresa: Tuzla BiH
'*Email:     [email protected]
'*Ulazni parametri:
'*Izlazni parametri:
'*Vraća vrijednost:
'*******************************************

Dim Db As Database
Dim ImeR As String
Dim Des As String
Dim Ctr As Container
Dim Doc As Document

Set Db = CurrentDb
Set Ctr = Db.Containers!Reports
For Each Doc In Ctr.Documents
    ImeR = Doc.Name
    On Error Resume Next
    Des = Db.Containers("Reports").Documents(ImeR).Properties(8)
        If Err.Number = 3265 Then
        Err.Clear
        On Error GoTo 0
        Des = ""
        End If
    MsgBox ImeR & " : " & Des
Next Doc
End Function

Odgovor na temu

[es] :: Access :: Access Baza Znanja
(TOP topic, by Getsbi)
Strane: < .. 1 2 3 4 5

[ Pregleda: 93479 | Odgovora: 82 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
17.03.2002. Import htm dokumenta u Access
07.07.2003. Access baza 2000 sa Cirilicom ne radi ?
15.09.2003. VB, Access baza, sql.... pomoc
28.09.2004. Primjeri Access baza?
02.03.2004. Access baza i password...
22.03.2004. compact MS access from delphi
17.05.2006. Koja baza podataka za Delphi, za mrežu?
18.05.2004. Blokada Access baze
03.06.2004. Koji su nedostaci access baza?

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.