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
Eric
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Function fExisteTable(NomTable As String) As Boolean
Dim bd As Database, t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
If t.Name = NomTable Then
fExisteTable = True
Exit For
End If
Next t
Set bd = Nothing
End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est
présente alors je fais une application sinon je fais autre chose?
merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Fort bien !
Mais si la table n'existe pas ?
Comment la créer ?
A partir de MaTableStructure par exemple.
MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" <f_framZZ@hotmail.com> wrote in message
news:%23fiBp3WcHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean
Dim bd As Database, t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
If t.Name = NomTable Then
fExisteTable = True
Exit For
End If
Next t
Set bd = Nothing
End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle
est présente alors je fais une application sinon je fais autre chose?
merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas besoin de redemander le nom de la table à créer si elle n'existe pas. Je ferai quelque chose comme ceci en supposant que la table MaTableStructure est dans la base courante :
Sub zz() If Not fExisteTable("tBruno") Then DoCmd.TransferDatabase acImport, "Microsoft Access", _ CurrentProject.FullName, acTable, _ "MaTableStructure", "tBruno", True Else ' l'autre traitement End If End Sub
Bonsoir,
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas
besoin de redemander le nom de la table à créer si elle n'existe pas. Je
ferai quelque chose comme ceci en supposant que la table
MaTableStructure est dans la base courante :
Sub zz()
If Not fExisteTable("tBruno") Then
DoCmd.TransferDatabase acImport, "Microsoft Access", _
CurrentProject.FullName, acTable, _
"MaTableStructure", "tBruno", True
Else
' l'autre traitement
End If
End Sub
Bonsoir,
Fort bien !
Mais si la table n'existe pas ?
Comment la créer ?
A partir de MaTableStructure par exemple.
MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" <f_framZZ@hotmail.com> wrote in message
news:%23fiBp3WcHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean
Dim bd As Database, t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
If t.Name = NomTable Then
fExisteTable = True
Exit For
End If
Next t
Set bd = Nothing
End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle
est présente alors je fais une application sinon je fais autre chose?
merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas besoin de redemander le nom de la table à créer si elle n'existe pas. Je ferai quelque chose comme ceci en supposant que la table MaTableStructure est dans la base courante :
Sub zz() If Not fExisteTable("tBruno") Then DoCmd.TransferDatabase acImport, "Microsoft Access", _ CurrentProject.FullName, acTable, _ "MaTableStructure", "tBruno", True Else ' l'autre traitement End If End Sub
Bonsoir,
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas besoin de redemander le nom de la table à créer si elle n'existe pas. Je ferai quelque chose comme ceci en supposant que la table MaTableStructure est dans la base courante :
Sub zz() If Not fExisteTable("tBruno") Then DoCmd.TransferDatabase acImport, "Microsoft Access", _ CurrentProject.FullName, acTable, _ "MaTableStructure", "tBruno", True Else ' l'autre traitement End If End Sub
Bonsoir,
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?
"Eric" <f_framZZ@hotmail.com> wrote in message
news:e$KVT$jcHHA.4888@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas
besoin de redemander le nom de la table à créer si elle n'existe pas. Je
ferai quelque chose comme ceci en supposant que la table MaTableStructure
est dans la base courante :
Sub zz()
If Not fExisteTable("tBruno") Then
DoCmd.TransferDatabase acImport, "Microsoft Access", _
CurrentProject.FullName, acTable, _
"MaTableStructure", "tBruno", True
Else
' l'autre traitement
End If
End Sub
Bonsoir,
Fort bien !
Mais si la table n'existe pas ?
Comment la créer ?
A partir de MaTableStructure par exemple.
MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" <f_framZZ@hotmail.com> wrote in message
news:%23fiBp3WcHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean
Dim bd As Database, t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
If t.Name = NomTable Then
fExisteTable = True
Exit For
End If
Next t
Set bd = Nothing
End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle
est présente alors je fais une application sinon je fais autre chose?
merci
--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Supposons que tu testes la présence de la table tBruno, tu n'as donc pas besoin de redemander le nom de la table à créer si elle n'existe pas. Je ferai quelque chose comme ceci en supposant que la table MaTableStructure est dans la base courante :
Sub zz() If Not fExisteTable("tBruno") Then DoCmd.TransferDatabase acImport, "Microsoft Access", _ CurrentProject.FullName, acTable, _ "MaTableStructure", "tBruno", True Else ' l'autre traitement End If End Sub
Bonsoir,
Fort bien ! Mais si la table n'existe pas ? Comment la créer ? A partir de MaTableStructure par exemple. MsgBox : "votre nom svp. ... et puis :
Do Cmd copy MaTableStructure vers NewTable ??
Bien à vous
"Eric" wrote in message news:%
Bonsoir,
Par exemple, avec ceci:
Function fExisteTable(NomTable As String) As Boolean Dim bd As Database, t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs If t.Name = NomTable Then fExisteTable = True Exit For End If Next t Set bd = Nothing End Function
Est-il possible, par vba, de vérifier la présence d'une table, si elle est présente alors je fais une application sinon je fais autre chose?