проблема кодирования из-за несоответствия типов данных - PullRequest
Новая
       11

проблема кодирования из-за несоответствия типов данных

0 голосов
/ 18 января 2019

Я сталкиваюсь с ошибкой во время выполнения 3464

этот код работает нормально для некоторых типов данных. Когда он встречает значение в формате данных, таких как дата запуска двигателя, он показывает ошибку времени выполнения. 

Public Function SearchForID(strTableToSearch As String, strColumnNameToSearch As String, strNewItemName As String) As Integer

    'Varialbes
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim StrValue As String

    'Assigning Database to the Variable db
    Set db = CurrentDb
    'Creating a Query to the Recordset
    Set rs = db.OpenRecordset("SELECT * FROM " & strTableToSearch & " WHERE " & strColumnNameToSearch & " = '" & strNewItemName & "'")
    'We need to check for the valid record set
    rs.FindFirst ("[" & strColumnNameToSearch & "] = '" & strNewItemName & "'")

    If rs.NoMatch Then
       SearchForID = 0
    'If the recordset exists
    Else
    'Returning the ID value to StrValue
        SearchForID = rs.Fields(0)

    End If

    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Function

Я ожидаю, что код будет выполнен для всех типов данных

...