Budowa bloku poleceń PL/SQL do użycia w makrach przy pomocy ADODB

block = "declare"
block = block & " zm1 typ1"
block = block & " zm2 typ2;"
block = block & " begin"
block = block & " kom1;"
block = block & " kom2"
block = block & " kom3;"
block = block & " commit;"
block = block & " end;"


Wywołanie

Wypisanie aktualnej daty

Date


Wypisanie aktualnej daty i godziny w określonym formacie

Format(Now(), "dd_mm_yy_hh_mm")


Wypisanie zmiennej z godziną w formacie HH:mm

Format(start_hour, "HH:MM")


Zagadnienie: Chcemy mieć na wstążce przycisk włączający wybrany formularz
Rozwiązanie:

Aktywowanie wybranego textboxa

InputBox_EAN_Bad.SetFocus


Ponowne aktywowanie textboxa po zatwierdzeniu tekstu Enterem
Gdy chcemy aby po wpisaniu tekstu w textboxie i zatwierdzeniu go enterem kontrolka ta była ponownie aktywna musimy dodać na końcu bloku instrukcji komendę

KeyCode = 0


Zagadnienie: Chcemy mieć zmienną do użytku w wielu procedurach
Rozwiązanie: Zmienną globalną dodajemy w Modules

Pokazanie formularza

Odbij_EAN_Good.Show


Ukrycie i rozładowanie formularza (wykonywane będąc na nim)

Unload Me


Uzupełnienie listy Comboboxa na bazie kolumny z arkusza

Private Sub ComboBox1_DropButtonClick()
Dim r As Range
With Worksheets("Users")
Set r = .Range("A2", .Range("A65536").End(xlUp))
End With
ComboBox1.ListFillRange = "Users!" & r.Address
End Sub


Czyszczenie Comboboxa

Sheets("Main").ComboBox1.Value = ""


Zagadnienie: Chcemy wyłączyć alerty (np. pojawiające się przy usuwaniu arkusza)
Rozwiązanie: Dodajemy następująca linijkę kodu:

Application.DisplayAlerts = False


Zagadnienie: Chcemy by określone instrukcje wykonywały sie po naciśnięciu klawisza Enter w np. TextBoxie
Rozwiązanie: W procedurze KeyDown


dodajemy następujący kod:

If KeyCode = vbKeyReturn Then
... instrukcje ...
End If


W przypadku, gdy chcemy złamać linię z kodem pojawia się komunikat

Aby rozwiązać ten problem dodajemy na końcu łamanej linii znak "_"