transformation vba en vb
Le
MH

Bonjour
je ne maitrise pas tres bien vb et j'aimerais transcrire du code vba afin d=
'éviter l'install du runtime.
le but est de mettre à jour les nouveaux champs créés suite à mise =
à jour avec les valeurs par défaut de la base modele.
je n'arrive pas à traduire cela :
Set Base = wk.OpenDatabase(Chemin & "gescobasedonnee" & NomBase, True,=
False)
Set BaseMod = wk.OpenDatabase(Chemin & "gescobasedonneebasemodelmodel=
.mdb", False, False)
For Each table In Base.TableDefs
If Left$(table.Name, 6) <> "model_" And Left$(table.Name, 6) <> "module=
" And Left$(table.Name, 4) <> "MSys" And table.Name <> "of" Then
For Each Champ In table.Fields
If Champ.DefaultValue = Null Or Champ.DefaultValue = "" Then
If Champ.Attributes And dbAutoIncrField Then
Else
Select Case Champ.Type
Case dbInteger
If BaseMod.TableDefs(table.Name).Fields(Champ.Name).Propertie=
s("DefaultValue") = Null Or BaseMod.TableDefs(table.Name).Fields(Champ.Na=
me).Properties("DefaultValue") = "" Then
Int_ValDef = 0
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("D=
efaultValue") = Int_ValDef
Else
Int_ValDef = BaseMod.TableDefs(table.Name).Fields(Champ.N=
ame).Properties("DefaultValue")
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("D=
efaultValue") = Int_ValDef
End If
.
si qqun peut m'aider
Merci d'avance
MH
je ne maitrise pas tres bien vb et j'aimerais transcrire du code vba afin d=
'éviter l'install du runtime.
le but est de mettre à jour les nouveaux champs créés suite à mise =
à jour avec les valeurs par défaut de la base modele.
je n'arrive pas à traduire cela :
Set Base = wk.OpenDatabase(Chemin & "gescobasedonnee" & NomBase, True,=
False)
Set BaseMod = wk.OpenDatabase(Chemin & "gescobasedonneebasemodelmodel=
.mdb", False, False)
For Each table In Base.TableDefs
If Left$(table.Name, 6) <> "model_" And Left$(table.Name, 6) <> "module=
" And Left$(table.Name, 4) <> "MSys" And table.Name <> "of" Then
For Each Champ In table.Fields
If Champ.DefaultValue = Null Or Champ.DefaultValue = "" Then
If Champ.Attributes And dbAutoIncrField Then
Else
Select Case Champ.Type
Case dbInteger
If BaseMod.TableDefs(table.Name).Fields(Champ.Name).Propertie=
s("DefaultValue") = Null Or BaseMod.TableDefs(table.Name).Fields(Champ.Na=
me).Properties("DefaultValue") = "" Then
Int_ValDef = 0
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("D=
efaultValue") = Int_ValDef
Else
Int_ValDef = BaseMod.TableDefs(table.Name).Fields(Champ.N=
ame).Properties("DefaultValue")
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("D=
efaultValue") = Int_ValDef
End If
.
si qqun peut m'aider
Merci d'avance
MH
la transcription, par exemple,de ce code :
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("DefaultValue") = """"""
merci