Centar za edukaciju-BiH


switch Lista naslova: Access trikovi
Stranice (10):1,2,3,4,5,6,7,8,9,10

#71 08.11.2013 09:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Slicice prilozenih slika:
mini2.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:330
Velicina datoteke:4.39 KB
Velicina slike: 377 x 256 Pikseli
mini1.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:334
Velicina datoteke:6.64 KB
Velicina slike: 382 x 362 Pikseli


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 6 puta. Posljednja izmjena 08.11.2013 09:51 od strane zxz. ↑  ↓

#72 12.12.2013 20:25
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


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

#73 24.01.2014 20:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#74 29.01.2014 23:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#75 15.02.2014 09:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#76 13.03.2014 20:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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;

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#77 18.07.2014 10:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Ograninecenje kretanja kursora
Primjer ogranicenja kretanja kursora.
U ovom slucaju kursor se moze kretati samo po formi.
app. Access97.

Prilozi:
Informacije o tipu datoteke za:zip  OgraniciKursor.zip
Preuzimanja:366
Velicina datoteke:7.07 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#78 19.02.2015 21:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#79 23.02.2015 14:10
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


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

#80 27.02.2015 11:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Providna forma
Mozda i ovo nekome zatreba.
Primjer kako formu mozete napraviti providnom.

Prilozi:
Informacije o tipu datoteke za:zip  TransparentForma.zip
Preuzimanja:366
Velicina datoteke:14.49 KB


Podrška 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: 6: 06 pm.