Solved

Prevent checkbox click event occur while editing it in vb6

Posted on 2016-11-07
8
56 Views
Last Modified: 2016-11-07
When we fill our checkbox of our vb6 form when loading, the events are trigger and all the instructions of the event begins.

The code is for when a user checks on it, it saves to a table:

Private Sub Form_Load()
 check1.value=sql value saved previously
End Sub

Open in new window


Private Sub check1_Click()
 sql instruction save the state of the variable...
End Sub

Open in new window


However, before the screen is display, we read the table and set the checkbox according of what has been saved previously.  This trigger the "click" events and freezes the apps.

How can we set the checkbox without triggering the events?
0
Comment
Question by:rayluvs
  • 5
  • 3
8 Comments
 
LVL 46

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 41877590
Create a Boolean variable, set it to True when editing and False when done, and in the editing routing query the value of the Boolean and exit if True.
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41877599
That should be routine and not routing.
0
 

Author Comment

by:rayluvs
ID: 41877622
Can you give an example?
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 46

Assisted Solution

by:Martin Liss
Martin Liss earned 500 total points
ID: 41877789
Sure. Click a check box, click the "Start Edit Mode" button and then click the same or the other checkbox. Click the "End Edit Mode" button and click a checkxox.
28981520.zip
0
 

Author Comment

by:rayluvs
ID: 41877847
We modified your code to present our problem.

We added 2 checkbox Check2 & check3

When the apps load, it sets the values in Check2 & check3 which causes the events of each click to be triggered.

What we want that when setting in form load, the events be disabled.

Set the stops at the check licks and you will see what we mean.

checkbox
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41877856
Add mbEditing = True right before Check2.Value = 1 in Form_Load.
0
 

Author Comment

by:rayluvs
ID: 41877873
Yes, it worked!  Su[er obvious and didn't see it!

Thanx!
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41877877
You're welcome and I'm glad I was able to help.

If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2016
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2015
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Modern/Metro styled message box and input box that directly can replace MsgBox() and InputBox()in Microsoft Access 2013 and later. Also included is a preconfigured error box to be used in error handling.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question