zxz 08.11.2013 10:40
Predmet:Shortcut meny

Kako napraviti Skocni meni na desnom misu.
Napravite klasicni meni bar.
kako se pravi imate ovdje Yes

Sada se pozicionirajte na vas tul bar odnosno bolje reci selektujte vas tul bar.
Kada selektujete kliknite na commandni taster properties.
Kada vam se otvori drugi prozor u njemu u opciji type odaberete Popup
Prilozi:
mini2.gif (Velicina datoteke:4.39 KB)
mini1.gif (Velicina datoteke:6.64 KB)

dex 12.12.2013 21:25
Predmet:Redni broj stavke

Ukoliko zelite da u tabeli stavke dokumenta kao primarni kljuc imate kombinaciju IdDokumenta i redni broj stavke na BeforeInsert podforme za unos stavke stavite

me.redniBroj=me.Recordset.RecordCount + 1

zxz 24.01.2014 21:16
Predmet:kontrola unosa znakova

Kako dozvoliti ukucavanje samo odredjenih znakova u neko polje:
Napravite neko tekst polje i dajte mu ime T.
Na Key Press stavite ovaj kod ispod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub T_KeyPress(KeyAscii As Integer)
  2. If Provjera(KeyAscii) = False Then KeyAscii = 0
  3. End Sub

Ovu proceduru mozete staviti bilo gdje u bilo koji modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Provjera(Taster As Integer) As Boolean
  2. Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati
  3. Dim Znak As String
  4.  
  5. Znak = Chr(Taster)
  6. If InStr(1, znaci, Znak) > 0 Then
  7. Provjera = True
  8. Else
  9. Provjera = False
  10. End If
  11.  
  12. End Function

zxz 30.01.2014 00:24
Predmet:Boja polja u fokusu

Napravite neku autoformu na osnovu neke vase tabele.
U timer interval stavite 100.
Na on timer postavite kod ispod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Timer()
  2. On Error Resume Next
  3.     Screen.PreviousControl.ForeColor = 0
  4.     Screen.PreviousControl.BackColor = 16777215
  5.     Me.ActiveControl.ForeColor = 252525
  6.     Me.ActiveControl.BackColor = 65535
  7. End Sub

Dali vam se svidja ova igracka?

zxz 15.02.2014 10:41
Predmet:Redim variabli

Ukoliko vrsite redimenzionisanje neke variable onda ce ona izgubiti sve vrijednosti koje je do tada imala.
Tako je najlakse naprimjer vratiti sve vrijednosti na nulu.
Dim i As Integer
Dim V()

ReDim V(10)
For i = 1 To 10
V(i) = i
Next i

'Poslije ovoga su sve vtijednost V 0d 0 do 10 suz ibrisane
ReDim V(10)

Medjutim ako dimenzionisemo ovako:
ReDim Preserve V(10) As Integer
Sve ce vrijednosti biti zadrzane.

zxz 13.03.2014 21:32
Predmet:Broj redova u tabelama

Nekata i to zatreba, da iscitate koliko koja tabela ima upisanih redova.
To mozete iscitati pomocu ovoga Query-a.
Ime mu mozete dati po zelji a sadrzaj je ispod:
PreuzmiIzvorni kôd (SQL):
  1. SELECT MSysObjects.Name, DCount("*",[Name]) AS Broj_redova, IIf([TYPE]=1,"Tabela u bazi","Linkana tabela") AS Vrsta_Tabele
  2. FROM MSysObjects
  3. WHERE (((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.TYPE) IN (1,6)))
  4. ORDER BY MSysObjects.Name;

zxz 18.07.2014 11:19
Predmet:Ograninecenje kretanja kursora

Primjer ogranicenja kretanja kursora.
U ovom slucaju kursor se moze kretati samo po formi.
app. Access97.
Prilozi:
OgraniciKursor.zip (Velicina datoteke:7.07 KB)

zxz 19.02.2015 22:50
Predmet:Kako iscitati tip variable

Jeste li koristili komandu VarType.
Vjerovatno niste ali mozda vam nekada zatreba.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TipVar()
  2. Dim MojaVar As Double
  3. Dim DrugaVar As String
  4.  
  5. DrugaVar = VarType(MojaVar)
  6. End Functio

Tipovi varijabli i kodovi:
vb nazivsifraopis
vbEmpty Empty (uninitialized)
vbNull1Null (no valid data)
vbInteger2Integer
vbLong3Long integer
vbSingle4Single-precision floating-point number
vbDouble5Double-precision floating-point number
vbCurrency6Currency value
vbDate7Date value
vbString8String
vbObject9Object
vbError10Error value
vbBoolean11Boolean value
vbVariant12Variant (used only with arrays of variants)
vbDataObject13A data access object
vbDecimal14Decimal value
vbByte17Byte value
vbArray8192Array

roko 23.02.2015 15:10
Predmet:Re: Access trikovi

Kreiranje GUIID
Ako nekome treba GUIID za slanje podataka
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2. DefLng A-Z
  3. Private Type GUID
  4.         Data1 As Long
  5.         Data2 As Integer
  6.         Data3 As Integer
  7.         Data4(0 To 7) As String * 1
  8.     End Type
  9.     Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long
  10. 'Za access 64 bita
  11. ' Declare PtrSafe Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long
  12. Const mciLen As Integer = 4     'svakih part's
  13.  
  14. Public Function CreateGUID() As String
  15.     Dim sGUID   As String       '= result
  16.    Dim TGUID   As GUID         'unutar structure
  17.    If CoCreateGuid(TGUID) = 0 Then ' API uzmi GUID
  18.        With TGUID              'build return string
  19.            sGUID = "{" & PadLeft(Hex(.Data1), mciLen * 2) & "-"
  20.             sGUID = sGUID & PadLeft(Hex(.Data2), mciLen) & "-"
  21.             sGUID = sGUID & PadLeft(Hex(.Data3), mciLen) & "-"
  22.             sGUID = sGUID & FormatGUIDData4(.Data4())
  23.         End With
  24.         sGUID = sGUID & "}"     'end
  25.        CreateGUID = sGUID
  26.     End If
  27. End Function
  28.  
  29. Private Function FormatGUIDData4(aryData4() As String * 1) As String
  30.     Dim i       As Integer      'loop KROZ
  31.    Dim sGUID   As String       'resultat
  32.    Dim sTemp1  As String       '1. part
  33.    Dim sTemp2  As String       '2.part
  34.    For i = LBound(aryData4()) To UBound(aryData4())   'process string array
  35.        If i < 2 Then           '1. part
  36.            sTemp1 = sTemp1 & Hex(Asc(aryData4(i)))
  37.         Else                    '2. part
  38.            sTemp2 = sTemp2 & Hex(Asc(aryData4(i)))
  39.         End If
  40.     Next
  41.     sGUID = PadLeft(sTemp1, mciLen) & "-" & PadLeft(sTemp2, mciLen * 3) 'pad left s nulama
  42.    FormatGUIDData4 = sGUID                     'return gotov
  43. End Function
  44.  
  45. Private Function PadLeft(sString As String, iLen As Integer) As String
  46. '  left zreos ako bude
  47.    Dim sTemp As String
  48.     sTemp = right$(String$(iLen, "0") & sString, iLen)
  49.     PadLeft = sTemp
  50. End Function

zxz 27.02.2015 12:50
Predmet:Providna forma

Mozda i ovo nekome zatreba.
Primjer kako formu mozete napraviti providnom.
Prilozi:
TransparentForma.zip (Velicina datoteke:14.49 KB)