Access Baza Znanja

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

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

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

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

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

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

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

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

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