Recent content by DevAccess

It is excel vba on apple MAC os. Sorry to mention that

Hello I would like to have vba for Mac access which would have one button on click of that button the file open dialogue button would display wherein I can select multiple folders and can zip it. I don't have Mac os if someone can help me on this. Thanks

Let me check on this, will it be problem if I execute multiple insert statment once because they are in loop ?

it gives error on execute line, also I was wondering will this kind of one execution would work if there are numerous files in the folder?

I have below code, wherein I am getting error "String Data, right truncation" at line adoCmd.Execute. I have also table datatype as attached. Actually I am trying to move attachment from local drive to sql in binary format. Can anyone please guide what is wrong here. the destination file is...

adoCmd.Parameters.Append .CreateParameter("UniqueKey", adVarChar, adParamInput, 20, keyaudit) above worked as I had defined size of data type to 20 in sql and that was cause of it. Thanks

Here is the attached error.

it is string

Hello I have below code With adoCmd adoStream.Type = adTypeBinary adoStream.Open adoStream.LoadFromFile strDir + file 'It fails if file is open .CommandText = "INSERT INTO VendorFiles VALUES (?,?,?)" ' Query .CommandType = adCmdText...

I did not get you, shall I remove first one? if i do so it says it is in use can not remove

it is already there, please see attached file.

thanks but now it gives same error on .CommandType = adCmdText Dim adoStream As Object Dim adoCmd As Object Dim strFilePath As String Dim adoCon As Object Const strDB As String =...

I am getting below error 3001 "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another" on line number adoCon.CursorLocation = adUseClient I am using excel vba. Sub SaveAsBinary() Dim adoStream As Object Dim adoCmd As Object Dim strFilePath As String...

I am getting below error 3001 "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another" on line number adoCon.CursorLocation = adUseClient I am using excel vba. Sub SaveAsBinary() Dim adoStream As Object Dim adoCmd...

Let me try this.