Macro AUTOOPEN en liaison avec Table ACCESS

Question

Bonjour je suis nouveau sur le forum
Voici ma question 
J'utilise une base ACCESS, &#224; partir de laquelle je r&#233;alise plusieurs publipostages dans Word, en liaison avec des tables.
 Pour ce faire j'ai cr&#233;&#233; la macro AUTOOPEN dans chaque mod&#232;le de publipostage, mais il y a parfois des tables vides, ce qui g&#233;n&#232;re un message d'erreur.
Est il possible de modifier la macro en ecrivant une condition si table vide fermer mod&#232;le ............
Voici la macro AUTOOPEN 

Sub autoopen()
'
' autoopen Macro
' Macro enregistr&#233;e le 23/08/2005 par Alain'
    ActiveDocument.MailMerge.Execute Pause:=True
    ChangeFileOpenDirectory _
        "S:\Dcpe\BilansACE\Collectivites-locales-dceclo\bilans-expedies"
    ActiveDocument.SaveAs FileName:="ALENCON-BTA_ERIC-LE-CARVENNEC.doc", _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
    ActiveDocument.Close
    ActiveDocument.Close
End Sub

Quelqu'un peut il me venir en aide
Merci
acaga

Tuning Max · Answer

Pour commencer, tu met le code ci-dessous dans un module
Il s'agit d'une petite fonction que je viens d'&#233;crire pour tester le nombre d'enregistrement d'une table

*************** Start *************************
Function ExisteField(NomTable As String) As Boolean
On Error GoTo err:
Dim field As Recordset


Set field = CurrentDb.TableDefs(NomTable).OpenRecordset
If field.RecordCount > 0 Then
    ExisteField = True
Else:
    ExisteField = False
End If
    field.Close
field.Close


err:
Set field = Nothing
End Function

If ExisteField("tblclient&#232;le") Then
    MsgBox "il y a des enregistrement dans votre table"
Else:
    Exit Sub
End If
End Sub
****************** End **************************

ensuite tu appel la fonction depuis ton code, &#231;a pourrait donner un truc du genre:

If ExisteField("NomDeLaTable") Then
    MsgBox "il y a des enregistrement dans votre table"
Else:
    Exit Sub
End If

acaga · Answer

Je te remercie beaucoup, car ce n'est pas &#233;vident quand on d&#233;bute, 
je vais tester demain matin et je te tiendrai au courant
 J'utilise cette base de donn&#233;es pour une application que j'ai cr&#233;&#233;e sous access pour mon travail 

Encore Merci

acaga

Macro AUTOOPEN en liaison avec Table ACCESS

2 réponses

Discussions similaires