Re bonjour,
Je reviens avec mon projet de migration en nombre.
ci-joint, la liste des opérations qui semble nécéssaire ...
la table de référence est [appli] dans laquelle j'ai un champ [applipath]
qui contient le path et [appliname] qui contient le nom de l'appli;
'Selectionner les applis ou [peridicity] est entre 1 et 3;
'Creer un repertoire provisoire ("Migration");
'dans le répertoire provisoire, recreer l'arborescence d'origine
"migration" & [applipath];
'migrer l'appli [appliName] et la sauver dans le nv répertoire;
'mettre MigOk à "Yes" ;
Dim applipathname As String
Dim appliname As String
Dim rs As Recordset
Set rs = DoCmd.RunSQL("SELECT Appli.peridicity " & _
"FROM Appli " & _
"WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR
(((Appli.peridicity)=3));")
...mais la, je calle un peu ..;quand même ...
merci à vous,
Frédéric
NB merci à ceux qui m'ont déja fourni qq bonne infos!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
fth
Re-Bonjour, mon code progresse mais j'ai un petit blocage: voir >>>>> Private Sub Command25_Click() 'Selectionner les applis ou [peridicity] est entre 1 et 3; ok function DoSql 'Creer un repertoire provisoire ("Migration"); ok Function FolderExists 'dans le répertoire provisoire, recreer l'arborescence d'origine "migration" & [applipath]; 'migrer l'appli [appliName] et la sauver dans le nv répertoire; 'mettre MigOk à "Yes" ;
Dim applipathname As String Dim AppliName As String Dim NewMigPath As String
NewMigPath = ("d:MigAppli") & Mid([AppliPath], 4) If FolderExists(NewMigPath) = False Then
c'est ici que ça calle .... (path/file access error) M'enfin!? MkDir ("NewMigPath")
'Else
End If
D'avance merci
Frédéric
"fth" wrote in message news:
Re bonjour, Je reviens avec mon projet de migration en nombre. ci-joint, la liste des opérations qui semble nécéssaire ...
la table de référence est [appli] dans laquelle j'ai un champ [applipath] qui contient le path et [appliname] qui contient le nom de l'appli;
'Selectionner les applis ou [peridicity] est entre 1 et 3; 'Creer un repertoire provisoire ("Migration"); 'dans le répertoire provisoire, recreer l'arborescence d'origine "migration" & [applipath]; 'migrer l'appli [appliName] et la sauver dans le nv répertoire; 'mettre MigOk à "Yes" ;
Dim applipathname As String Dim appliname As String Dim rs As Recordset
Set rs = DoCmd.RunSQL("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
...mais la, je calle un peu ..;quand même ...
merci à vous,
Frédéric
NB merci à ceux qui m'ont déja fourni qq bonne infos!
Re-Bonjour,
mon code progresse mais j'ai un petit blocage:
voir >>>>>
Private Sub Command25_Click()
'Selectionner les applis ou [peridicity] est entre 1 et 3; ok function
DoSql
'Creer un repertoire provisoire ("Migration"); ok Function FolderExists
'dans le répertoire provisoire, recreer l'arborescence d'origine
"migration" & [applipath];
'migrer l'appli [appliName] et la sauver dans le nv répertoire;
'mettre MigOk à "Yes" ;
Dim applipathname As String
Dim AppliName As String
Dim NewMigPath As String
NewMigPath = ("d:MigAppli") & Mid([AppliPath], 4)
If FolderExists(NewMigPath) = False Then
c'est ici que ça calle .... (path/file access error) M'enfin!?
MkDir ("NewMigPath")
'Else
End If
D'avance merci
Frédéric
"fth" <newsgrp@matloc.be> wrote in message
news:ur6pr8RiFHA.1148@TK2MSFTNGP12.phx.gbl...
Re bonjour,
Je reviens avec mon projet de migration en nombre.
ci-joint, la liste des opérations qui semble nécéssaire ...
la table de référence est [appli] dans laquelle j'ai un champ [applipath]
qui contient le path et [appliname] qui contient le nom de l'appli;
'Selectionner les applis ou [peridicity] est entre 1 et 3;
'Creer un repertoire provisoire ("Migration");
'dans le répertoire provisoire, recreer l'arborescence d'origine
"migration" & [applipath];
'migrer l'appli [appliName] et la sauver dans le nv répertoire;
'mettre MigOk à "Yes" ;
Dim applipathname As String
Dim appliname As String
Dim rs As Recordset
Set rs = DoCmd.RunSQL("SELECT Appli.peridicity " & _
"FROM Appli " & _
"WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR
(((Appli.peridicity)=3));")
...mais la, je calle un peu ..;quand même ...
merci à vous,
Frédéric
NB merci à ceux qui m'ont déja fourni qq bonne infos!
Re-Bonjour, mon code progresse mais j'ai un petit blocage: voir >>>>> Private Sub Command25_Click() 'Selectionner les applis ou [peridicity] est entre 1 et 3; ok function DoSql 'Creer un repertoire provisoire ("Migration"); ok Function FolderExists 'dans le répertoire provisoire, recreer l'arborescence d'origine "migration" & [applipath]; 'migrer l'appli [appliName] et la sauver dans le nv répertoire; 'mettre MigOk à "Yes" ;
Dim applipathname As String Dim AppliName As String Dim NewMigPath As String
NewMigPath = ("d:MigAppli") & Mid([AppliPath], 4) If FolderExists(NewMigPath) = False Then
c'est ici que ça calle .... (path/file access error) M'enfin!? MkDir ("NewMigPath")
'Else
End If
D'avance merci
Frédéric
"fth" wrote in message news:
Re bonjour, Je reviens avec mon projet de migration en nombre. ci-joint, la liste des opérations qui semble nécéssaire ...
la table de référence est [appli] dans laquelle j'ai un champ [applipath] qui contient le path et [appliname] qui contient le nom de l'appli;
'Selectionner les applis ou [peridicity] est entre 1 et 3; 'Creer un repertoire provisoire ("Migration"); 'dans le répertoire provisoire, recreer l'arborescence d'origine "migration" & [applipath]; 'migrer l'appli [appliName] et la sauver dans le nv répertoire; 'mettre MigOk à "Yes" ;
Dim applipathname As String Dim appliname As String Dim rs As Recordset
Set rs = DoCmd.RunSQL("SELECT Appli.peridicity " & _ "FROM Appli " & _ "WHERE (((Appli.peridicity)=1)) OR (((Appli.peridicity)=2)) OR (((Appli.peridicity)=3));")
...mais la, je calle un peu ..;quand même ...
merci à vous,
Frédéric
NB merci à ceux qui m'ont déja fourni qq bonne infos!
