ник: Scorpi
функция работает классно, но возникла др. проблема:
Dim tmp As String
tmp = FindMaxDateInString(rs.Fields("НазвПоля"))
If tmp <> "" Then
CurrentDb.Execute ("update импорт set ЛенаПланФ=#" + format(tmp, "yyyy\-mm\-dd") + "# where Код=" + CStr(rs.Fields("НазвПоля")))
End If
выдает ошибку "object doesn't support this prorerty or method"
А без форматирования даты update не проходит (((
др. вариант:
tmp = FindMaxDateInString(rs.Fields("ЛенаПлан"))
temp = Replace(tmp, ".", "/")
If temp <> "" Then
CurrentDb.Execute ("update импорт set ЛенаПланФ=#" + temp + "# where Код=" + CStr(rs.Fields("Код")))
End If
здесь update проходит, но часть данных в правильном формате dd.mm.yyyy, а часть в mm.dd.yyyy. (((