S
seb
Hell
I am trying to retrieve the modification date of a contact to compare with
field of the same name in Access
Dim LastDateModif as dat
Dim db As DAO.Databas
Dim rs As DAO.Recordse
Dim SQL As Strin
Dim LastDateModif As Varian
SQL = "SELECT tb_Contacts.*
SQL = SQL & " FROM tb_Contacts
SQL = SQL & " Where tb_Contacts.TTYTDDTelephoneNumber
""" & mycont.TTYTDDTelephoneNumber
""";
Set db = OpenDatabase(MaDatabase
Set rs = db.OpenRecordset(SQL
If rs.RecordCount = 0 The
rs.AddNe
rs.Fields("Account") = Nz(mycont.Account, ""
rs.Updat
LastDateModif = mycont.LastModificationTim
If LastDateModif > rs.Fields("LastModificationTime") The
rs.Edi
rs.Updat
End I
End I
rs.Clos
db.Clos
Set rs = Nothin
Set db = Nothin
My problem lies LastDateModif = mycont.LastModificationTim
LastDateModif do not value recovered mycont.LastModificationTime which is
dat
in the format dd / mm / yy hh: m
example contains mycont.LastModificationTime 05/02/13 2:58:17 p.m
LastDateModif recovers 0:00:0
Who can tell me why this does not work
thank you in advance
I am trying to retrieve the modification date of a contact to compare with
field of the same name in Access
Dim LastDateModif as dat
Dim db As DAO.Databas
Dim rs As DAO.Recordse
Dim SQL As Strin
Dim LastDateModif As Varian
SQL = "SELECT tb_Contacts.*
SQL = SQL & " FROM tb_Contacts
SQL = SQL & " Where tb_Contacts.TTYTDDTelephoneNumber
""" & mycont.TTYTDDTelephoneNumber
""";
Set db = OpenDatabase(MaDatabase
Set rs = db.OpenRecordset(SQL
If rs.RecordCount = 0 The
rs.AddNe
rs.Fields("Account") = Nz(mycont.Account, ""
rs.Updat
LastDateModif = mycont.LastModificationTim
If LastDateModif > rs.Fields("LastModificationTime") The
rs.Edi
rs.Updat
End I
End I
rs.Clos
db.Clos
Set rs = Nothin
Set db = Nothin
My problem lies LastDateModif = mycont.LastModificationTim
LastDateModif do not value recovered mycont.LastModificationTime which is
dat
in the format dd / mm / yy hh: m
example contains mycont.LastModificationTime 05/02/13 2:58:17 p.m
LastDateModif recovers 0:00:0
Who can tell me why this does not work
thank you in advance