ukázky příkladů

0161; ková evidence].zná mka
FROM student INNER JOIN (predmety INNER JOIN [př ihláš ky a zkouš ková evidence] ON predmety.[kó d př edmě tu] = [př ihláš ky a zkouš ková evidence].[kó d př edmě tu]) ON stude nt.[rodné čí slo] = [př ihláš ky a zkouš ková evidence].[rodné čí slo]
GROUP BY [př ihláš ky a zkouš ková evidence].zná mka, student.pří jmení , predmety.[ná zev př edmě tu], [př ihláš ky a zkouš ková evidence].pokus
HAVING ((([př ihláš ky a zkouš ková evidence].pokus)=1));



Sub Pridej ( )
Documents.Add
Documents.Open(” cesta k dokumentu a ná zev” )
End Sub

Sub Zavri( )
ActiveDocument.Close
Pridej
End Sub

If CommandButton1.Enabled Then
[pří kazy]
Else
[pří kazy2]
EndIf


Private Sub CommandButton1_Click()
Druhý .Hide
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()
Druhý .Hide
První .Hide
End Sub


Private Sub CommandButton1_Click()
Druhý .Show
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub CommandButton1_Click()
Dim a As Single
a = InputBox("zadej hodnotu")
MsgBox ("zadaná hodnota " & a)
MsgBox (Pro(a, 5) & "%")
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()
UserForm2.Hide
End Sub
Private Sub CommandBu tton1_Click()
dbb = Pro(150, 15)
MsgBox "vý sledek volané obecné funkce " & dbb
End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub UserForm_Click()

End Sub

Function Soucet(ParamArray varPole() As Variant)
Rem To, co je za Rem nebo za apostrofem na té mž e _
řá dku je pozná mka, je psaná zeleně !!! _
mezera a podtrží tko je pokrač ová ní řá dku
Rem Musí bý t deklarová no jako pole typů Variant
Rem Jde to i bez As Variant
Dim varSoucet, var 'muze bý t As Varian t
Rem Je to deklarace vnitř ní ch promě nný ch procedury (funkce)
varSoucet = 0 'nemusí bý t nulová no
For Each var In varPole
varSoucet = varSoucet + var
Next var
Soucet = varSoucet
End Function
Sub zkus()
Rem Ná sleduje volá ní funkce
Rem Zkuste obmě nit po č et prvku
X = Soucet(10, 20, 30, 40, 50, 100)
MsgBox (X)
Rem Ná sledují cí pří kaz nepracuje, je zde jako pozná mka
Rem Documents("Soucetprvkupole.doc").PrintOut
Rem Nebo Documents(1).PrintOut
End Sub

Rem Deklarač ní sekce formulář e
Rem Toto je deklarace dynamický ch polí pro uklá dá ní jmen a hesel
Rem Ná sleduje deklarace promě nné X, která slouží jako poč itadlo _
kolikrá t se spustí udá lostní procedura, která uklá dá jmé na a hesla _
a zá roveň slouží jako horní mez indexu
Rem X se nastaví na 1 př i aktivaci formulář e, pří padně kliknutí m _
na tlačí tko CommandButton3
Private Usernames() As String
Private Passwords() As String
Dim X As Integer
Private Sub CommandButton1_Click()
Rem Ná sleduje alokace X mí st pro pole Usernames a Passwords _
zach ová se př itom dosavadní obsah polí , pole se jenom rozšíří
Rem Použ ije se dosaž ená hodnota promě nné X
ReDim Preserve Usernames(X)
ReDim Preserve Passwords(X)
Rem Vlož ený obsah textový ch polí TextBox1 a TextBox2 se uloží _
a zvýší se hodnota X
Usernames(X) = TextBox1.Text
Passwords(X) = TextBox2.Text
X = X + 1
End Sub

Private Sub CommandButton2_Click()
Rem Je mož né deklarovat promě nné temp a temp2
Rem I bez deklarace budou typu Variant
Dim temp As Variant, temp2 As Variant
Rem Ná sleduje pří kaz cyklu, který p ř iř azuje jmé na a hesla _
promě nný m temp a temp2, oddě luje je čá rkou
For i = 1 To X - 1
temp = temp & Usernames(i) & ","
temp2 = temp2 + Passwords(i) + ","
Next i
Rem MsgBox zobrazí řá dek jmen a řá dek hesel
MsgBox ("Usernames: " + temp + Chr$(13) + Chr$(10) + "Passwords:" + temp2)
Rem Ná sledují cí cyklus tiskne jednotlivá jmé na pole Usernames _
pod sebe
For i = 1 To X - 1
MsgBox (Usernames(i))
Next i
End Sub

Private Sub CommandButton3_Click()
X = 1
End Sub



Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()
X = 1
End Sub



Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub objem_Change()

End Sub