ACCDE not working

[RPrasad]

Hi - I have converted .accdb to .accde, after the conversion macros not working. Before converting I have compiled the codes and haven't find any errors. I donot want the users to have copy .accdb Please suggest any work around for this. Thank you

 

[boblarson]

So when you say the macros aren't working - can you give an example of one that should be working and it isn't?

 

[RPrasad]

Hi Bob here are the details, I get the error message: "The expression on click you entered as the event property setting produced the following error: An expression you entered is the wrong data type for one of the arguments"

But this is working fine in accdb

Private Sub cmdSMail_Click()
 
                Dim MySet As ADODB.Recordset
                Set MySet = New ADODB.Recordset
                MySet.Open "tblEmp", CurrentProject.Connection, adopenstatic
 
                    Do Until MySet.EOF
                        [Forms]![frmMain].[txtMyEID].Value = MySet![EID]
                        [Forms]![frmMain].[txtMyEmail].Value = MySet![Email]
 
                        DoCmd.SendObject acQuery, "CostCenterDetails", "Excel97-Excel2003Workbook(*.xls)", [Forms]![frmMain].[txtMyEmail], "", "", [Forms]![frmMain].[txtMySub], [Forms]![frmMain].[txtMyMsg], False, ""
 
                        MySet.MoveNext
                    Loop
 
                MsgBox "Emails sent out successfully!"
 
 
End Sub

 

[boblarson]

First off - see if this helps before we go further. When calling a procedure, if you aren't passing a parameter, leave the parameter blank and just include the comma. So don't use "" or " " as it doesn't like that.

So this:

DoCmd.SendObject acQuery, "CostCenterDetails", "Excel97-Excel2003Workbook(*.xls)", [Forms]![frmMain].[txtMyEmail], "", "", [Forms]![frmMain].[txtMySub], [Forms]![frmMain].[txtMyMsg], False, ""

Should actually have this for the arguments (and for the Output Type and type should not be acQuery but acSendQuery I believe unless it has changed in Access 2007 and above):

DoCmd.SendObject acSendQuery, "CostCenterDetails", acFormatXLS, Forms!frmMain.txtMyEmail, , , Forms!frmMain.txtMySub, Forms!frmMain.txtMyMsg, False

 

[RPrasad]

Thanks so much Bob, your solution worked.