[ Pobierz całość w formacie PDF ]
.Response = acDataErrContinueTworzenie automatycznie rozwijaj�cej si� listy rozwijanejIle razy chcia�e� po prostu przej�� do pola listy tak, by rozwin�a si�automatycznie bez u�y�cia polecenia SendKeys? W Accessie 97, jedyne co musiszzrobi� to wpisa� po�ni��sz� linijk� kodu do zdarzenia Enter:ActiveControl.DropDownTo wszystko!Tworzenie w�asnych list rozwijanychZazwyczaj warto�ci w rozwijanych polach pochodz� z tabeli lub kwerendy.Ale tonie jest jedyna mo�liwo��.Ustawiaj�c w�a�ciwo�� Typ �ród�a wierszy na Listapól, mo�esz wy�bra� przegl�danie pól w bazowej tabeli lub kwerendzie.Mo�eszrównie� wybra� w�tej w�a�ciwo�ci nazw� dowolnej funkcji, która b�dziewy�wietla� dowoln� list�.Na�wet, je�li nie zauwa�ysz od razu korzy�cip�yn�cych z takiego rozwi�zania, przydaje si� ono, gdy chcesz doda� do listyspecjaln� warto�� jak na przyk�ad Wszystkie.Opcja ta przy�da si� równie�, gdyb�dziesz chcia� wy�wietli� przydatn� dla ksi�gowych, wy�rów�na�n� do prawejlist� warto�ci walutowych.To ostatnie rozwi�zanie mo�liwe jest po�przezumieszczenie spacji po lewej stronie warto�ci i wy�wietlenie za pomoc� czcionkio sta�ej szeroko�ci (np.Courier).Oto fragment kodu, znajduj�cy si� w bazie danych Solutions.mdb, któryprzedstawia spo�sób, jak doda� u góry listy rozwijanej warto�� specjaln�Wszystkie.Function AddAllToList(ctl As Control, lngID As Long, _lngRow As Long, lngCol As Long, intCode As Integer) As Variant' Dodaje u góry listy warto�� specjaln� "Wszystkie"' Mo�na doda� "Wszystkie" do ró�nych kolumn listyStatic dbs As Database, rst As RecordsetStatic lngDisplayID As LongStatic intDisplayCol As IntegerStatic strDisplayText As StringDim intSemiColon As IntegerOn Error GoTo Err_AddAllToListSelect Case intCodeCase acLBInitialize' See if function is already in use.If lngDisplayID 0 ThenMsgBox "AddAllToList Jest ju� u�ywane przez inny formant !"AddAllToList = FalseExit FunctionEnd If' Wy�uskanie kolumny do wy�wietlenia i wy�wietlenie tekstu z' w�asno�ci TagintDisplayCol = 1.strDisplayText = "(Wszystkie)"If Not IsNull(ctl.Tag) ThenintSemiColon = InStr(ctl.Tag, ";")If intSemiColon = 0 ThenintDisplayCol = Val(ctl.Tag)ElseintDisplayCol = Val(Left(ctl.Tag, intSemiColon - 1))strDisplayText = Mid(ctl.Tag, intSemiColon + 1)End IfEnd If' Otwórz recordset zdefiniowany przez w�asno�� RowSourceSet dbs = CurrentDbSet rst = dbs.OpenRecordset(ctl.RowSource, dbOpenSnapshot)' Zapami�taj i zwró� lngIdlngDisplayID = TimerAddAllToList = lngDisplayIDCase acLBOpenAddAllToList = lngDisplayIDCase acLBGetRowCount' Zwró� ilo�� wierszy w wynikuOn Error Resume Nextrst.MoveLastAddAllToList = rst.RecordCount + 1.Case acLBGetColumnCount' Zwró� ilo�� kolumn w wynikuAddAllToList = rst.Fields.CountCase acLBGetColumnWidthAddAllToList = -1.Case acLBGetValueIf lngRow = 0 ThenIf lngCol = int0isplayCol - 1 ThenAddAllToList = strDisplayTextElseAddAllToList = NullEnd IfElserst.MoveFirstrst.Move lngRow - 1AddAllToList = rst(lngCol)End IfCase acLBEndlngDisplayID = 0rst.CloseEnd SelectBye_AddAllToList:Exit FunctionErr_AddAllToList:MsgBox Err.Description, vbOKOnly + vbCritical, "AddAllToList"AddAllToList = FalseResume Bye_AddAllToListEnd FunctionPobieranie wi�cej ni� jednej warto�ci z pola listy i listy rozwijanejKorzystaj�c z w�a�ciwo�ci Column, mo�esz pobra� warto�� z dowolnej kolumny wpolu lis�ty lub listy rozwijanej.W w�a�ciwo�ci Column pierwsza kolumna manumer 0, druga 1, i tak dalej.Przyk�adowo, aby odczyta� warto�� z czwartej kolumny listy rozwijanej,wpisa�by�:MyVariantValue = Me!MyComboBox.Column(3)Pole listyPole listy przypomina opisan� powy�ej list� rozwijan�.Ró�nica tkwi wmo�liwo�ci prze�gl�dania wszystkich mo�liwych warto�ci bez konieczno�cirozwijania listy.Rów�nie� w przeciwie�stwie do listy rozwijanej, pole listyumo�liwia wybranie kilku war�to��ci jednocze�nie.Opcja ta przydaje si� wsytuacji, gdy chcesz umo�liwi� u�ytkownikowi w�two�rzonym przez Ciebie systemieprzegl�danie informacji o 5 ze 100 wpisów (fak�tu�ry, ludzie, p�yty CD czyci�arówki).Poniewa� wi�kszo�� w�a�ciwo�ci pola listy zos�ta��a ju� opisana,skoncentrujemy si� na ró�nicach.Pole listy wielokrotnego wyboruW Accessie 2 istnia�y sztuczki pozwalaj�ce na umo�liwienie u�ytkownikomwybieranie kil�ku warto�ci z listy.Pocz�wszy od Accessa 2000, wybieranie kilkuwarto�ci naraz sta��o si� �atwe dzi�ki polu listy wielokrotnego wyboru.Jednak�e pobieranie wybranych war�to�ci nie zawsze jest tak intuicyjne.Ustawienia w�a�ciwo�ciAby u�ywa� pola listy wielokrotnego wyboru, musisz najpierw utworzy� zwyk�epole lis�ty i pó�niej przekszta�ci� je w pole wielokrotnego wyboru.Mo�esz tegodokona�, zmie�niaj�c znajduj�c� si� na arkuszu w�a�ciwo�ci obiektu w�a�ciwo��Wybór wielo�krot�ny.W tabeli 8
[ Pobierz całość w formacie PDF ]
