🚀 go-pugleaf

minfo@onet.pl wrote at Mi 19.04.2017 17:01:

> po wpisaniu numeru wysyłki w zdarzeniu "po aktualizacji"
> mam odświeżenie formularza
> [...]
> w polach 2-4 funkcja DLookUP która wstawia dane z podlinkowanej tabeli
> w warunku funkcji jest np. tak: pole 2. wyszukaj nr odbiorcy w tabeli
> wysyłki (dbf) gdzie numer wysyłki = Me.numer_wysyłki (pole 1 formu).
> 
> Generalnie A2010 dość długo uzupełnia pola 2-4.
> 
> Możecie pomóc w optymalizacji/ew. zastąpieniu DLookUP?

Startujesz 3 razy DLookup() żeby pobrać wartość jednej kolumny tabeli. 
Zastąp to jednym zapytaniem SQL, ktore zwróci wszystkie trzy kolumny jako 
Recordset. Odświeżanie przyśpeszy trzykrotnie :)

Ze starym DAO byłoby jakoś tak ...

  ...
  Dim db as DAO.Database
  Dim r as DAO.Recordset
  Dim sql as String

  sql = " select kol2, kol3, kol4 from tabela_dbf " &
        " where numer_wysylki = " & Me![numer_wysylki]
  Set db = CurrentDB
  Set r = db.OpenRecordset(sql, dbOpenSnapshot, dbForwardOnly)
  if not r.EOF then
    Me!pole2 = r!kol2
    Me!pole3 = r!kol3
    Me!pole4 = r!kol4
  else
    Me!pole2 = "Nic nie znaleziono"
    Me!pole3 = Me!pole2
    Me!pole4 = Me!pole2
  end if
  r.Close
  Set r = Nothing
  Set db = Nothing
  ..

Sprawdź składnie. Mój VBA trochę zardzewiał ...


Ciao, Smyk