zxz 02.06.2012 13: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):
  1. SELECT Partition([Starost],1,100,5) AS Raspon, COUNT(Starost) AS Broj
  2. FROM Osobe
  3. GROUP BY Partition([Starost],1,100,5);

zxz 02.06.2012 23: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):
  1. Function PrimjerNZ()
  2. Dim a, b, c
  3.  
  4. a = Null
  5. b = Nz(a, "Nul Vrijednost")
  6. a = 22
  7. c = Nz(a, "Nul Vrijednost")
  8. End Function

zxz 02.06.2012 18:41
Predmet:Naredba Choose

Dali ste nekada koristili naredbu Choose.
Evo primjer.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ChooseF()
  2. Dim A As String
  3.  
  4. A = Choose(3, "mujo", "pero", "haso", "vitomir")
  5. ChooseF = A
  6. End Function

dex 11.06.2012 11:27
Predmet:Re: Access trikovi

Koristim, samo mi reci je li to Accessova naredba ili je prepoznaju i drugi DBMS?

zxz 11.06.2012 12:07
Predmet:Re: Access trikovi

Nz je accessova naredba nalazi se u biblioteci msacc.olb.

roko 12.09.2012 11:40
Predmet:Fadein & Out Forme

Fade in out Form

Modul :
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  3. (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  4. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  5. (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  6. Public Declare Function SetLayeredWindowAttributes Lib "user32" _
  7. (ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  8. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  9. Public Const GWL_EXSTYLE = (-20)
  10. Public Const WS_EX_LAYERED = &H80000
  11. Public Const WS_EX_TRANSPARENT = &H20&
  12. Public Const LWA_ALPHA = &H2&
  13. Public Enum FadeDirection
  14.    Fadein = -1
  15.    Fadeout = 0
  16.    Fadezero = 1
  17.    SetOpacity = 1
  18. End Enum
  19. Public Sub FadeForm(frm As Form, Optional Direction As FadeDirection = FadeDirection.Fadein, _
  20. Optional iDelay As Integer = 0, Optional StartOpacity As Long = 5)
  21. If frm Is Nothing Then: Exit Sub
  22. On Error GoTo van
  23.    Dim lOriginalStyle As Long
  24.    Dim iCtr As Integer
  25.    If (frm.PopUp = True) Then
  26.        lOriginalStyle = GetWindowLong(frm.hWnd, GWL_EXSTYLE)
  27.        SetWindowLong frm.hWnd, GWL_EXSTYLE, lOriginalStyle Or WS_EX_LAYERED
  28.        If (lOriginalStyle = 0) And (Direction <> FadeDirection.SetOpacity) Then
  29.           FadeForm frm, SetOpacity, , StartOpacity
  30.        End If
  31.        Select Case Direction
  32.           Case FadeDirection.Fadezero
  33.               iCtr = StartOpacity
  34.               SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
  35.           Case FadeDirection.Fadein
  36.               If StartOpacity < 1 Then StartOpacity = 1
  37.               For iCtr = StartOpacity To 255 Step 1
  38.                  SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
  39.                  DoEvents
  40.                '  Debug.Print iCtr
  41.                 Sleep iDelay
  42.               Next
  43.           Case FadeDirection.Fadeout
  44.               If StartOpacity < 6 Then StartOpacity = 255
  45.               For iCtr = StartOpacity To 1 Step -1
  46.                  SetLayeredWindowAttributes frm.hWnd, 0, CByte(iCtr), LWA_ALPHA
  47.                  DoEvents
  48.                  Sleep iDelay
  49.               Next
  50.           Case Else
  51.               Select Case StartOpacity
  52.                  Case Is < 1: StartOpacity = 1
  53.                  Case Is > 255: StartOpacity = 255
  54.               End Select
  55.               SetLayeredWindowAttributes frm.hWnd, 0, CByte(StartOpacity), LWA_ALPHA
  56.                  DoEvents
  57.                  Sleep iDelay
  58.        End Select
  59.    Else
  60.        MsgBox "Forma mora biti Popup", vbOKOnly & vbInformation, "Ne
  61. e ii"
  62.    End If
  63. van:
  64. End Sub
Poziv na formi:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Dim MojInt
  3. Private Sub Form_Open(Cancel As Integer)
  4. Me.TimerInterval = 2
  5. FadeForm Me, Fadezero, 1, 5
  6. End Sub
  7. Private Sub Form_Timer()
  8. On Error Resume Next
  9. If IsEmpty(MojInt) Then
  10.     FadeForm Me, Fadein, 1, 15
  11.    MojInt = 1
  12. End If
  13.  Me.TimerInterval = 0
  14. End Sub
Prilozi:
Fade_in_out.rar (Velicina datoteke:29.98 KB)

miro35 09.11.2012 09: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):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Public Function SetProperties(strPropName As String, _
  5. varPropType As Variant, varPropValue As Variant) As Integer
  6.  
  7.     On Error GoTo Err_SetProperties
  8.  
  9.     Dim db As DAO.Database, prp As DAO.Property
  10.  
  11.     Set db = CurrentDb
  12.     db.Properties(strPropName) = varPropValue
  13.     SetProperties = True
  14.     Set db = Nothing
  15.  
  16. Exit_SetProperties:
  17.     Exit Function
  18.  
  19. Err_SetProperties:
  20.     If Err = 3270 Then    'Property not found
  21.         Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
  22.         db.Properties.Append prp
  23.         Resume Next
  24.     Else
  25.         SetProperties = False
  26.         MsgBox "SetProperties", Err.Number, Err.Description
  27.         Resume Exit_SetProperties
  28.     End If
  29. End Function
Zatim na neku formu najbolje ulaznu formu stavimo command buton "bDisableBypassKey"
Na click tog dugmeta će biti ovo:
PreuzmiIzvorni kôd (Text):
  1. Private Sub bDisableBypassKey_Click()
  2. On Error GoTo Err_bDisableBypassKey_Click
  3.    
  4.     Dim strInput As String
  5.     Dim strMsg As String
  6.    
  7.     BEEP
  8.     strMsg = "Da li želite uklju
  9. iti Shift Tipku za aplikaciju?" & vbCrLf & vbLf & "Molim unesite programerski password za ovu opciju."
  10.     strInput = InputBox(Prompt:=strMsg, Title:="Uklju
  11. i Shift passwordom ili isklju
  12. i")
  13.    
  14.     If strInput = "Ovde password" Then
  15.         SetProperties "AllowBypassKey", dbBoolean, True
  16.         BEEP
  17.         MsgBox "Funkcija izvrÅ¡ena." & vbCrLf & vbLf & "Shift Tipka je uklju
  18. ena prilikom sljedeeg pokretanja aplikacije.", vbInformation, "Startup uklju
  19. en"
  20.     Else
  21.         BEEP
  22.         SetProperties "AllowBypassKey", dbBoolean, False
  23.         MsgBox "PogreÅ¡no ''Klju
  24. '' Password!" & vbCrLf & vbLf & "Shift tipka je isklju
  25. ena." & vbCrLf & vbLf & "Shift tipka je isklju
  26. ena prilikom sljedeeg pokretanja aplikacije.", vbCritical, "Pogrešan password"
  27.         Exit Sub
  28.     End If
  29.    
  30. Exit_bDisableBypassKey_Click:
  31.     Exit Sub
  32.    
  33. Err_bDisableBypassKey_Click:
  34.     MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
  35.     Resume Exit_bDisableBypassKey_Click
  36. 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 17:22
Predmet:Re: Access trikovi

Kopirajte ovaj kod u vas izvjestaj ukoliko zelite da vam izvjestaj bude uokviren.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Report_Page()
  2.        On Error Resume Next
  3.          Me.DrawWidth = 6
  4.          Me.DrawStyle = 0
  5.          Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbGreen, B
  6. End Sub

zxz 13.02.2013 18: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 19: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)