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

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

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

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): Private Sub T_KeyPress(KeyAscii As Integer) If Provjera(KeyAscii) = False Then KeyAscii = 0 End Sub Ovu proceduru mozete staviti bilo gdje u bilo koji modul. PreuzmiIzvorni kôd (Visual Basic): Function Provjera(Taster As Integer) As Boolean Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati Dim Znak As String Znak = Chr(Taster) If InStr(1, znaci, Znak) > 0 Then Provjera = True Else Provjera = False End If End Function

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

Private Sub T_KeyPress(KeyAscii As Integer)
If Provjera(KeyAscii) = False Then KeyAscii = 0
End Sub

Ovu proceduru mozete staviti bilo gdje u bilo koji modul.

PreuzmiIzvorni kôd (Visual Basic):

Function Provjera(Taster As Integer) As Boolean
Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati
Dim Znak As String
Znak = Chr(Taster)
If InStr(1, znaci, Znak) > 0 Then
Provjera = True
Else
Provjera = False
End If
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): Private Sub Form_Timer() On Error Resume Next Screen.PreviousControl.ForeColor = 0 Screen.PreviousControl.BackColor = 16777215 Me.ActiveControl.ForeColor = 252525 Me.ActiveControl.BackColor = 65535 End Sub Dali vam se svidja ova igracka?

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

Private Sub Form_Timer()
On Error Resume Next
Screen.PreviousControl.ForeColor = 0
Screen.PreviousControl.BackColor = 16777215
Me.ActiveControl.ForeColor = 252525
Me.ActiveControl.BackColor = 65535
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

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): SELECT MSysObjects.Name, DCount("",[Name]) AS Broj_redova, IIf([TYPE]=1,"Tabela u bazi","Linkana tabela") AS Vrsta_Tabele FROM MSysObjects WHERE (((MSysObjects.Name) NOT LIKE "MSys") AND ((MSysObjects.TYPE) IN (1,6))) ORDER BY MSysObjects.Name;

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

SELECT MSysObjects.Name, DCount("*",[Name]) AS Broj_redova, IIf([TYPE]=1,"Tabela u bazi","Linkana tabela") AS Vrsta_Tabele
FROM MSysObjects
WHERE (((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.TYPE) IN (1,6)))
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

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

Function TipVar()
Dim MojaVar As Double
Dim DrugaVar As String
DrugaVar = VarType(MojaVar)
End Functio

Tipovi varijabli i kodovi:

vb naziv	sifra	opis
vbEmpty		Empty (uninitialized)
vbNull	1	Null (no valid data)
vbInteger	2	Integer
vbLong	3	Long integer
vbSingle	4	Single-precision floating-point number
vbDouble	5	Double-precision floating-point number
vbCurrency	6	Currency value
vbDate	7	Date value
vbString	8	String
vbObject	9	Object
vbError	10	Error value
vbBoolean	11	Boolean value
vbVariant	12	Variant (used only with arrays of variants)
vbDataObject	13	A data access object
vbDecimal	14	Decimal value
vbByte	17	Byte value
vbArray	8192	Array

roko	23.02.2015 15:10
Predmet:Re: Access trikovi Kreiranje GUIID Ako nekome treba GUIID za slanje podataka PreuzmiIzvorni kôd (Visual Basic): Option Explicit DefLng A-Z Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As String * 1 End Type Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long 'Za access 64 bita ' Declare PtrSafe Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long Const mciLen As Integer = 4 'svakih part's Public Function CreateGUID() As String Dim sGUID As String '= result Dim TGUID As GUID 'unutar structure If CoCreateGuid(TGUID) = 0 Then ' API uzmi GUID With TGUID 'build return string sGUID = "{" & PadLeft(Hex(.Data1), mciLen * 2) & "-" sGUID = sGUID & PadLeft(Hex(.Data2), mciLen) & "-" sGUID = sGUID & PadLeft(Hex(.Data3), mciLen) & "-" sGUID = sGUID & FormatGUIDData4(.Data4()) End With sGUID = sGUID & "}" 'end CreateGUID = sGUID End If End Function Private Function FormatGUIDData4(aryData4() As String * 1) As String Dim i As Integer 'loop KROZ Dim sGUID As String 'resultat Dim sTemp1 As String '1. part Dim sTemp2 As String '2.part For i = LBound(aryData4()) To UBound(aryData4()) 'process string array If i < 2 Then '1. part sTemp1 = sTemp1 & Hex(Asc(aryData4(i))) Else '2. part sTemp2 = sTemp2 & Hex(Asc(aryData4(i))) End If Next sGUID = PadLeft(sTemp1, mciLen) & "-" & PadLeft(sTemp2, mciLen * 3) 'pad left s nulama FormatGUIDData4 = sGUID 'return gotov End Function Private Function PadLeft(sString As String, iLen As Integer) As String ' left zreos ako bude Dim sTemp As String sTemp = right$(String$(iLen, "0") & sString, iLen) PadLeft = sTemp End Function

roko

23.02.2015 15:10

Predmet:Re: Access trikovi

Kreiranje GUIID
Ako nekome treba GUIID za slanje podataka

PreuzmiIzvorni kôd (Visual Basic):

Option Explicit
DefLng A-Z
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As String * 1
End Type
Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long
'Za access 64 bita
' Declare PtrSafe Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long
Const mciLen As Integer = 4 'svakih part's
Public Function CreateGUID() As String
Dim sGUID As String '= result
Dim TGUID As GUID 'unutar structure
If CoCreateGuid(TGUID) = 0 Then ' API uzmi GUID
With TGUID 'build return string
sGUID = "{" & PadLeft(Hex(.Data1), mciLen * 2) & "-"
sGUID = sGUID & PadLeft(Hex(.Data2), mciLen) & "-"
sGUID = sGUID & PadLeft(Hex(.Data3), mciLen) & "-"
sGUID = sGUID & FormatGUIDData4(.Data4())
End With
sGUID = sGUID & "}" 'end
CreateGUID = sGUID
End If
End Function
Private Function FormatGUIDData4(aryData4() As String * 1) As String
Dim i As Integer 'loop KROZ
Dim sGUID As String 'resultat
Dim sTemp1 As String '1. part
Dim sTemp2 As String '2.part
For i = LBound(aryData4()) To UBound(aryData4()) 'process string array
If i < 2 Then '1. part
sTemp1 = sTemp1 & Hex(Asc(aryData4(i)))
Else '2. part
sTemp2 = sTemp2 & Hex(Asc(aryData4(i)))
End If
Next
sGUID = PadLeft(sTemp1, mciLen) & "-" & PadLeft(sTemp2, mciLen * 3) 'pad left s nulama
FormatGUIDData4 = sGUID 'return gotov
End Function
Private Function PadLeft(sString As String, iLen As Integer) As String
' left zreos ako bude
Dim sTemp As String
sTemp = right$(String$(iLen, "0") & sString, iLen)
PadLeft = sTemp
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)