ANYONE HELP... I'm not able to make an .accde from .accdb

[powerniso]

Anyone who can help!

I've made a program for making sales and so on, and now when it's ready, when I try to make an accde file (Access 2007 executable) it replies that I cannot make that because it can make only "2048 TableID"s at the same time. What that means and what I have to do? I have only 1 form that is "module on" property. And 60 forms in total. For me it's not possible to delete some of them. All they are needed. What I have to do? Is it possible to transsphere some forms to another file and then use both of them while converting both to accde?

 

[boblarson]

First of all, go to the VBA window and then go to

DEBUG > COMPILE <your project name here>

and then see what errors come up (it will highlight them for you).

Do that first, correct any errors until you get none when compiling and then see if you can make the ACCDE file.

 

[powerniso]

in the code below it gives me "End If without block If" error while there are no "end if"s
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Do

On Error GoTo Command1_MouseDown_Err
DoCmd.OpenForm "new_goods_department", acNormal, "", "", , acNormal
DoCmd.Close acForm, "main"

If Button = 1 Then Do

On Error GoTo Command1_MouseDown_Err
DoCmd.OpenForm "goods", acNormal, "", "", acEdit, acDialog

Command1_MouseDown_Exit:
Exit Sub
Command1_MouseDown_Err:
MsgBox Error$
Resume Command1_MouseDown_Exit

If Button = 1 Then Do

On Error GoTo Command1_MouseDown_Err
DoCmd.OpenForm "goods", acNormal, "", "", acEdit, acDialog

Command1_MouseDown_Exit:
Exit Sub
Command1_MouseDown_Err:
MsgBox Error$
Resume Command1_MouseDown_Exit

End Sub

 

[boblarson]

Your code is off because in VBA we don't use

Then Do

Your code has too many of the same things in it as well.


It should likely be like:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Command1_MouseDown_Err
Select Case Button
    Case 1 
        DoCmd.OpenForm "goods", acNormal, "", "", acEdit, acDialog
    Case 2
        DoCmd.OpenForm "new_goods_department", acNormal, "", "", , acNormal
        DoCmd.Close acForm, "main"
End Select 

Command1_MouseDown_Exit:
Exit Sub
Command1_MouseDown_Err:
MsgBox Error$
Resume Command1_MouseDown_Exit

End Sub

 

[powerniso]

Thanks a lot. Hope you all the good things in your way! Thanks again.

P.S. I've sent you a private message. Please reply me as soon as it is possible for you.