Search results

Thanks, It work nice. I will try tomorrow next... and to change False in true

Sorry @Josef P. I have a problem

Hello, I want to list Add-In Manager dialog box and know is some elements are activate. After, Activate and desactivate, here for VBA MZ-Tools . Thanks to help

I send my last form, it's all right for me. Thanks for yours answers... and Happy new year :)

I found : 30 sFrmName = Screen.ActiveControl.Parent.Name 40 Debug.Print sFrmName 50 If Nz(sFrmName, "") = "" Then Exit Function Dim sSsForm As String 60 Call sousForm2(sSsForm) 70 Debug.Print sSsForm 80 If Not IsNull(sSsForm) And...

I have Error 2516. (see #5) DoCmd.OpenModule "","sousForm1" DoCmd.OpenModule "form_formulaire1","Commande0_Click" DoCmd.OpenModule "form_formulaire1","essai32" DoCmd.OpenModule "","essai33" DoCmd.OpenModule "Pat_Mod_MsgBox2","MsgBoxTitleBtnProc" DoCmd.OpenModule "","essai32" DoCmd.OpenModule...

However, DoCmd.OpenModule "form_formulaire2","Commande2_Click" doesn't work. I cannot open a code in a subform with DoCmd.OpenModule ?

Thanks for yours answers. I want to open the form (Form_Formulaire2) or the module (mdlGestionErreurs) where I made the error . I try it in the window execute a lot of code DoCmd.OpenModule "form_formulaire1","Commande0_Click" it does DoCmd.OpenModule Forms![formulaire1]![formulaire2]...

Hello and Happy Holidays. I have an error 2516 telling me : Access cannot find the module "Form_formulaire2". The code should not be correct, but I don't know how to correct it. You have to click on Error in Form 2, then Déboguer. The error is on line 55. Precision, the subform is not a...

I try it, but I don't know how to do :cry:

Hello, I am helped with: http://access.mvps.org/accessfr/apis/api0029.htm And I made my code : Sub lister() Dim x As Long Dim y As Long Dim sSelection As String Dim sSelection1 As String sSelection1 = "" y = 0 On Error GoTo fin For x = 1 To...

Thanks @Josef P. for your two examples, before you edit your message, I don't understand it. Now, I tried them and they work perfectly.

Thanks @CJ_London it's just what I want :)

Hello, I have create a query, name "Requête2" : SELECT DISTINCT tblVariables.NomBase FROM tblVariables; And In my vba code, I write : Dim lCompte As Long lCompte = DCount("*", "Requête2") This code is right, and it give me the number of different NomBase. Can I do the same with just vba code ?

Thanks to all for your help, I finished my work, as I wanted.

@CarlettoFed, Sorry I don't see your new message.

Hello, I move forward in my project, It's near good. I added a function : Public s_Modules As String Public s_Bases As String Public Function RendValeurBase() As String RendValeurBase = s_Modules End Function In lst_Module the code : SELECT DISTINCT tblVariables.Modules...

It's clever !

Thanks @GPGeorge, I look that, for me it takes time.

In french it's call "Zone de liste déroulante"