Centar za edukaciju-BiH


switch Lista naslova: Access trikovi

#41 02.06.2012 13:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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);

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#42 02.06.2012 18:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#43 02.06.2012 23:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#44 11.06.2012 11:27
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Access trikovi
Koristim, samo mi reci je li to Accessova naredba ili je prepoznaju i drugi DBMS?
↑  ↓

#45 11.06.2012 12:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Access trikovi
Nz je accessova naredba nalazi se u biblioteci msacc.olb.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#46 12.09.2012 11:40
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


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:
Informacije o tipu datoteke za:rar  Fade_in_out.rar
Preuzimanja:401
Velicina datoteke:29.98 KB

↑  ↓

#47 09.11.2012 09:12
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#48 13.02.2013 17:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#49 13.02.2013 18:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Access trikovi
I ovo je jedan mali trik za uljepsavanje vase app.

Prilozi:
Informacije o tipu datoteke za:zip  LabelaTrik.zip
Preuzimanja:394
Velicina datoteke:7.55 KB


Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#50 13.02.2013 19:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Access trikovi
Obratite paznju da je u recordsource obje forme isti query.
Mozda vam padne ideja da ovo negdje i iskoristite.

Prilozi:
Informacije o tipu datoteke za:zip  QueryTrik.zip
Preuzimanja:404
Velicina datoteke:32.65 KB


Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (10):1,2,3,4,5,6,7,8,9,10


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 37 am.