Access 2007 - povezivanje i stampa sa Word templateom

Re: Access 2007 - povezivanje i stampa sa Word templateom 06.03.2012. u 20:22 · pre 178 meseci #21

Kod mene sve funkcionise, imas jos jednu opciju koju bi trebalo da podesis, mozda zbog toga nije htelo kod tebe da radi. U Access Options=>Curent Database i cekiras Compact on close.

Evo doradio sam malo onaj tvoj primer, dodao sam jos jednu formu BlokirajShift sa jednim dugmetom na koje kada kliknes blokiras Shift prilikom ulaska. Znaci samo kliknes na to dugme i onda zatvoris bazu ili napravis MDE fajl.
Ovu bazu koju sam ti okacio otvori je sa Shift pa onda idi na formu BlokirajShift.

Potpis

[email protected]=

LS2007.mdb424k

Re: Access 2007 - povezivanje i stampa sa Word templateom 06.03.2012. u 21:18 · pre 178 meseci #22

kako zastiti accdb format ja imam problem nece da mi kreira accde izbacuje mi gresku stalno

Re: Access 2007 - povezivanje i stampa sa Word templateom 06.03.2012. u 21:35 · pre 178 meseci #23

FOX , hvala, sve radi kako treba

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 06.03.2012. u 21:43 · pre 178 meseci #24

Ako imas neki kod u VBA editoru moras ga kompajlirati (Debug=>Compile) i fajl koji kreiras u MDE mora ti biti u Access 2007 verziji ako ka kreiras iz Access 2007 ili u 2003 verziji ako ga kreiras u Access 2003. Ako i pored ovoga ne bude uspelo okaci fajl pa da vidimo u cemu je problem.

Potpis

[email protected]=

Re: Access 2007 - povezivanje i stampa sa Word templateom 07.03.2012. u 09:30 · pre 178 meseci #25

Sada radi sve OK imao sam jednu gresku u kodu sada sam ispravio i fercera kao ludo
mnogo hvala FOX
zanima me jesi li uspeo da prebacis bazu na SQL server i kako definisati jednu konekciju za sve?
meni kod kuce radi sve OK ali na poslu imam problem sa odbc drajverom jednostavno nece da mi se nakaci na server u pitanju je sql 2005 i win7 64bit isto tako je kod moje kuce.

Re: Access 2007 - povezivanje i stampa sa Word templateom 07.03.2012. u 09:36 · pre 178 meseci #26

Nisam to nikad radio, da kacim bazu na server mozda se nadje neko ko je to vec radio pa odgovori na tvoje pitanje.

Potpis

[email protected]=

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 09:17 · pre 175 meseci #27

Znači li to da kada se postavi ovaj code za blokiranje shift-a neću biti u mogućnosti da uđem u access tabele, forme, report itd.
Šta recimo, pokvari se aplikacija, kako ću da je popravim?

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 09:37 · pre 175 meseci #28

Upravo tako, ali mozes napraviti dugme kojim mozes blokirati ili deblokirati Shift. Ako radis u Access 2007 iako je blokiran Shift mozes pristupiti celoj bazi.

Potpis

[email protected]=

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 11:35 · pre 175 meseci #29

Radim u access2007 ali sam aplikaciju pravio za access2003. Ne znam za taj code deblokiranja shifta.
Usput da pitam, nisam mogao napraviti niti mde ni accde, prijavljuje mi grešku nekog tipa kao previše formi , makroa itd..
ili je problem što sam aplikaciju pravio u 2007 za 2003?

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 11:48 · pre 175 meseci #30

Na ovom linku imas o tome

http://support.microsoft.com/kb/826765

Kao prvo MDE fajl mozes napraviti iz Access 2003 a ACCDE iz Access 2007, ali pre nego to sto odradis potrebno je da kompajliras VBA kodove (ako ih imas), pa ako to prodje bez problema mocices da napravis MDE/ACCDE fajl.

Potpis

[email protected]=

1

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 12:18 · pre 175 meseci #31

U pravu si za mde, kada sam uradio compile nedostajao mi je jedan end if, kada sam to ispravio napravio sam MDE bez problema.
Zahvaljujem.

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 12:58 · pre 175 meseci #32

Na login formu postavis komandno dugme,pod nazivom recimo u ovom slucaju bIskljuciShift i dodelis mu na dogadjaj OnClick sledeci kod

Code:
Private Sub bIskljuciShift_Click()
On Error GoTo Err_bIskljuciShift_Click
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Zelite li omoguciti SHIFT key?" & vbCrLf & vbLf & _
"Molimo Vas upisite sifru za omogucivanje SHIFT key-a."
strInput = InputBox(Prompt:=strMsg, Title:="Shift key nije omogucen")
If strInput = "1111" Then 'neka tvoja sifra
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox "Shift key je ukljucen." & vbCrLf & vbLf & _
"Sledeci put kad budete otvarali vasu bazu Shift key ce biti omogucen.", _
vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Sifra nije prihvacena!" & vbCrLf & vbLf & _
"Shift key je onemogucen." & vbCrLf & vbLf & _
"Sledeci put kad budete otvarali bazu Shift key ce biti onemogucen.", _
vbCritical, "Netacna sifra"
Exit Sub
End If
Exit_bIskljuciShift_Click:
Exit Sub
Err_bIskljuciShift_Click:
MsgBox "bIskljuciShift_Click", Err.Number, Err.Description
Resume Exit_bIskljuciShift_Click
End Sub

.Klikom na njega namerno upises pogresnu sifru i shift je onemogucen.Kad zelis da omogucis shift kliknes i ukucas pravu sifru i to je to.Kod za iskljucivanje postavis u novi modul:

Code:
Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim Db As DAO.Database, prp As DAO.Property
Set Db = CurrentDb
Db.Properties(strPropName) = varPropValue
SetProperties = True
Set Db = Nothing

Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then
Set prp = Db.CreateProperty(strPropName, varPropType, varPropValue)
Db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function

Potpis

Jednog dana...

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 13:03 · pre 175 meseci #33

ali dzaba to za Access 2007, mozes kodom da blokiras Shift ali iako je blokiran moze da se pristupi Navigacionom panou i tabelama

Potpis

[email protected]=

Re: Access 2007 - povezivanje i stampa sa Word templateom 15.06.2012. u 15:18 · pre 175 meseci #34

Moguce,ne radim u 2007-ci.A zar se ne moze tabelama pristupiti i kada je baza u mde ili accde formatu?!

Potpis

Jednog dana...

Re: Access 2007 - povezivanje i stampa sa Word templateom 16.06.2012. u 18:29 · pre 175 meseci #35

Našao sam jedan code za ispravljanje malog u veliko slovo.Kada na nekom imenu i prezimenu, kaje se nalaze u jednom polju greškom upišemo mala slova. To radi OK.
Međutim kada pišem naša slova č , ć samo piše c dok to dobro radi sa Š i Ž.

code:
Private Sub txtBoxName_AfterUpdate()
Me.txtBoxName.Value = StrConv(Me.txtBoxName.Value, vbProperCase)
End Sub

Šta bi mogao biti problem, sumnjam na VBA?

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 16.06.2012. u 21:15 · pre 175 meseci #36

pokusaj sa ovim kodom

Code:
Private Sub txtBoxName_AfterUpdate()
Dim strIme As String
Dim strPrezime As String
Dim strImePrezime As String
Dim Razmak As Integer
Dim i As Integer

strImePrezime = Trim(Nz(Me.txtBoxName, ""))

For i = 1 To Len(strImePrezime)
    If Mid(strImePrezime, i, 1) = " " Then
        Razmak = i
        Exit For
    End If
Next i

strIme = Trim(Left(strImePrezime, i))
strPrezime = Trim(Mid(strImePrezime, i, Len(strImePrezime) - Len(strIme)))
strIme = UCase(Left(strIme, 1)) & Right(strIme, Len(strIme) - 1)
strPrezime = UCase(Left(strPrezime, 1)) & Right(strPrezime, Len(strPrezime) - 1)

Me.txtBoxName = strIme & " " & strPrezime

End Sub

kod mene ovaj kod radi kako treba, i sa cirilicom i sa latinicom

Potpis

[email protected]=

1

Re: Access 2007 - povezivanje i stampa sa Word templateom 16.06.2012. u 21:43 · pre 175 meseci #37

Da to je pravi code, radi i kod mene.
Hvala

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 18.06.2012. u 09:46 · pre 174 meseca #38

Naišao sam na jedan problem kod izvršavanja ovog koda, naime ako sam pogrešio recimo u polju ime prezime i kada ga izbrišem a onda napustim to polje znači ostane prazno podiže se popup end ili debug, a onda nesmetano se otvara prozor u VBA.
Meni to nije problem da zatvorim prozor i nastavim dalje ali ako sam ga zapakovao kao MDE i dao ga nekom početniku da unosi podatke svakako će se uplašiti i slučajno čeprkati po code-u i oštetiti aplikaciju.
Možda bi trebalo dodati nešto:
else
if poljeimeprezime= null then

ili tako nešto nisam baš vešt u VBA

Bar kod mene se pojavljuje greška?

Potpis

Teško je biti direktor a još teže ne biti!?

Re: Access 2007 - povezivanje i stampa sa Word templateom 18.06.2012. u 10:08 · pre 174 meseca #39

Evo ispravljenog kod

Code:
Private Sub txtBoxName_AfterUpdate()
Dim strIme As String
Dim strPrezime As String
Dim strImePrezime As String
Dim Razmak As Integer
Dim i As Integer

strImePrezime = Trim(Nz(Me.txtBoxName, ""))

For i = 1 To Len(strImePrezime)
    If Mid(strImePrezime, i, 1) = " " Then
        Razmak = i
        Exit For
    End If
Next i

strIme = Trim(Left(strImePrezime, i))
strPrezime = Trim(Mid(strImePrezime, i, Len(strImePrezime) - Len(strIme)))

'dodaj ovaj red, u slucaju da je polje prazno ili sadrzi jednu rec procedura se prekida
If strIme = "" Or strPrezime = "" Then: Exit Sub

strIme = UCase(Left(strIme, 1)) & Right(strIme, Len(strIme) - 1)
strPrezime = UCase(Left(strPrezime, 1)) & Right(strPrezime, Len(strPrezime) - 1)

Me.txtBoxName = strIme & " " & strPrezime

End Sub

Potpis

[email protected]=

1

Re: Access 2007 - povezivanje i stampa sa Word templateom 18.06.2012. u 10:14 · pre 174 meseca #40

Da sada je OK.

Potpis

Teško je biti direktor a još teže ne biti!?

Forum kao aplikacija na telefonu

Srodne teme