Új hozzászólás Aktív témák

• #788 Fire/SOUL/CD félisten malwy #787

  Új Válasz 2011-04-10 10:55:26 #788

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz malwy #787 üzenetére

  Hát frissítő lekérdezéssel nem foglalkoztam most, de makróval kivitelezhető. Ahhoz, hogy az alábbi makró helyesen működjön, ahhoz az kell (bár lehet, hogy ez adott is), hogy kötött formátumú legyen a tábla, azaz a páratlan sorokban vannak a dátum és idő, míg a páros sorokban csak az idő értékek, amelyek (ahogy le is írtad) váltakozva követik egymást.

  Option Compare Database
  
  Sub FSCD_CorrectingDateTime()
  
  Const MyTable = "Tábla1" 'táblázat neve, amiben a módosításokat el kell végezni
  Const MyField = "dátumok" 'mező neve, amiben a dátum és idő értékek találhatóak
  Dim i As Integer
  Dim xStr As String
  Dim MyDB As Database
  Dim MyRecordSet As Recordset
  
  Set MyDB = CurrentDb()
  Set MyRecordSet = MyDB.OpenRecordset(MyTable)
  
  i = 1
  With MyRecordSet
  .MoveFirst
  Do Until .EOF
  If (i Mod 2) Then
  xStr = DateValue(MyRecordSet(MyField))
  Else
  .Edit
  MyRecordSet(MyField).Value = DateValue(xStr) & TimeValue(MyRecordSet(MyField))
  .Update
  End If
  .MoveNext
  i = i + 1
  Loop
  End With
  
  Set MyDB = Nothing
  Set MyRecordSet = Nothing
  
  End Sub

  Csak a példa kedvéért egy egyszerű táblát hoztam létre
  Makró futtatása előtt
  Makró futtatása után

Új hozzászólás Aktív témák