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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
magali.hantz2327
Le #26320103
Juste un petit complément, ce que je ne trouve pas c'est la syntaxe pour modifier la valeur par défaut d'un champ
la transcription, par exemple,de ce code :
Base.TableDefs(table.Name).Fields(Champ.Name).Properties("DefaultValue") = """"""

merci
Publicité
Poster une réponse
Anonyme