Automation Error 440

[Harshini]

Hi friends,

I am facing an issue in Visual basic whenever i am trying to add field in one of the tables in MS Access i am getting the following error message as


Run-Time Error '-2147217887(80040e21)':
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available.

I don't know whats wrong Can anyone solve this issue for me.

[Dr.pter]

Sure i will solve this Automation Error 440 for you it would be great if you can provide me the code in which you are getting the Automation error message.

[Harshini]

Following are the code in which i am getting automation error 440 message

Public Function Phone Call(phone_Field As Field, txtPhone As TextBox) As Boolean
  Phone Call = PhoneFormat(txtPhone)
  If Phone Call Then
     phone_Field = txtPhone.text  ' **Error occurs here**
  Else
     phone_Field = Null
  End If
End Function

[Dr.pter]

It seems that in you code null value is creating some issues i would suggest you to use the following code.

Public Function Phone Call(phone_Field As Field, txtphone As TextBox) As Boolean
 Phone Call = PhoneFormat(txtphone)
 If Phone Call Then
    If Len(txtphone.Text) > 0 Then
    phone_Field = txtphone.Text  ' **Error occurs here**
    Else
    phone_Field = " "
    End If
 Else
    phoneField = " "
 End If
End Function

[Zecho]

The cause for getting error 440 might be some setting issue while setting ADO Recordset field for MS Access or else you can also use the following code from which i am sure you won't get any error message again

 If txtPhone.text = "" Then
            phoneField = ""
         Else
            phone_Field = txtPhone.text
 End If