Search results

Yes.

No, I numbered a module and I just want to indent a module with Smart Indent.

Hello, in a module NumForm, I try to send a combinaison of keys to another module or a form, my form here is form_f_equilibrage . The code is +^M (Smart Indent) to indent a module. It is possible to do that ? Thank for your help Sub essaiBoucle1() Dim wshshell As Object Dim...

Thanks @Josef P. and @isladogs all is good :) And above all, I would not have been able to do this alone.

Not, of course

Before, in this module : Function fnDmwListAllFormulairesDeroulantes(lComptageFormulaires As String) As String ' Liste les formulaires dans le fichier "t_ListeDeroulanteFormulaires On Error GoTo ErrHandler Dim bolExiste As Boolean Dim Table_Name As String...

Sorry,I have a little problem more. I have a form with no module. In errSub, I put err=9, but it is not very elegant, can we treat this case otherwise or precisely treating nothing at all Function RechercheIntituleModForm(ByVal sSearchTerm As String, strNomModule As String) Dim...

Thanks @Josef P. , I have not see than @isladogs make again loop. You go directly, that what I want. :)

Thanks @isladogs, it works fine to me also

I do not know how to do, I have just the name of the form strNomModule. However, the loop works well, but reviews all the forms.

Yes I have

Thanks, but it do not work. Error 438

Hello, I have this code who is good, but I don't know how to modify to go directy to my form (strNomModule) and modify this "For Each oComponent In Application.VBE.ActiveVBProject.VBComponents" Function RechercheIntituleModForm(ByVal sSearchTerm As String, strNomModule As String) Dim...

I found a procedure : Sub findWordInModules(ByVal sSearchTerm As String, strNomModule As String) 'object.Find(target, startline, startcol, endline, endcol [, wholeword] [, matchcase] [, patternsearch]) 'https://msdn.microsoft.com/en-us/library/aa443952(v=vs.60).aspx '...

Thanks @arnelgp, I am sorry I try it in a form ! But i have a problem with the line 19 : "frm.Find" I dont know to write the name of the form. Function RechercheIntituleFormulaire(strFormulaireName As String, strSearch As String) As Boolean 'Procédure qui vérifie si le titre existe...

Hello Ihave this error, expected table : : my code : Function fnDmwListAllModulesDeroulantes(lComptageModules As String) As String ' Liste les tables dans le fichier "t_ListeDeroulante dans t_OperationSauvegarde_SuperPatrickCourant_28/02/2002 'On Error GoTo errHandler...

Thanks @bastanu

Thank you very much for your help and advice, I had no idea how to do it.

@The_Doc_Man Thanks to answer, that don't do at all. I try this, and I clic on the ID 2, it's ok, but after, if I click on another, the fields does not update, see below (1 with 2) : SELECT t_BANQUE.ID_BanquePK, [Nom] & " " & [Prenom] AS NomPrenom, t_BANQUE.Denomination FROM t_BANQUE...

Hello, I hope that during a click on the combo box "Conseiller", only those concerning the name in "Dénomination" be selected. The content of Conseiller : SELECT t_BANQUE.ID_BanquePK, [Nom] & " " & [Prenom] AS NomPrenom, t_BANQUE.Denomination FROM t_BANQUE RIGHT JOIN t_Conseiller ON...