Wiktor Rrr

Aptt group

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie Ms Access w temacie Problem z Dlookup vba sql (pobieranie i automatyczne...

  5.02.2019, 22:54

  Krzysztofie wielkie dzięki za poświęcony czas i wskazówki, które bardzo mi pomogły.

• 
  Wpis na grupie Ms Access w temacie Problem z Dlookup vba sql (pobieranie i automatyczne...

  3.02.2019, 18:51

  Udało mi się osiągnąć zamierzony cel. Funkcja fajnie oblicza nową datę.
  Z jedną rzeczą się jeszcze męczę, mianowicie aktualizacja tych nowych danych. Aby to wykonać
  muszę przechodzić kolejno przez wszystkie rekordy na formularzu (niestety docmd.gotorecord ,,aclast ani makro przejdz do ostatniego nie aktualizuje mi wszystkich rekordów - tylko ręczne przechodzenie)
  
  Private Sub Form_Current()
  Dim sSQL, ssql2, x As String
  Dim dtmWynik, dtmwynik2 As Date
  Dim rs As DAO.Recordset
  
  sSQL = "SELECT * FROM torders2 WHERE [datazakonczenia] is Null"
  
  Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset)
  
  With rs
  While Not rs.EOF
  x1 = DLast("roznica", "torders2")
  
  dtmWynik = Nz(DLast("[datazakonczenia]", "torders2", "[IDorders]=" & ![IDOrders]), DateAdd("n", x1, [szacowany]))
  .Edit
  .Update
  .MoveNext
  Wend
  .Close
  
  End With
  
  Set rs = Nothing
  
  [nowadata] = dtmWynik
  
  Me.Refresh
  End Sub

• 
  Wpis na grupie Ms Access w temacie Problem z Dlookup vba sql (pobieranie i automatyczne...

  30.01.2019, 11:55

  Dokładnie ma zaktualizować wszystkie rekordy z pustym polem [zakonczony] pobierając ostatni czas [zakonczony] i dodając wartość [dod.minuty] tworząc nowy [szacowany czas] więc powinna być jakaś pętla.
  Dana pobierana jest prawidłowo po czym aktualizuje tylko pierwszy i ostatni rekord.(brakuje mi tej automatycznej aktualizacji reszty rekordów wyliczajac nowy [szacowany czas]).
  
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim licznik As Integer
  Set rs = CurrentDb.OpenRecordset("Tabela2", dbOpenSnapshot)
  
  'x1 = DLookup("zakonczony", "tabela2")
  x1 = DLast("[zakonczony]", "tabela2", "[zakonczony] <>0")
  [nowy] = DateAdd("n", [szacowany czas], x1)
  
  rs.MoveNext
  
  rs.Close
  Set rs = Nothing
  Me.Refresh
  
  End Sub

• 
  Wpis na grupie Ms Access w temacie Problem z Dlookup vba sql (pobieranie i automatyczne...

  30.01.2019, 00:10

  Witam
  Mam problem z utworzeniem kodu i prosiłbym o pomoc.
  Mianowicie chodzi o to aby po wpisaniu daty w polu [zakonczony] -"przycisk", pobrać tę wartość z tabeli i automatycznie przypisać ją do kolejnego pola [zalozony czas] + obliczyć nowy [szacowany czas]. Miałoby się to podziać automatycznie od pierwszego pustego pola [zakonczony] do n [zalozony czas].
  Ponizej przykład tabelki jakby to miało wyglądać.