Search results

I'm sorry Gasman but i don't understand your devlopment:confused:

Moving a folder a folder Now a try to create or rename a folder if not exists. Thats OK. But if the folder don't exist move him to a another folder d but that s cant i do. I use fso . Private Sub RenFile_Click() Dim fso As Object Dim rootPath As String, destPath As String, strPath As...

Good morning, everyone, I would like to standardize the labels of my files. So I have a folder c: Staff Eric Lepetit (123) folder1 Folder2 Folderx ABC.txt c: Personnel John Medium 456 folder1 Folder2 Folderx DEF.txt c: Staff Matt Eric Lepetit folder1 Folder2 Folderx GHI.txt And I would like...

The code has been rewritten. Sub directory is created but the file . pdf is not copied Private Sub btncopy_Click() Dim fso As Object Dim fromPath As String, toPath As String, strPath As String Dim fileExt As String, source As String, destination As String, strSql As String Dim...

OK Its ok but now If Dir(FromPath, vbDirectory) = "" Then my code blocks. I added . MoveNext but it sblocks too. With rs If rs.RecordCount = 0 Then MsgBox "No files to transfer" Else Do While Not .EOF FromPath = "C:\Decisions\"...

Now µI adjusted my code but he doesn t copy the file.pdf into the right directory. " FileCopy FromPath, ToPath & !Numero" does not work i think Option Compare Database Sub Copy_Certain_Files_In_Folder() Dim FSO As Object Dim FromPath As String Dim ToPath As String Dim FileExt...

Hey the Community, My code blocks at the line level "MkDir ToPath" He don't find the ToPath directory Option Compare Database Function Copy_Some_files() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sSQL As String...

Yes all is OK

The value of Matr or Nature are Ok but the value of rs is nothing.

At level Set rs = DBEngine(0)(0).OpenRecordset("Select debut, fin From Decisions " & _ "Where Matr =" & Matr & " And Nature = '" & Nature & "'")

Now it gives me an error 3061 too few parameters : Expecterd 1. I have checked the spelling and the fields but all seems ok Thanks Habiler

Hello to all, The value of totMois indicates a zero value. Where is my error. Thanks Habiler Function ML(Matr As Long, Nature As String, debut As Date, fin As Date, fonction As Integer, Pourcent As Integer) As Integer Dim totAbs As Long Dim totMois As Variant Dim stockAbstype As...

Hello, How can store the total of "DateDiff('m', [debut], [fin])" of a [Nature] by [Matr]. . I have a table with fields debut, fin, Matr, Nature. Matr Nature Debut fin Calculation (DateDiff('m', [debut], [fin])") 3478 Holiday 1/1/2017...

Hi Everybody, Whats wrong with my code ?? newSQL1 = "SELECT CODE, DCOUNT(PERIODE,Maladies,"PERIODE = '01/01/2017'")AS Teller FROM Maladies " Habiler

in fact the field is named [fin] in french. Kr Habiler

It doesn't work. Syntax error. Thks Habiler

Hello every, I would wish to know how to put a condition in the property field : valid if . I have 2 fields date [begin] and [end]. I would that [end] cannot be lower or equal at [begin]. I tried >= [begin] but I receive a fault. Thaks Habiler

Hello all, The module below below gives e an error of execution 13, while it worked perfectly in another directory. The error is situated at the level of the line: If Len(Dir(filePath)) > "" ThenWe can help me? Thanks for all Habiler The whole module : Private Sub...

Thanks for all Habiler

Hello, I created "system" forms beginning with one S but I do not find them any more. How to get back them. Thank you very much Habiler