[es] - Access Baza Znanja

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Access Baza Znanja

^{04.11.2004. u 04:59 - pre 236 meseci}

Kako skloniti SQL server konekciju u adp fajlu

Ovo resenje je postavio darko79:

Code:

Function MakeADPConnectionless()
'------------------------------------------------------------
'This code removes the connection properties from the
'Access Project for troubleshooting purposes.
'The ADP opens in a disconnected state until new connection
'properties are supplied.
'------------------------------------------------------------
Application.CurrentProject.OpenConnection ""
End Function

All beer is good. Some beer is better.

Odgovor na temu

DarkMan
Darko Matesic

Član broj: 20445
Poruke: 572
*.metrohive.neobee.net.

Jabber: DarkMan

Profil

Re: Access Baza Znanja

^{05.11.2004. u 14:37 - pre 236 meseci}

Zaštita programa od kopiranja:

U attachment-u imate dva primera kako zaštititi access program od kopiranja i pokretanja programa na drugom računaru. Jedan je MDB a drugi je ADP falj. Razlika je veoma mala i ogleda se jedino u radu sa propertijima.

Zaštita je izvedena vezivanjem programa za serijski broj primarnog hard diska računara. Pri svakom pokretanju programa vrši se provera da li je program registravan za rad na dotičnom računaru, ako jeste nastavlja se normalan rad a ako nije ili prekida se prekida rad programa ili se ostavlja mogućnost registracije.

Opis primera:
Programi po default pokreću Startup formu koja na početku izbacuje poruku da li je program registrovan ili ne a zatim imate opcije da registrujete/deregistrujete program i da uključite/isključite shift.
Za najveću mogucu zaštitu pored isključivanja shifta i registrovanja programa treba kreirati MDE odnosno ADE fajl kako ne bi bio moguć pristup kodu.

Jedan način kako iskoristiti ovaj kod:
1. Importujete dva modula iz primera (koji sadrže neophodne funkcije) u vaš program
2. Kreirajte novu formu koju će te postaviti u Startup i dodajte sledeći kod u nju:

Code:

Private Sub Form_Open(Cancel As Integer)
    If IsRegistered() Then
        DoCmd.OpenForm "Switchboard"
        Cancel = True
        Exit Sub
    End If
End Sub

Ako je program registrovan otvara se vaša kontrolna tabla (za nešto drugo napravite neophodne izmene) a ako nije registrovan nastavlja se prikazivanje ove startup forme.
3. Na formi kreirajte neki label sa porukom da program nije registrovan, zatim neko polje za unos šifre, dugme za proveru šifre i dugme za zatvaranje programa.
4. U On Click event dugmeta za proveru šifre izvršite proveru validnosti šifre i ako je šifra ispravna registrujete program a ako nije izbacite poruku da šifra nije ispravna:

Code:

Private Sub ButtonProveraSifra_Click()
    If EditSifra.Value = "vaša šifra" Then
        Call RegisterProgram
        DoCmd.Close
        DoCmd.OpenForm "Switchboard"
    Else
        MsgBox "Šifra nije ispravna!", vbCritical, "Greška"
    End If
End Sub

Prikačeni fajlovi

zastita.zip - 50.54k

Odgovor na temu

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

Re: Access Baza Znanja

^{08.11.2004. u 08:28 - pre 236 meseci}

Access i veći projekti

Prema zapažanjima iskusnijih ljudi-veoma naprednih korisnika Accessa sa foruma, preporučen način za rad na većem projektu (>2 računara, mrežno okruženje) u Access-u je sledeći: izabrati računar koji će da bude server, na taj računar staviti samo fajlove sa tabelama, a na računare-klijente staviti fajlove sa interfejsom-forme, VBA kod, reporte, query-je, i zatim tabele sa servera linkovati na svaki klijent.

Ovakav način rada je pouzdan, i omogućava konzistentnost tabela, tj. svi klijenti imaju ažurne podatke, jer ih "vuku" sa servera. Primećeno je čak da je moguće, uz dobro postavljenu bazu i podešenu mrežu, povezati i do dvadesetak klijenata na takvu bazu bez primetnijeg gubitka u performansama. Ovo takođe pobija neke predrasude da je Access alat samo za "manje baze" (uslovno rečeno) i da za svaki veći projekat treba koristiti MS SQL.

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Access Baza Znanja

^{10.11.2004. u 05:18 - pre 236 meseci}

Problem sa list separator-om

Control Panel -> Regional and Language Pptions -> Customize -> Numbers tab, List Separatror polje.

Neke funkcije u Access-u (kao recimo Iif) koriste ovo umesto zareza - jedna od stvari koje bi trebalo proveriti kod neocekivanih problema.

Ovo je poslao filjo.

All beer is good. Some beer is better.

Odgovor na temu

DarkMan
Darko Matesic

Član broj: 20445
Poruke: 572
*.metrohive.neobee.net.

Jabber: DarkMan

Profil

Re: Access Baza Znanja

^{22.11.2004. u 17:13 - pre 236 meseci}

Promena jezika (Keyboard Input Language) iz accessa:

Iskopirati sledeći kod u novi modul:

Code:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Autor: Darko Matesic
' Datum: 20. Novembar 2004.
' Email: [email protected]
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Compare Database
Option Explicit

Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal flags As Long) As Long
Declare Function UnloadKeyboardLayout Lib "user32" (ByVal hkl As Long) As Long
Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Const HKL_ENGLISH_US = "00000409"
Const HKL_ENGLISH_UK = "00000809"
Const HKL_CROATIAN = "0000041A"
Const HKL_SERBIAN_CYRILIC = "00000C1A"
Const HKL_SERBIAN_LATIN = "0000081A"

Public Enum acKeyboardLanguage
    hklEnglishUS
    hklEnhlishUK
    hklCroatian
    hklSerbianCyrilic
    hklSerbianLatin
End Enum

Function SetKeyboardLanguage(KeyboardLanguage As acKeyboardLanguage) As Boolean
    Dim hkl As Long
    SetKeyboardLanguage = False
    Select Case KeyboardLanguage
        Case hklEnglishUS:
            hkl = LoadKeyboardLayout(HKL_ENGLISH_US, 0)
        Case hklEnhlishUK
            hkl = LoadKeyboardLayout(HKL_ENGLISH_UK, 0)
        Case hklCroatian
            hkl = LoadKeyboardLayout(HKL_CROATIAN, 0)
        Case hklSerbianCyrilic
            hkl = LoadKeyboardLayout(HKL_SERBIAN_CYRILIC, 0)
        Case hklSerbianLatin
            hkl = LoadKeyboardLayout(HKL_SERBIAN_LATIN, 0)
    End Select
    If hkl <> 0 Then SetKeyboardLanguage = (ActivateKeyboardLayout(hkl, 0) <> 0)
End Function

Kod se koristi tako što pozivate funkciju SetKeyboardLanguage (na primer po učitavanju forme):

Code:

Private Sub Form_Open(Cancel As Integer)
Call SetKeyboardLanguage(hklSerbianLatin)
End Sub

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Access Baza Znanja

^{23.03.2005. u 13:51 - pre 232 meseci}

Konvertovanje Access u MySQL:
=============================

Pitanje:
Imam imenik Sapca u Access bazi pa mi je potrebno da prebacim podatke iz te baze u mysql bazu ili nekako da je konvertuje u mysql, zato sto na sajtu koji radim mi je potreban taj imenik. Pomozite mi kako to da uradim

Odgovori:

byTer:
Uzi MySQL Ways ili samo SQL Ways. Najnovija verzija odlicno obavlja posao.
Jos jedan dobar je i SQL Porter, ali ima ogranicenje.
Naravno mole se haker i da ga krekuju.

Mikis:
1) Eksportuj iz Accessa u CSV (ili Excell) pa preko phpMyAdmina uvezi u MySQL

2) instaliraj MyODBC, napravi ODBC konekciju prema MySQL bazi pa je ulinkuj iz samog Accessa i prebaci podatke.

Kusur:
Probaj DBManager

http://www.dbtools.com.br

Meni Tools / Data Management / Import, Export Wizards
pa onda odaberi MSDAO Import Data

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.bitstream.orcon.net.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Access Baza Znanja

^{27.03.2005. u 00:07 - pre 232 meseci}

Pozivanje .Net dll-a iz Access-a

http://support.microsoft.com/?kbid=817248

Pogledajte sekciju
Expose the Visual Basic .NET assembly to Visual Basic 6.0

Dat je jednostavan primer kako napraviti dll u VB.Net i koristiti ga u VB6, ali radi bez problema i u VBA (access).

All beer is good. Some beer is better.

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
*.vdial.verat.net.

Profil

Re: Access Baza Znanja

^{31.03.2005. u 00:30 - pre 231 meseci}

Postovanje i pozdrav svima.

Hteo bih da se vratim na kod za zastitu baze koji nam je poslao DarkMan.

Lepo je sve objasnjeno i sve funkcionise, ali...

Uradio sam sve kako je gore navedeno, prijavio da nisam registrovan, pa pri podizanju pokrenuo formu sa upitom za sifru, ukucao 555555, pritisnuo dugme za proveru sifre, i, otvorio mi se moj Swithboard. Kada sam izasao iz programa i ponovo ga pokrenuo, nije me vise pitao, vec se odmah otvorio Switchboard. Taman sam se lepo obradovao, kad...

Iskopiram taj mdb na moj drugi racunar i pokrenem ga, - pita za sifru. Odlicno! Znaci, primetio je da je drugi disk-racunar u pitanju. Ukucam opet 555555 i gle, otvori se Switchboard! Onda sam shvatio da mi sve to ne vredi, jer "Perica" ce dati program "Mikici" i reci ce mu: "Kada te pita za sifru, ti ukucaj 555555, i radice". I bice u pravu.

Pokusavao sam da nekako nadjem taj broj diska koji je funkcija izbacila, pa da da na dugme za proveru sifre, umesto:

stavim sledece:

Code:

Private Sub ButtonProveraSifra_Click()
    If EditSifra.Value = "BROJ DISKA + 555555" Then
        Call RegisterProgram
        DoCmd.Close
        DoCmd.OpenForm "Switchboard"
    Else
        MsgBox "Šifra nije ispravna!", vbCritical, "Greška"
    End If
End Sub

Ali nisam nasao gde mu je ta vrednost za serijski broj diska, pa nisam uspeo ni da ostvarim ono sto sam hteo:

Da umesto obicne provere sifre, istu pomnozim (podelim, napravim koren ili sl.) sa vrednoscu koja proizilazi iz date funkcije za iscitavanje serijskog broja diska, pa da to onda bude sifra za ulaz u program. Znaci, "Perica" ne bi mogao "Mikici" da da probram i sifru 555555, jer "Mikica" ima drugi racunar-disk sa drugim serijskim brojem, pa nece moci da pogodi kako sam ja to izracunao.

Mislim da bi na ovaj nacin zastita bila mnogo sigurnija.

Bilo bi dobro (barem ja mislim) kada bi DarkMan dopunio ovako lepo objasnjenu zastitu sa mojom preporukom, pa sve to opet stavio na ovaj post, jer je ovo do sada zaista dobro, i sto je najvaznije, sve je tu, korak po korak, pa svako moze da razume, cak i onaj koji je, kao ja, pocetnik.

Eh, da! Onda jos samo ostaje pitanje sa vremenskom "trial" verzijom. Banem je sve ovo napisao na sajtu "praktikum", ali ja nisam uspeo to da primenim. A samo to jos fali, pa da ova zastita bude stvarno kompletna (barem ja tako mislim).

Hvala i pozdrav DarkMan-u i ostalim.

Boban (otac šestoro dece).

Odgovor na temu

Gomatami
Goran Markovic

Član broj: 33496
Poruke: 163

+2 Profil

Re: Access Baza Znanja

^{03.05.2005. u 10:26 - pre 230 meseci}

Prilikom izrada “user friendly” Access aplikacija, cesto se moze desiti da je odabir opcija ili nekih radnji sa cestim ponavljanjem “kliktanjem” na duze staze prespor. Tu stupaju na scenu programirani tasteri ili kombinacije tastera.

Znaci, pitanje glasi: Kako da se pritiskom na taster CTRL+N dodam novi zapis, a na kombinaciju SHIFT+D stampa dnevni izvestaj?

Prvi korak je pravljenje makroa pod nazivom AutoKeys.

U radnom Toolbaru ukljuciti opciju Macro Name.

U kolonu Macro Name upisati kombinaciju tastera ili sam taster koji treba da inicira dogadjaj. U nasem slucaju je to taster CTRL+N i CTRL+G:

Naravno, popunicete sve preostale trazene parametre u makrou.

Viticaste zagrade {} se koriste za obelezavanje SISTEMSKIH tastera (svi funkcijski F1 - F12, Insert, Delete, Home ...)
Znak "+" - plus, se koristi za kombinaciju SHIFT+NEKI_TASTER.
Znak "^" se koristi za kombinaciju CTRL+NEKI_TASTER.

Kada zavrsite sa pakovanjem AutoKeys makroa, snimiti ga i restartovati aplikaciju

P.S.
Moracemo da napisemo TOP temu "Slanje fajlova uz poruku"! Gojko, Gojko ... Ccccc...

Ovo je dodao Memfis:
----
Ja sam ovaj problem resio ovako:

Code:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub

onda,

Code:
Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
Select Case keycode
Case vbKeyF1
neki kod
Case vbKeyF2
neki kod
Case Else
End Select
End Sub

Postavio sam korisniku F1-F5 komande koje najcesce koristi, sto dosta ubrzava rad...

-----

I tako ...

Prikačeni fajlovi

AutoKeys.jpg - 14.72k

Odgovor na temu

adenis
bih

Član broj: 24296
Poruke: 256
*.dlp74.bih.net.ba.

Profil

Re: Access Baza Znanja

^{25.05.2005. u 09:02 - pre 230 meseci}

napravite shortcut do vase baze. udite u properties shortcata. u target upisite:

"C:\Program Files\Microsoft office\Office\MSACCESS.EXE" "C:\Desktop\baza.mdb" /runtime

znaci prvi dio je target do vaseg msaccess.exe a drugi dio ce te dobiti kreiranjem shortcata i predstavalja naravno target do vase baze.

dodavanjem /runtime vasa baza ce se uvijek pokretati u runtime nacinu rada.
;-)

Odgovor na temu

adenis
bih

Član broj: 24296
Poruke: 256
*.dlp35.bih.net.ba.

Profil

Re: Access Baza Znanja

^{06.06.2005. u 14:20 - pre 229 meseci}

ko cita ne skita. ovo isto moram da podijelim sa nekim. radi provjereno, super fazon.

General: Replace the Access splash screen
Author(s) Dev Ashish
You can replace the default splash screen displayed when Access is starting up. Create a new bitmap (BMP) and save it in the same folder where your database resides. Name the bitmap the same as your database. For example

C:\MyApp\SuperApp.MDB
C:\MyApp\SuperApp.BMP

CAUTION:
I've seen this technique frequently result in a complete crash (Blue Screen Of Death) under Win NT 4.0. I haven't been able to duplicate the crash in Win 95 environment.Some folks suggest that this can be because of the Bitmap file size, however, I haven't seen any conclusive evidence. So, if you're using this method, make sure that you test your app rigorously in both NT and 95 environments.

treba li prevod?

Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.dlp280.bih.net.ba.

Profil

Re: Access Baza Znanja

^{01.10.2005. u 12:21 - pre 225 meseci}

Postavite sat na formu!

Prikačeni fajlovi

sat.rar - 19.23k

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Access Baza Znanja

^{04.10.2005. u 13:38 - pre 225 meseci}

Zeljko Raspudic, o stampanju na matricnim stampacima

Citat:

Svima nama koji se bavimo programiranjem je jasno da dolaskom Windows
orjentisanih programa dolazi do "tihe" sahrane matričnih štampača.
Kome ipak nije jasno neka oštampa neki izvještaj iz, recimo, Access-a i
poredi brzinu štampanja izvještaja slične dužine iz nekog DOS programa
(recimo Clipper-a). Posto su matrični štampači jako rasprostranjeni u
poslovima vezanim za knjigovodstvo nije tek tako preći na lasere.
Problem pogotovo dolazi do izražaja kod referata koji zbog obimnosti
podataka moraju da koriste A3 papir (recimo neke liste u Osnovnim
sredstvima). Tu nije lako preći na A3 laser koji je i dalje dosta skup
a takođe i toneri za njega.
Zbog toga sam prešao na "DOS" stampanje iz Access-a ali sam naišao
na problem kod prelaska na novu stranicu (Form Feed).
Koristeći zvaničnu ESC sekvencu za prelaz na novu stranu tj. Chr(12)
nalazio sam na problem da zavisno od situacije nekada nedostaje
jedan do dva reda a nekada doda red više. Kao posljedica toga je
pogrešno štampanje višestraničnih dokumenata i pogrešan rad
Tear Off-a (izvuče stranicu više).
Printer je hardverski dobro podesen jer njegovo dugme Form Feed i Tear Off
rade normalno.
Koristim "beskonačni" papir i probao sam na LQ-1170 i LX 300 sa identicnim
rezultatima
Logiku greške nisam uspio da dokučim.
Poslije dosta muke napustio sam Chr(12) i problem riješio na sljedeći
način:
Otvori se željeni recordset pa onda sljedi

Public inicijal as String
Public red As Integer
Public Ima_zag As Boolean
Public i As Integer ' za For Next

' 12" dužina strane, normalno rastojanje redova i normalni font
' moglo bi i bez ovog reda ako je štampač hardverski dobro podešen ali
' je ovako sigurnije
inicijal = Chr(27) + "C" + Chr(0) + Chr(12) + Chr(27) + Chr(1) + Chr(27) + "P"
Open "lpt1:" For Output As #1

red = 1
Print #1, inicijal

NoviRed ' pogledati šta radi ova funkcija
Print #1, "Ime firme, naslovi itd"

NoviRed
ZagInv

Ima_zag = True
rst.MoveFirst
Do While Not rst.EOF
NoviRed
Print #1, "štampati potrebne kolone iz otvorenog recordset-a"

rst.MoveNext
Loop

Ima_zag = False

NoviRed
Print #1, ' ovo je prazan red ali i njega treba prebrojati

NoviRed
Print #1, "tekst koji ide ispod do loop petlje"

For i = 1 To 72 - red ' ovo glumi FF pošto Chr(12) FF dodaje bez veze red
Print #1, ' prazni redovi , ovako treba a ne Chr(10) + Chr(13)
Next

Close #1

Private Sub ZagInv()

' primjer zaglavlja
Print #1, "---------------------------------------------------------------------------------------"

red = red + 1
Print #1, "Inv.broj Naziv osnovnog sredstva Količina"

red = red + 1
Print #1, "----------------------------------------------------------------------------------------"

End Sub

Private Sub NoviRed()
If red = 66

For i = 1 To 72 - red ' ovo glumi FF pošto Chr(12) FF dodaje bez veze red
Print #1, ' novi red
Next

red = 2 ' ZAŠTO 2 A NE 1, PITANJE JE SAD??? ALI OVAKO RADI!

If Ima_zag Then ' zaglavlje se dodaje ne na svakom 66 redu već samo
' gdje treba (može postojati duži ili kraći tekst ispod
' do loop petlje i tu ne treba zaglavlje.
ZagInv
Else
red = 1 ' treba za redove ispod Do Loop petlje
End If

Else
red = red + 1
End If

End Sub

Važi i za A4 i A3 a i Form Feed radi baš kako treba.

Pozdrav Željko

Odgovor na temu

dakuri
Novi Sad

Član broj: 44913
Poruke: 191
*.113.eunet.yu.

+1 Profil

Re: Access Baza Znanja

^{17.10.2005. u 15:54 - pre 225 meseci}

Primer za to da current red u formi bude druge boje
http://www.mvps.org/access/forms/frm0047.htm

Odgovor na temu

sbing
Hr

Član broj: 48455
Poruke: 77
*.net.t-com.hr.

Profil

Re: Access Baza Znanja

^{20.03.2006. u 10:38 - pre 220 meseci}

Sumiranje polja po stranicama unutar izveštaja, jednostavno objašnjenje za to ima na
http://www.personalmag.co.yu/access17.htm

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Access Baza Znanja

^{21.06.2006. u 13:45 - pre 217 meseci}

Kontrola otvaranja Access fajla pomocu SHIFT ENTERE tatsera, za Access Data Projects:

http://www.elitesecurity.org/tema/172270

Hvala Zeljku na korisnom savetu.

:-)

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Access Baza Znanja

^{28.06.2006. u 16:12 - pre 216 meseci}

Specijalini-znaci-superscript-Accessu, od BiloKoje:
http://www.elitesecurity.org/tema/184237

Vidi zakaceni fajl.

Prikačeni fajlovi

SpecKarakteri.zip - 18.8k

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Access Baza Znanja

^{13.09.2006. u 14:36 - pre 214 meseci}

Trtko je ostavio interesantan post - Import from outlook to Access
http://www.elitesecurity.org/t215332-Import-maila-iz-Outloka

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Access Baza Znanja

^{12.06.2007. u 19:03 - pre 205 meseci}

Dodeljivanje proizvoljnih komandi funkcijskim tasterima
Osobinu Key Prevew forme postaviti na Yes, pa upotrebiti otprilike ovakvu proceduru na događaj On Key Down.

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
             Case vbKeyEscape:
                                 KeyCode = 0
                                 DoCmd.Close
             Case vbKeyTab:
                                 KeyCode = 0
             Case vbKeyF1:
                                 KeyCode = 0
                                 DoCmd.OpenForm "HelpPoruka"
              Case vbKeyF2
                                 KeyCode = 0
                                 NoviDok_Click
               Case vbKeyF3
                                 KeyCode = 0
                                 Pregled_Click
               Case vbKeyF5
                                 KeyCode = 0
                                 Knjizenje_Click
         End Select
End Sub

Naravno iza željenog KeyCode = 0 postaviti ono što treba da se izvrši.

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

Re: Access Baza Znanja

^{13.06.2007. u 17:22 - pre 205 meseci}

Problem: napraviti pop-up box, slicno kalendarima. kad korisnik zeli da unses nesto u neki text box, klikne neko dugmenxe i iskoci formica (pop-up) sa listom opcija. Kad izabere iz liste sta treba, ta se vrednost prenese na glavnu formu u zeljenu kontrolu, a pop-up nestane sa vidika.

Nije za absolutne pocetnike, ali nije mnogo ni tesko, mislim nema mnogo posla fizicki. Da se ovo razume, to je vec individualno i nije lako. Na srecu, nije potrebno da se razume, moze i da se prepise.

Ovako, potrebne su dve stvari:
1. pop up forma, sa nekim list boxom iz koga se nesto bira
2. standardni modul modPopUp, u kome se nlzi jedna ili dve funkcije

Na formi sa koje se poziva pop-up pozeljno je dugme za pozivanje pop-up formice.

Zakaceni primer PoUpSelector.mdb sadrzi formu sa koje se poziva pop-up, sam pop-up i sve potrebne funkcije.
Sav posao zavrsava funkcija funPopUpCall, koja se nalazi u modulu. Ona poziva funkciju koja proverava da li je enka forma otvorena, imate i to u modulu.

Za svaku pop-up formu, mora se napraviti modul i u njemu funkcija koja poziva bas taj pop up. Ovo je zato sto se u telu funkcije funPopUpCall ukazuje na list box kontrolu koja stoji na pop up formi.

U primeru imate kako se poziva pop up forma sa dugmeta, i kako se poziva recimo duplim klikom na sam text box koji zelimo da popunimo iz pop-up forme.

Za iskusnije programere, postoji i genericko resenje (donekle), koje ne zahteva modul i funkciju za svaki pop up u aplikaciji, vec jedna ista funkcija radi sve sto treba. Vidi drugi zakaceni fajl.

Prikačeni fajlovi

PoUpSelector.mdb - 152k

PoUpSelector_GEN.mdb - 176k

Odgovor na temu