Příklady - Halbich

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 student.[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 CommandButton1_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 Variant
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 _
zachová 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

Private Sub