Witam,
chciałem użyć tego kawałka kodu żeby na formie wyświetlić kryteria wyboru pracowników :
Kod:
Option Explicit
Dim WithEvents Prac As MxKdPracownicyWybor
Dim gl_Pracownik As MxKdPracownik
Dim DoSelectElem As Boolean
Dim gl_DaneKadr As MxKdDaneKadrowe
Dim gl_Elem As MxKdElement
Private Sub UserForm_Initialize()
Set Prac = MainElement.GetMxKdPracownicyWybor
Prac.CreateControls Controls, -8
End Sub
Dim WithEvents Prac As MxKdPracownicyWybor
Dim gl_Pracownik As MxKdPracownik
Dim DoSelectElem As Boolean
Dim gl_DaneKadr As MxKdDaneKadrowe
Dim gl_Elem As MxKdElement
Private Sub UserForm_Initialize()
Set Prac = MainElement.GetMxKdPracownicyWybor
Prac.CreateControls Controls, -8
End Sub
Ale po użyciu dostaję komunikat załączony na ekranie.
Czy w nieprawidłowy sposób inicjalizuję kontrolkę ?? To jest kawałek kodu z vba napisanego przez Sage.
| Załączniki: |
|
error.JPG [ 29.31 KiB | Przeglądany 2004 razy ] |