John Bodin
jbodin at sbor.com
Wed Feb 6 12:55:59 CST 2013
Hello, New to this list and need some guidance on a form I've developed (I posted this on LinkedIn and got a few links with good information, but still having issues). I have a grid of many text boxes on a form in an Access 2003 app that I fill from a table upon opening the form as well as when the user changes a date box. I add some generic procedure calls on the fly to each text box where I pass the control to the generic function (for instance, I'll add a double-click event to text box "Txt101" as "=TxtBoxDblClick([Txt101])". This will pass the control to my function TxtBoxDblClick so I can react to it.) This all works fine for all text boxes and I reference just one (same) routine for each control. I'm trying to experiment with Drag and Drop and found some code that I can get to work if at Design time, I add three event procedures to a text box control (Mouse Down/Up/Move). If I do this to two different controls, creating 3 event procedures for each at design time, I can successfully drag and drop between the two controls. So the drag and drop code looks like it works. My problem is, I want to have 3 generic routines like my TxtBoxDblClick function, that I can add on the fly to the On Mouse Down/Up/Move events and I can't figure out the syntax and/or code to make this happen. I can add the custom Functions no problem, but I know I need to be able to deal with the Button, Shift, X & Y parameters somehow. I can pass the control to the custom function, but am unable to reference the Button, Shift, X & Y parameters. I'm guessing I'll need to create some type of class possibly? If so, can someone provide some sample code on how to do this what the calls would be? Thanks for any ideas. John