Получение сообщения «Ошибка во время выполнения - 13: несоответствие типов» в ms-access VBA - PullRequest
Новая
       33

Получение сообщения «Ошибка во время выполнения - 13: несоответствие типов» в ms-access VBA

0 голосов
/ 10 октября 2018

У меня есть две формы доступа, которые работают с одним и тем же кодом.Однако, в то время как один работает нормально, другой выдает мне сообщение Run-time error - 13: Type Mismatch.Я не уверен, где проблема.

Вот мой код: 

Private Sub cmdSave_Click()
    Dim db As Database
    Dim rec As Recordset

    Set db = CurrentDb
    Set rec = db.OpenRecordset("SELECT * FROM Datas")

    rec.AddNew
    rec("Quality Checker Name") = Me.Combo106
    rec("Quality Checker ID") = Me.Text15
    rec("QC Level") = Me.Combo90
    rec("Date of QC") = Me.Text21
    rec("Processor Name") = Me.Combo94
    rec("Processor ID") = Me.Text2
    rec("Team Name") = Me.Combo96
    rec("Date of Processing") = Me.Text108
    rec("Property Ref #") = Me.Text35
    rec("Service Charge Date") = Me.Text135
    rec("Portfolio") = Me.Combo32
    rec("Process Name") = Me.Combo38
    rec("Sub Process Name") = Me.Combo40
    rec.Update

    Set rec = Nothing
    Set db = Nothing

    Dim msg As Integer
    msg = MsgBox("Do want to close the form", vbYesNo)

    If msg = vbYes Then
        DoCmd.Close
    ElseIf msg = vbNo Then
        Exit Sub
    End If

End Sub

Может кто-нибудь, пожалуйста, помогите.

...