iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	02.06.2012 14:04
Predmet:Partition u SQL-u Jeste li koristili Partition? Mislim da vecina nije. Koristimo je Kada zelimo zbrajati neke podatke u Sa odredjenim Intervalima: Primjer. Ako imamo Tablicu Koja se zove Osobe i U njoj Polja: Id Ime Prezime Starost Sada zelimo da Imamo podatke o broju osoba po starosti a u intervalu po 5 godina. Znaci od 1-5 od 5-10 itd Evo SQL: PreuzmiIzvorni kôd (SQL): SELECT Partition([Starost],1,100,5) AS Raspon, COUNT(Starost) AS Broj FROM Osobe GROUP BY Partition([Starost],1,100,5);

zxz	03.06.2012 00:52
Predmet:Naredba NZ dali koristite naredbu NZ? Ponekad zatreba. Sa NZ Mozemo odrediti neku drugu vrijednost kada je vrijednost Null. Primjer: PreuzmiIzvorni kôd (Visual Basic): Function PrimjerNZ() Dim a, b, c a = Null b = Nz(a, "Nul Vrijednost") a = 22 c = Nz(a, "Nul Vrijednost") End Function

zxz	02.06.2012 19:41
Predmet:Naredba Choose Dali ste nekada koristili naredbu Choose. Evo primjer. PreuzmiIzvorni kôd (Visual Basic): Function ChooseF() Dim A As String A = Choose(3, "mujo", "pero", "haso", "vitomir") ChooseF = A End Function

dex	11.06.2012 12:27
Predmet:Re: Access trikovi Koristim, samo mi reci je li to Accessova naredba ili je prepoznaju i drugi DBMS?

zxz	11.06.2012 13:07
Predmet:Re: Access trikovi Nz je accessova naredba nalazi se u biblioteci msacc.olb.

roko	12.09.2012 12:40
Predmet:Fadein & Out Forme Fade in out Form Modul : PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 Public Const WS_EX_TRANSPARENT = &H20& Public Const LWA_ALPHA = &H2& Public Enum FadeDirection Fadein = -1 Fadeout = 0 Fadezero = 1 SetOpacity = 1 End Enum Public Sub FadeForm(frm As Form, Optional Direction As FadeDirection = FadeDirection.Fadein, _ Optional iDelay As Integer = 0, Optional StartOpacity As Long = 5) If frm Is Nothing Then: Exit Sub On Error GoTo van Dim lOriginalStyle As Long Dim iCtr As Integer If (frm.PopUp = True) Then lOriginalStyle = GetWindowLong(frm.hWnd, GWL_EXSTYLE) SetWindowLong frm.hWnd, GWL_EXSTYLE, lOriginalStyle Or WS_EX_LAYERED If (lOriginalStyle = 0) And (Direction <> FadeDirection.SetOpacity) Then FadeForm frm, SetOpacity, , StartOpacity End If Select Case Direction Case FadeDirection.Fadezero iCtr = StartOpacity SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA Case FadeDirection.Fadein If StartOpacity < 1 Then StartOpacity = 1 For iCtr = StartOpacity To 255 Step 1 SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA DoEvents ' Debug.Print iCtr Sleep iDelay Next Case FadeDirection.Fadeout If StartOpacity < 6 Then StartOpacity = 255 For iCtr = StartOpacity To 1 Step -1 SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA DoEvents Sleep iDelay Next Case Else Select Case StartOpacity Case Is < 1: StartOpacity = 1 Case Is > 255: StartOpacity = 255 End Select SetLayeredWindowAttributes frm.hWnd, 0, CByte(StartOpacity), LWA_ALPHA DoEvents Sleep iDelay End Select Else MsgBox "Forma mora biti Popup", vbOKOnly & vbInformation, "Ne e ii" End If van: End Sub Poziv na formi: PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Dim MojInt Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 2 FadeForm Me, Fadezero, 1, 5 End Sub Private Sub Form_Timer() On Error Resume Next If IsEmpty(MojInt) Then FadeForm Me, Fadein, 1, 15 MojInt = 1 End If Me.TimerInterval = 0 End Sub
Prilozi: Fade_in_out.rar (Velicina datoteke:29.98 KB)

roko

12.09.2012 12:40

Predmet:Fadein & Out Forme

Fade in out Form

Modul :

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TRANSPARENT = &H20&
Public Const LWA_ALPHA = &H2&
Public Enum FadeDirection
Fadein = -1
Fadeout = 0
Fadezero = 1
SetOpacity = 1
End Enum
Public Sub FadeForm(frm As Form, Optional Direction As FadeDirection = FadeDirection.Fadein, _
Optional iDelay As Integer = 0, Optional StartOpacity As Long = 5)
If frm Is Nothing Then: Exit Sub
On Error GoTo van
Dim lOriginalStyle As Long
Dim iCtr As Integer
If (frm.PopUp = True) Then
lOriginalStyle = GetWindowLong(frm.hWnd, GWL_EXSTYLE)
SetWindowLong frm.hWnd, GWL_EXSTYLE, lOriginalStyle Or WS_EX_LAYERED
If (lOriginalStyle = 0) And (Direction <> FadeDirection.SetOpacity) Then
FadeForm frm, SetOpacity, , StartOpacity
End If
Select Case Direction
Case FadeDirection.Fadezero
iCtr = StartOpacity
SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
Case FadeDirection.Fadein
If StartOpacity < 1 Then StartOpacity = 1
For iCtr = StartOpacity To 255 Step 1
SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
DoEvents
' Debug.Print iCtr
Sleep iDelay
Next
Case FadeDirection.Fadeout
If StartOpacity < 6 Then StartOpacity = 255
For iCtr = StartOpacity To 1 Step -1
SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
DoEvents
Sleep iDelay
Next
Case Else
Select Case StartOpacity
Case Is < 1: StartOpacity = 1
Case Is > 255: StartOpacity = 255
End Select
SetLayeredWindowAttributes frm.hWnd, 0, CByte(StartOpacity), LWA_ALPHA
DoEvents
Sleep iDelay
End Select
Else
MsgBox "Forma mora biti Popup", vbOKOnly & vbInformation, "Ne
e ii"
End If
van:
End Sub

Poziv na formi:

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Dim MojInt
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 2
FadeForm Me, Fadezero, 1, 5
End Sub
Private Sub Form_Timer()
On Error Resume Next
If IsEmpty(MojInt) Then
FadeForm Me, Fadein, 1, 15
MojInt = 1
End If
Me.TimerInterval = 0
End Sub

Prilozi:
Fade_in_out.rar (Velicina datoteke:29.98 KB)

miro35	09.11.2012 10:12
Predmet:Isključivanje/Uključivanje Shift-a za ulazak u bazu Vjerovatno već imamo isključivanje i uključivanje shift tipke za ulazak u bazu ali nisam siguran da imamo ovaj primjer po meni najjednostavniji. Prvo stavimo ovu funkciju u jedan modul: PreuzmiIzvorni kôd (Text): Option Compare Database Option Explicit 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 'Property not found 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 Zatim na neku formu najbolje ulaznu formu stavimo command buton "bDisableBypassKey" Na click tog dugmeta će biti ovo: PreuzmiIzvorni kôd (Text): Private Sub bDisableBypassKey_Click() On Error GoTo Err_bDisableBypassKey_Click Dim strInput As String Dim strMsg As String BEEP strMsg = "Da li Å¾elite uklju iti Shift Tipku za aplikaciju?" & vbCrLf & vbLf & "Molim unesite programerski password za ovu opciju." strInput = InputBox(Prompt:=strMsg, Title:="Uklju i Shift passwordom ili isklju i") If strInput = "Ovde password" Then SetProperties "AllowBypassKey", dbBoolean, True BEEP MsgBox "Funkcija izvrÅ¡ena." & vbCrLf & vbLf & "Shift Tipka je uklju ena prilikom sljedeeg pokretanja aplikacije.", vbInformation, "Startup uklju en" Else BEEP SetProperties "AllowBypassKey", dbBoolean, False MsgBox "PogreÅ¡no ''Klju '' Password!" & vbCrLf & vbLf & "Shift tipka je isklju ena." & vbCrLf & vbLf & "Shift tipka je isklju ena prilikom sljedeeg pokretanja aplikacije.", vbCritical, "PogreÅ¡an password" Exit Sub End If Exit_bDisableBypassKey_Click: Exit Sub Err_bDisableBypassKey_Click: MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description Resume Exit_bDisableBypassKey_Click End Sub Vidite u ovom codu gdje piÅ¡e Ovde password tu stavite svoju lozinku. Ovaj način je dobar kad Å¾elite da uključite Shift ukucate ispravnu lozinku,a kada Å¾elite da isključite Shift onda samo ukucate krivu lozinku ili pritisnete tipku cancel. Napomena:Ovo isprobajte na nekoj praznoj bazi pa tek onda primjenite na svoju.

miro35

09.11.2012 10:12

Predmet:Isključivanje/Uključivanje Shift-a za ulazak u bazu

Vjerovatno već imamo isključivanje i uključivanje shift tipke za ulazak u bazu ali nisam siguran da imamo ovaj primjer po meni najjednostavniji.
Prvo stavimo ovu funkciju u jedan modul:

PreuzmiIzvorni kôd (Text):

Option Compare Database
Option Explicit
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 'Property not found
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

Zatim na neku formu najbolje ulaznu formu stavimo command buton "bDisableBypassKey"
Na click tog dugmeta će biti ovo:

PreuzmiIzvorni kôd (Text):

Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click
Dim strInput As String
Dim strMsg As String
BEEP
strMsg = "Da li Å¾elite uklju
iti Shift Tipku za aplikaciju?" & vbCrLf & vbLf & "Molim unesite programerski password za ovu opciju."
strInput = InputBox(Prompt:=strMsg, Title:="Uklju
i Shift passwordom ili isklju
i")
If strInput = "Ovde password" Then
SetProperties "AllowBypassKey", dbBoolean, True
BEEP
MsgBox "Funkcija izvrÅ¡ena." & vbCrLf & vbLf & "Shift Tipka je uklju
ena prilikom sljedeeg pokretanja aplikacije.", vbInformation, "Startup uklju
en"
Else
BEEP
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "PogreÅ¡no ''Klju
'' Password!" & vbCrLf & vbLf & "Shift tipka je isklju
ena." & vbCrLf & vbLf & "Shift tipka je isklju
ena prilikom sljedeeg pokretanja aplikacije.", vbCritical, "PogreÅ¡an password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub

Vidite u ovom codu gdje piÅ¡e Ovde password tu stavite svoju lozinku.
Ovaj način je dobar kad Å¾elite da uključite Shift ukucate ispravnu lozinku,a kada Å¾elite da isključite Shift onda samo ukucate krivu lozinku ili pritisnete tipku cancel.
Napomena:Ovo isprobajte na nekoj praznoj bazi pa tek onda primjenite na svoju.

zxz	13.02.2013 19:08
Predmet:Re: Access trikovi I ovo je jedan mali trik za uljepsavanje vase app.
Prilozi: LabelaTrik.zip (Velicina datoteke:7.55 KB)

zxz	13.02.2013 20:34
Predmet:Re: Access trikovi Obratite paznju da je u recordsource obje forme isti query. Mozda vam padne ideja da ovo negdje i iskoristite.
Prilozi: QueryTrik.zip (Velicina datoteke:32.65 KB)