Czym zajmuje się KAMIENIARSTWO ?
Temat: Blad 3061 :((((( HELP ME!!!
Witam, Jeżeli to jest to co myślę to sprawdź coś takiego: set rst=dbs.OpenRecordset("NazwaTabeli", DB_OPEN_DYNASET)
Źródło: topranking.pl/1249/blad,3061,help,me.php
Temat: pliki DBF - czytanie w Accessie
...glowy. Na codzien pisze w Perlu gdzie ten problem jest banalny podobnie jak splitowanie po srednikach. Sytuacja jest taka: - Plik DBF jest powiedzmy plikiem ze stanami magazynowymi (aktualizowany raz dziennie) - W Accesie jest zrobiony przycisk Generuj pliki! - Chodzi o to aby podczas generowania, powiedzmy pliku CSV, czesc jego pol byla aktualizowana danymi z pliku DBF (full automat - zadnych okien) Sprobuje jakos tak: Set rs6 = db.OpenRecordset("Test", DB_OPEN_DYNASET) rs6.Sort = "SYMBOL" Set rs_filtered = rs6.OpenRecordset() rs_filtered.FindFirst "SYMBOL ''" Moze cos z tego wyjdzie. Dzieki za pomoc Slawek sla@msstudio.com.pl
Źródło: topranking.pl/1248/pliki,dbf,czytanie,w,accessie.php
Temat: Klucz podstawowy - wartości przyrostowe
...MAX_LOCK_COUNT = 10 Dim db As Database Dim idSet As Recordset intRet = True intSetOpened = True intLockCount = 0 Set db = ws.Databases(0) strSql = " select distinctrow KT_Table, KT_NumberKey " strSql = strSql & " from KT_KeyTable " strSql = strSql & " where KT_Table = '" & strTable & "'" Set idSet = db.OpenRecordset(strSql, DB_OPEN_DYNASET, DB_DENYREAD) intSetOpened = True If Not idSet.Eof Then idSet.Edit varIdx = idSet!KT_NumberKey + 1 idSet!KT_NumberKey = varIdx idSet.Update Else '-- Table record does not exist varIdx = 1 idSet.AddNew idSet!KT_Table = strTable idSet!KT_NumberKey = varIdx idSet.Update ...
Źródło: topranking.pl/1248/klucz,podstawowy,wartosci,przyrostowe.php
Temat: otwarcie zapytania w basicu
potrzebuję otworzyć zapytanie w basicu do tej pory było tak: Set plany1 = MyDB.OpenRecordset("etap1", DB_OPEN_DYNASET) i działało po przeniesieniu na accessa 2000 też działało dopóki tego nie ruszyłem. wyskakuje coś takiego Run-time error '3061' Za mało parametrów. Oczekiwano 1 nie mam pojęcia o co chodzi. Wiersz wyżej przy identycznej składni otwiera bez problemu. Czy jest to problem z wersją accessa czy też coś innego. Ewentualnie jak rozwiązać w inny sposób problem następujący: Rekordy z polami : [od], [do], [plan] Chcę...
Źródło: topranking.pl/1250/72,otwarcie,zapytania,w,basicu.php
Temat: Źródło Recordsetu
Witam Szanownych Koleżanki i Kolegów!!! Acc97 - Mam takie pytanie: Czy da się zrobić tak, żeby źródłem rekordsetu było zapytanie zdefiniowane w kodzie programu? np.: strKryterium="SELECT coś_tam FROM tabela WHERE warunki_jakieś_tam" set mojRekordset=mydb.OpenRecordset(strKryterium, DB_OPEN_DYNASET) Nie chcę, żeby useria widziała jakiekolwiek kwerendy i jeszcze mi tam coś grzebała, a poza tym warunki w WHERE są określane podczas działania kodu programu i nie można ich wprost odczytać z formantów na formie. Pozdrawiam Jacek Dobosz
Źródło: topranking.pl/1248/zrodlo,recordsetu.php
Temat: w jakim zdarzeniu
witam mam formularz z podformularzem, a w nim formant niezwiązany. W jakim zdarzeniu formularza umieścić tą procedure by zawsze była aktualna, ewentualnie co jeszcze dopisać? Dim mydb As Database, myrst As Recordset, mystr As String mystr = "Kwerenda1" Set mydb = CurrentDb() Set myrst = mydb.OpenRecordset(mystr, DB_OPEN_DYNASET) With myrst ' Populate Recordset. .MoveLast .MoveFirst Tekst23 = !suma .Close End With
Źródło: topranking.pl/1249/w,jakim,zdarzeniu.php
Temat: Dlaczego przy kompilacji występuje błąd?
Set MySet = MyDb.OpenRecordset("ExpArray", DB_OPEN_DYNASET) Nie jestem pewien, ale chyba próbujesz używać stałej
Źródło: topranking.pl/1248/dlaczego,przy,kompilacji,wystepuje,blad.php
Temat: Kwerenda parametryczna
... '' to jest kwerenda wybierająca dane z tabeli "OBROTY" wg kryterium forms!aaa!haslo ' powyższe raczej do niczego nie potrzebne, nie musisz kwerendy otwierać w interfejsie. Set qr=tabel.TableDefs("obr_kw1") ' poniżej sztuczka dla parametrów typu Forms!MojFormularz!MojePole For Each pr in qr.Parameters pr.Value=Eval(pr.Name) Next Set stru = tabel.OpenRecordset("obr_kw1", DB_OPEN_DYNASET) Set stru=qr.OpenRecordset With stru .AddNew ![IND] = Me!INDEKS1 ![CENA] = Me!CENA1 .Update End With KN
Źródło: topranking.pl/1249/61,kwerenda,parametryczna.php
Temat: Jakie sa roznice miedzy Access 7.0 PL a ENG
Pisałem baze danych w Access 2.0. Zmiana planów wymusiła przejście na Access 7.0, baza została skonwertowana, mniej lub bardziej łagodnie. Access 7.0 PL posługuje się nią bez kłopotów rozumiejąc wszystkie stałe/funkcje z poprzedniej bazy, np. Error$, Chr$, DB_OPEN_DYNASET itp. Access 7.0 ENG pisze, że 'variable not retrieved' lub podobnie i wyświetla okienko dialogowe z prośbą o podanie biblioteki. Skąd taka różnica w działaniu. Czy ktoś wie coś o modułach 'compatibility' instalowanych (lub nie) w Accesie? Poradziłem sobie poprawiając wszystkie błędne linie, ale skąd to? Pozdrawiam
Źródło: topranking.pl/1255/jakie,sa,roznice,miedzy,access,7,0,pl,a,eng.php
Temat: Dlaczego przy kompilacji występuje błąd?
Użytkownik "Krzysztof Naworyta" <k.nawor@datacomp.com.pl napisał w wiadomości [...] a potem, rzeczywiście, DB_OPEN_DYNASET na dbOpenDynaset (ale to już później, chyba że dodatkowo masz w referencjach bibliotekę zgodności wersji VB) KN :-) Hmm, a to jest taka biblioteka ? Pozdrowienia, Krzysiek
Źródło: topranking.pl/1248/dlaczego,przy,kompilacji,wystepuje,blad.php
Temat: wyrzuca mi błąd przy "BeginTrans"
"FreeAlbercik" <freealber@gmail.comwrote in message <cite Chciałem kontrolować transakcje i zadeklarowałem: Dim Wsp As Workspace Dim Zestaw, Zestaw2, Zlec, SzczZlec, zestaw3, Magaz As Recordset Dim Baza As Database ... Set magazynek = Baza.OpenRecordset("magazyn", DB_OPEN_DYNASET) </cite Na początek zmień deklaracje: Dim Wsp As Workspace Dim Zestaw As DAO.Recordset, Zestaw2 As As DAO.Recordset Dim Zlec As DAO.Recordset, SzczZlec As DAO.Recordset Dim zestaw3 As DAO.Recordset, magazynek As DAO.Recordset Bez tej zmiaany tylko zmienna Magaz jest typu Recordset a pozostałe Variant. Dodaj jeszcze na początku modułu: Option Explicite Pozdrawiam Grzegorz Ps. A jak zacznie działać, to zastanów się czy nie da...
Źródło: topranking.pl/1250/wyrzuca,mi,blad,przy,begintrans.php
Temat: Kwerenda parametryczna
...otworzyc formularz, wyswietlic na nim pola do zmiany i po wprowadzeniu nowych wartosci dopisywac rekordy do kwerendy. Robię to tak: Dim tabel As Database Set tabel = DBEngine.Workspaces(0).Databases(0) Dim stru As Recordset DoCmd.OpenQuery "obr_kw" '' to jest kwerenda wybierająca dane z tabeli "OBROTY" wg kryterium forms!aaa!haslo Set stru = tabel.OpenRecordset("obr_kw1", DB_OPEN_DYNASET) ''kwerenda obr_kw1 jest kwerendą wybierającą oparta na kwerendzie "obr_kw" stru.AddNew stru![IND] = Me!INDEKS1 stru![CENA] = Me!CENA1 stru.Update Przy : Set stru = tabel.OpenRecordset("obr_kw1",
Źródło: topranking.pl/1249/61,kwerenda,parametryczna.php
Temat: nowy rekord DAO
Witajcie, skróciłem i uprościłem mój problem, chciałbym tworzyć rekord w tabeli tak: Dim DB As DAO.Database, NOWY As DAO.Recordset Set DB = CurrentDb() Set NOWY = MyDB.OpenRecordset("MOJATABELA", DB_OPEN_DYNASET, DB_APPENDONLY) NOWY.AddNew NOWY.Update NOWY.Close i jest wszystko ok. Jednak oprócz tego chciałbym jeszcze na formularzu przejsc do tego rekordu, aby mozna bylo edytowac pola zwiazane z nowo utworzonym rekordem. Jak to zrobić. prosze o pomoc, pozdrawiam, Marcin K.
Źródło: topranking.pl/1251/nowy,rekord,dao.php
Temat: odswiezenie rekordu w tabeli
...Me.Dirty=false lub DoCmd.RunCommand acCmdSaveRecord Jednak te komendy powodują u mnie błędy (wchodzenie do innego rekordu). 1) Czy można by było odświeżyć zawartość tabeli używając DAO, przy czym jednak nadal stosując (*) przy tworzeniu rekordu. 2) Zapewne mógłbym stosować przy tworzeniu rekordu DAO i od razu odświeżać tabele np. Dim DB As DAO.Database, Nowy As DAO.Recordset Set DB = CurrentDb() Set Nowy = DB.OpenRecordset("TAB", DB_OPEN_DYNASET, DB_APPENDONLY) Nowy.AddNew Nowy.Update Nowy.Close Jednak nie wiem jak, w tym przypadku, mam automatycznie przejść w formularzu do nowo utworzonego rekordu, tak jak to się dzieje gdy stosuje polecenie (*) Czy można jakoś zrobić punkt 1) czy jednak należało by zrobić to jakoś jak w punkcie 2) dziękuję za wszelki uwagi do mojego problemu pozdrawiam, Marcin K.
Źródło: topranking.pl/1248/odswiezenie,rekordu,w,tabeli.php
Temat: NotInList
...z procedury Beep msg = "Nie ma nazwy: " & CRLF & CRLF msg = msg & NewData & CRLF & CRLF msg = msg & "Czy mam dopisać do tabeli?" & CRLF & CRLF msg = msg & "(sprawdź, czy poprawnie wpisane)." If MsgBox(msg, 4 + 32, "NIE MA TAKIEJ NAZWY!") = 7 Then Exit Sub ' dopisywanie nowego rekordu w tabeli 'Tabela1' (do pola 'Nazwy') Set MyDB = CurrentDb() Set MyZr = MyDB.OpenRecordset("Tabela1", DB_OPEN_DYNASET, DB_APPENDONLY) MyZr.AddNew MyZr!Nazwa = NewData MyZr.Update MyZr.Close ' dodanie nowo wpisanej pozycji (wartosci) do pola kombi Response = DATA_ERRADDED End Sub Tomasz
Źródło: topranking.pl/1249/21,notinlist.php
Temat: NotInList - raz jeszcze.
...CRLF = Chr(13) & Chr(10) ' nowy wiersz NewData = Trim(NewData) Beep msg = "Nie ma nazwy: " & CRLF & CRLF msg = msg & NewData & CRLF & CRLF msg = msg & "Czy mam dopisać do tabeli?" & CRLF & CRLF msg = msg & "(sprawdź, czy poprawnie wpisane)." If MsgBox(msg, 4 + 32, "NIE MA TAKIEJ NAZWY!") = 7 Then Exit Sub Set MyDB = CurrentDb() Set MyZr = MyDB.OpenRecordset("SpisUlic", DB_OPEN_DYNASET, DB_APPENDONLY) MyZr.AddNew MyZr!Ulica = NewData MyZr.Update MyZr.Close Response = DATA_ERRADDED End Sub Nie wiem jak ma wyglądać cała procedura poprawnie. POMOCY !!!!!!!!!! PS Próbowałam również podpowiedzi z archiwum grupy oraz strony: www.access.vis.pl. Bez skutku. Pomórzcie pozdrawiam Ania
Źródło: topranking.pl/1251/notinlist,raz,jeszcze.php
Temat: Jak zapisać obiekt OLE na dysku?
...DestPath) Const Chunksize& = 16384 ' Set size of chunk. Dim NumChunks As Integer, TotalSize As Long, x As Long, LastChunkSize As Long Dim MyWorkspace As WorkSpace Dim MyDatabase As Database, MyRecordset As Recordset Dim ciag As String Set MyWorkspace = DBEngine.Workspaces(0) Set MyDatabase = MyWorkspace.Databases(0) ' Open table. Set MyRecordset = MyDatabase![Files].OpenRecordset( DB_OPEN_DYNASET) ' znajdz rekord - nazwe pliku MyRecordset.FindFirst "[NameFile] = '" & PatchFileName & "'" If MyRecordset.nomatch Then MsgBox "Patch nie zawiera pliku " & PatchFileName, 16, "WriteFile error" Exit Function End If ' Get field size. TotalSize = MyRecordset![MemoFile].FieldSize() ' How many...
Źródło: topranking.pl/1250/jak,zapisac,obiekt,ole,na,dysku.php
Temat: Dlaczego przy kompilacji występuje błąd?
Witam Kombinuję jak przenieść dane z kwerendy do tabllicy array. Googlowałem i znalazłem: Dim MyDb As database, MySet As Recordset Dim YourArray(10) Function LoadArray() As Byte Dim A As Integer A = -1 Set MyDb = DBEngine.workspaces(0).Databases(0) Set MySet = MyDb.OpenRecordset("ExpArray", DB_OPEN_DYNASET) MySet.MoveFirst Do Until MySet.EOF A = A + 1 YourArray(A) = MySet.Fields(0) MySet.MoveNext Loop MySet.Close LoadArray = A ' the number of array elements you filled. End Function ale podczas kompilacji bazy wywala błąd: User-defined type not defined wskazując na deklarację zmiennychw DIM a...
Źródło: topranking.pl/1248/dlaczego,przy,kompilacji,wystepuje,blad.php
Temat: Problem (dla mnie duży)
Bardzo, bardzo skomplikowany kod ;-) Trzeba uzywac prostrzych konstrukcji. Dim DB as Database Dim RS as Recordset Set DB = CurrentDB ' jesli to dla Access 95/97 to dobrze! ' dla Access 2.0 trzeba pisac: ' Set DB = DBEngine(0).Workspaces(0).Databases(0) Set RS = DB.OpenRecordset("Produkty", DB_OPEN_DYNASET) ' ' Skoro pobierasz cala tabele wiec po co to zapytanie? RS.MoveFirst While (not RS.EOF) if RS![CenaTel] then RS.Edit ' O tym zapomniales, zanim bedziesz edytowal, ' trzeba ustawic odpowiedni tryb RS!Cena = "tel." ...
Źródło: topranking.pl/1254/problem,dla,mnie,duzy.php
Temat: Dlaczego to nie dzia³a ??
...As Recordset Dim msg As String Dim CRLF As String CRLF = Chr(13) & Chr(10) NewData = Trim(NewData) tabela = NewData Beep msg = "Grupa o podanej nazwie nie istnieje" & CRLF & CRLF msg = msg & "Czy chcesz utworzyæ now± grupê?" & CRLF & CRLF If MsgBox(msg, 4 + 32, "BRAK PODANEJ KATEGORI!") = 7 Then Exit Sub End If Set MyDB = CurrentDb Set MyZr = MyDB.OpenRecordset("Kategoria", DB_OPEN_DYNASET, DB_APPENDONLY) MyZr.AddNew MyZr!Kategoria = NewData MyZr.Update MyZr.Close Response = DATA_ERRADDED 'Tworze tabele Dim CAT1 As ADOX.Catalog Dim CAT As ADOX.Catalog Dim tbl As ADOX.Table Dim idx As ADOX.Index Dim key As ADOX.key Set CAT = New ADOX.Catalog CAT.ActiveConnection = CurrentProject.Connection Set tbl = New ADOX.Table With tbl .Name = NewData .ParentCatalog = CAT .Columns.Append...
Źródło: topranking.pl/1249/dlaczego,to,nie,dzia,179,a.php
Temat: wyrzuca mi błąd przy "BeginTrans"
Witam !!! Chciałem kontrolować transakcje i zadeklarowałem: Dim Wsp As Workspace Dim Zestaw, Zestaw2, Zlec, SzczZlec, zestaw3, Magaz As Recordset Dim Baza As Database Set Wsp = DBEngine.Workspaces(0) Set Baza = DBEngine.Workspaces(0).Databases(0) Set Zestaw = Baza.OpenRecordset("zestawienie produkcji", DB_OPEN_DYNASET) Set Zestaw2 = Baza.OpenRecordset("zestawienie produkcji",
Źródło: topranking.pl/1250/wyrzuca,mi,blad,przy,begintrans.php
Temat: Przeszukiwanie tabeli
Potrzebuję przeszukać tabelę DLUGOSC, znaleźć największą wartość pola OD i wpisać ją do każdego rekordu tej tabeli. w największym skrócie ;) Dim x as Integer ' ?? Dim CurDB As DAO.Database, rs As DAO.Recordset Dim SQLStmt As String x = DMax("OD", "DLUGOSC") Set CurDB = CurrentDb() SQLStmt = "SELECT [OD] FROM [Dlugosc] " Set rs = CurDB.OpenRecordset(SQLStmt, DB_OPEN_DYNASET) Do While Not rs.EOF rs.Edit rs("OD") = X rs.Update rs.MoveNext Loop rs.Close Ew. można zrezygnować z DMax i SQLStmt wywołać z sortowaniem, odczytać pierwszą wartość i polecieć w dół. PeTe P.S. Pisane z palca bez debugera ;)
Źródło: topranking.pl/1251/przeszukiwanie,tabeli.php
Temat: Auto numer
...***TabelaPomocnicza*** [Symbol_dok] - skojarzony z [S_dok] (Pole_Kombi - wyr. SQL) Wygenerowałem Formularz z "TabelaGłówna". Z polem "kombi" w AfterUpdate z czymś takim: Sub NowyNr() Dim Baza As Database, SzukanyRekord As Recordset, NowyNumer As Integer, kryterium As String Dim NowyNumerDokumentu As Recordset Set Baza = DBEngine.Workspaces(0).Databases(0) Set SzukanyRekord = Baza.OpenRecordset("TabelaGłówna", DB_OPEN_DYNASET) Set NowyNumerDokumentu = Baza.OpenRecordset("TabelaGłówna", DB_OPEN_TABLE) NowyNumer = 0 kryterium = "[S_dok] ='FA'" SzukanyRekord.FindFirst kryterium While Not SzukanyRekord.NoMatch NowyNumer = NowyNumer + 1 SzukanyRekord.FindNext kryterium Wend NowyNumer = NowyNumer + 1 ' 'Dodaj nowy numer rekord ' DodajNowy NowyNumerDokumentu, NowyNumer MsgBox "Nowy numer : "...
Źródło: topranking.pl/1248/auto,numer.php
Temat: Dlaczego przy kompilacji występuje błąd?
OK. Krytykę przyjąłem. Znalazłem błąd - nie włączone DAO. Włączyłem - poszedł dalej i stanął na linii: Set MySet = MyDb.OpenRecordset("ExpArray", DB_OPEN_DYNASET) wywalając błąd: Type mismatch I tu już jestem w kropce. Pozdrowienia Donat
Źródło: topranking.pl/1248/dlaczego,przy,kompilacji,wystepuje,blad.php
Temat: błąd:nie odnaleziono metody lub elementu danych
...message in MIME format. --------------76B83548E247F0E1E0064FBC Content-Type: text/plain; charset=iso-8859-2 Content-Type: text/plain; charset=iso-8859-2 Content-Transfer-Encoding: 8bit Content-Transfer-Encoding: 8bit Sub Kod_NotInList(NewData As String, Response As Integer) Response = DATA_ERRADDED Dim B As Database Dim R As Recordset Set B = DBEngine.Workspaces(0).Databases(0) Set R = B.OpenRecordset("Miejscowości", DB_OPEN_DYNASET) MsgBox (B.Name) MsgBox (R.Name) With R .AddNew .Kod = NewData 'przypisanie nowej wartości do pola Kod .Miejscowosc = InputBox("Nowa miejscowość:") 'podanie nazwy nowej miejscowości .Update End With End Sub tablica Miejscowości ma następujące pola: Miejscowości.Kod Miejsciwści.Miejscowość tablica Dystrybutorzy ma następujące pola:...
Źródło: topranking.pl/1255/blad,nie,odnaleziono,metody,lub,elementu.php
Temat: Wydajnosc Accessa - pocieszenie dla grupowiczów!!!
...Dim lngWait& Dim lngX& Dim strSQL$ Const MAX_LOCK_COUNT = 10 Dim db As DAO.Database Dim idSet As DAO.Recordset intRet = True intLockCount = 0 Set db = ws.Databases(0) strSQL = " select KT_Table, KT_NumberKey from KT_KeyTable " strSQL = strSQL & " where KT_Table = '" & strTable & "'" Set idSet = db.OpenRecordset(strSQL, DB_OPEN_DYNASET, DB_DENYREAD) If Not idSet.EOF Then idSet.Edit varIdxFirst = idSet!KT_NumberKey + 1 idSet!KT_NumberKey = idSet!KT_NumberKey + lngIdxCount idSet.Update Else '-- Nie ma jeszcze rekordu dla pytanej tabeli - utworz ! varIdxFirst = 1 idSet.AddNew idSet!KT_Table = strTable idSet!KT_NumberKey =...
Źródło: topranking.pl/1248/wydajnosc,accessa,pocieszenie,dla.php
Temat: Jak zmusic CreateReportControl("nowy", .... TO JUZ BYLO, ale..
...Dim zestrek As Recordset Dim Baza5 As Database Dim str, kryt, t As String Dim i, j, k, q As Integer k = 0 i = DCount("NumerFormatki", "rozbicie na formatki1") Const cm = 567 STRONA = 1 Dim rp As Report Set rp = Reports!rozbicie Dim xx, yy, bb, aa, WER As Double Set Baza5 = DBEngine.Workspaces(0).Databases(0) Set zestrek = Baza5.OpenRecordset("Rozbicie na formatki1", DB_OPEN_DYNASET) rp.ScaleMode = 6 rp.Line (Y00, X00)-(ArkuszXmax * Mnoznik(), ArkuszYmax * Mnoznik()), , B zestrek.MoveFirst For k = 1 To i xx = zestrek![X1] * Mnoznik() yy = zestrek![Y1] * Mnoznik() aa = zestrek![Sz1] * Mnoznik() bb = zestrek![Dł1] * Mnoznik() t = zestrek![Tekst] a = proba(xx, yy, zestrek![Szerokosc], zestrek![Dlugosc], t) rp.Line (xx, yy)-(aa, bb), , B ...
Źródło: topranking.pl/1248/jak,zmusic,createreportcontrol,nowy,to,juz.php
Temat: Wartosc wyliczana
...wyniku) Funkcję Wylicz trzeba skonstruować w zależności od własnych potrzeb. '------------------------------- Function Wylicz () Dim Baza As Database Dim Zbior As Recordset Set Baza = DBEngine.Workspaces(0).Databases(0) OdpowiedniTekst_SQL = "SELECT Count(*) AS [ILE] FROM [JakasTamTabelaLubZapytanie];" Set Zbior = Baza.OpenRecordset(OdpowiedniTekst_SQL, DB_OPEN_DYNASET) Ilosc = Zbior![ILE] Zbior.Close Wylicz = Ilosc End Function '----------------------------- No i na koniec ustawienie pola wyliczanego [PW] na formularzu głównym. Zastosowałem ustawienie wartości domyślnej = Forms![FG]![Podformularz].Form![Pole1] Wynik działania takich ustawień (i ewentualnego wpływu użytkownika na proces) daje się obserwować na formularzu...
Źródło: topranking.pl/1248/wartosc,wyliczana.php
Temat: problem z tabulatorem
...Przykładowo napisze jakie mam ustawione zdarzenia i co w nich. Pole kombi IMIE: po aktualizacji: Me!Imie = StrConv(Me!Imie, vbProperCase) przy wartosci spoza listy: Dim MyDB As DAO.Database, MyZr As DAO.Recordset Set MyDB = CurrentDb() Set MyZr = MyDB.OpenRecordset("bkIMIE", DB_OPEN_DYNASET, DB_APPENDONLY) MyZr.AddNew MyZr!Imie = NewData MyZr.Update MyZr.Close Response = DATA_ERRADDED przy uzyskaniu focusu: Me!Imie.BackColor = 65535 przy ustracie focusu: ...
Źródło: topranking.pl/1249/problem,z,tabulatorem.php
Temat: Access Basic a formularz
...Jest sobie formularz, do ktorego rekordy zostaly wybrane poprzez zapytanie. Chcialbym przy zamykaniu tego formularza wykonac pewne dzialania na wszystkich rekordach tego formularza. W przykladach Accessowych jest opisana taka oto procedura, ktora to robi: 1. Dim Criteria As String, MyDB As Database, MySet As Recordset 2. Dim NewTitle As String 3. Set MyDB = DBEngine.Workspaces(0).Databases(0) 4. Set MySet = MyDB.OpenRecordset("Employees", DB_OPEN_DYNASET) 5. Create dynaset. 6. Do Until not MySet.EOF 7. zmienna = MySet.fields(0).value 8. MySet.Movenext 9. Loop Pytania: 1. Jak widac z powyzszego przykladu, jest tu najpierw otwierana baza a potem wykonywana jest petla. Poniewaz mam juz otwarty formularz, czy trzeba wykonywac linie 1-6? Jesli nie, to skad wziac aktualnie "obowiazujacy na formularzu" zestaw MySet (czy tak sie on nazywa?)? 2. MySet.Fields (<nr)...
Źródło: topranking.pl/1253/access,basic,a,formularz.php
