[AccessD] Generic Procedure on form controls for Drag and Drop

Stuart McLachlan stuart at lexacorp.com.pg
Wed Feb 6 14:47:50 CST 2013


Hi John,

Welcome to the list.

Instead of  "=TxtBoxDblClick([Txt101])", you can just use ="TxtBoxDblClick()" and then in 
TxtBoxDblClick,  just refer to Me.ActiveControl.   

You can do the same with your other functions.

You can make your Up/Down/Move functions even more generic you using something like:

Select Case Left$(me.activeControl.Name,3)
   Case "txt" ' It's a text box
     ...
   Case "cbo"  'It's a combobox
   ...

You can store Button,Shift/X/Y in variables local to the form
Dim intBtn As Integer
Dim sngX As Single
Dim sngY As Single
Dim intShift As Integer

and populate these in the MouseDown

> 
> 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
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




More information about the AccessD mailing list