Why can I no longer add Control Spin Button in Access 2013

[kdleaver1974]

I have a program that is using the Control Spin Button. This control gave me no issues before, however I had to reinstall Access 2013 and I need to add this control back to my Access 2013, but when I try to do so the following error comes up:



Sorry an unexpected error occurred. Please exit and restart Microsoft Access


I have done this multiple times, still the same error. What am I not doing properly?

Thanks for the help.

Ken L

[davegri]

Try closing the DB entirely and reopening it to try again.
On occasion, I've had to reboot the PC for Access changes to "take".

[Welshgasman]

Could also try a repair?

[kdleaver1974]

OK, so I did a reboot of the OS, AND I did a repair of the Database, and it still won't allow me to add it. I don't understand as I was able to add this feature before and it worked fine. Why would reinstalling Access create this error that it won't all me to add this function back because without it, the control doesn't work.

Ken L.

[CJ_London]

Just a guess but pretty sure the spin control is 32bit and there may not be a 64bit alternative if you have reinstalled access as 64bit

[Welshgasman]

Just a guess but pretty sure the spin control is 32bit and there may not be a 64bit alternative if you have reinstalled access as 64bit

Perhaps read here then?

[kdleaver1974]

Looks like that explains the problem. The reason for the "spin control" IIRC was this was the only way to add a control that can increase and decrease the number in a text box. The Text box is for item quantity and it needs to be limited in range from one (1) and the upper limit being the inventory on hand. What other control can I use to accomplish this in a 64-bit version of access.

Thanks.

Ken L

[Welshgasman]

Roll your own?
1 textbox
2 small buttons with up and down arrows.

[CJ_London]

or simply have a textbox to display the number and use the mouseup event to determine where the control was clicked to decide whether to increment or decrement the value - see example

and this is the code

Option Compare Database
Option Explicit


Const maxnum = 20


Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)


    If X < Text2.width / 2 Then
        If Text2 > 1 Then
            Text2 = Text2 - 1
        Else
            MsgBox "cannot be zero", , vbOKOnly
        End If
    Else
         If Text2 < maxnum Then
            Text2 = Text2 + 1
        Else
            MsgBox "cannot be greater", , vbOKOnly
        End If
   End If
   
End Sub

Modify maxnum to be determined by your record count

You don't have to display the instructions - they are also in controltip text. You can also refine the location where action is required and add left/right arrow characters to the text (although this would stop it being numeric (use replace to get rid of them to change back to number)