Rs.Find...Как найти дату?...DateValue('"& Me.Text &"') непомогает.. - VB
Формулировка задачи:
Dim rst As New ADODB.Recordset
Dim str As String
Set rst = Me.Adodc1.Recordset.Clone
str = rst(DataGrid1.Col).Name & " = '" & Me.Text1 & "'"
rst.Find str, , adSearchForward
If rst.EOF Then
MsgBox "запись не найдена!"
rst.MoveFirst
Else
Me.Adodc1.Recordset.Bookmark = rst.Bookmark
End If
rst.Close
Dim str As String
Set rst = Me.Adodc1.Recordset.Clone
str = rst(DataGrid1.Col).Name & " = '" & Me.Text1 & "'"
rst.Find str, , adSearchForward
If rst.EOF Then
MsgBox "запись не найдена!"
rst.MoveFirst
Else
Me.Adodc1.Recordset.Bookmark = rst.Bookmark
End If
rst.Close
Решение задачи: «Rs.Find...Как найти дату?...DateValue('"& Me.Text &"') непомогает..»
textual
Листинг программы
str = rst(DataGrid1.Col).<font color="blue">Name</font> & <font color="teal">" = #"</font> & Format(<font color="blue">Me</font>.Text1,<font color="teal">"mm\/dd\/yy"</font>) & <font color="teal">"#"</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д