Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Erreur de syntaxe (opérateur absent)

26/10/06 10:31
Cela fait ça ne marche toujours pas.

Mon Form est constitué de
un Form principal
un S/Form basé sur ma table courrier départ

dans ce S/Form, un bouton publipostage, qui lance ma procédure, laquelle utilise une requête faite après plusieurs requêtes, et qui regroupe tous les champs dont je vais avoir besoin pour lancer mes lettres types.
Cette requête utilise des champs calculés, qui concatènent plusieurs champs. notament mon champ FINALCOURRIER, est la concaténation de mes champs Ref courrier, Num courrier, et code locataire.

ci-joint le code
Private Sub Commande69_Click()
On Error GoTo Commande69_Click_Err
Dim wdapp As Word.Application, doc As Word.Document
Dim db As DAO.Database, rst As DAO.Recordset
Dim strsql As String, strnouveaufichier As String


'VERIFIER SI UN INTERLOCUTEUR EST BIEN SELECTIONNE

If IsNull(Me.[ref courrier]) Then
MsgBox "sélectionné une référence courrier !", vbExclamation, "Référence courrier"
Exit Sub
End If

'CONFIRMATION
If MsgBox("confirmez-vous l'impression du courrier référencé ?" _
& vbCr & Me.[ref courrier] & [numlettre] &
, _
    vbQuestion + vbYesNo, "FINALCOURRIER") = vbNo Then Exit Sub
    

'OUVRIR LA REQUETE "Requetecour1234567FINAL" POUR OBTENIR L'ADRESSE COMPLETE DE LA PERSONNE
'NORMALEMENT,LE SELECT NE FOURNIT QU'UNE SEULE LIGNE
Set db = CurrentDb()
strsql = "select * from [1234567] where [FINALCOURRIER]='" & Me.[ref courrier] & [numlettre] & 
 & "';"
Set rst = db.OpenRecordset(strsql)

'OUVRIR WORD
Set wdapp = CreateObject("word.application")
wdapp.Visible = True

'OUVRIR LE DOCUMENT
Set doc = wdapp.Documents.Open("c:\documents and settings\administrateur\bureau\Projet Access Mazelle\Courrier type\context-01.doc")

'REMPLACER LES SIGNETS PAR LES VALEURS DU RECORDSET
With doc
    .Bookmarks("DESTINATAIRE").Range.Text = Nz(rst("nom0"))
    .Bookmarks("Adressage10").Range.Text = Nz(rst("adressage10"))
    .Bookmarks("Adressage20").Range.Text = Nz(rst("adressage20"))
    .Bookmarks("CP0").Range.Text = Nz(rst("cp0"))
    .Bookmarks("VILLE0").Range.Text = Nz(rst("ville0"))
    .Bookmarks("REFCOURRIER").Range.Text = Nz(rst("FINALCOURRIER"))
End With

'IMPRIMER(PRINTOUT) OU VISUALISER(PRINTPREVIEW)
doc.PrintPreview

Commande69_Click_Exit:
    Exit Sub

Commande69_Click_Err:
    MsgBox Error$
    Resume Commande69_Click_Exit
End Sub

Private Sub Commande69_DblClick(Cancel As Integer)

End Sub

Private Sub destinataire0_DblClick(Cancel As Integer)
    If destinataire = "XXX" Then
    DoCmd.OpenForm "----11-sf-courrier nouveau destinaire"
    End If
End Sub

Private Sub Modifiable18_GotFocus()
    Modifiable18.Dropdown
End Sub

Private Sub Modifiable20_GotFocus()
    Modifiable20.Dropdown
End Sub

Private Sub Modifiable28_GotFocus()
    Modifiable28.Dropdown
End Sub

Private Sub Modifiable28_LostFocus()
On Error GoTo Modifiable28_Err
    If IsNull(Modifiable28) Then
        DoCmd.OpenForm "----11-sf-courrier nouveau destinaire", acNormal, "", _
        "[ref courrier]=[Forms]![11-f-COURRIER]![------courrier].[Form]![ref courrier]", , acNormal
    End If

Modifiable28_Exit:
    Exit Sub

Modifiable28_Err:
    MsgBox Error$
    Resume Modifiable28_Exit

End Sub

Private Sub objet_GotFocus()

    If objet = "Résiliation Hors Échéance" Then
        DoCmd.OpenForm "--------11-ssf-courrier resiliation hors echeance", acNormal, "", "
=[Forms]![11-f-courrier]!
", , acNormal
    End If
End Sub
Private Sub Commande38_Click()
On Error GoTo Err_Commande38_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "----11-sf-courrier nouveau destinaire"
    
    stLinkCriteria = "[ref courrier]=" & "'" & Me![ref courrier] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande38_Click:
    Exit Sub

Err_Commande38_Click:
    MsgBox Err.Description
    Resume Exit_Commande38_Click
    
End Sub
Private Sub Commande42_Click()
Dim wdapp As Word.Application, doc As Word.Document
Dim db As DAO.Database, rst As DAO.Recordset
Dim strsql As String, strnouveaufichier As String


'VERIFIER SI UN INTERLOCUTEUR EST BIEN SELECTIONNE
On Error GoTo Err_commande42_click
If IsNull(Me.FINALCOURRIER) Then
    MsgBox "sélectionné une référence courrier !", vbExclamation, "Référence courrier"
    Exit Sub
End If

'CONFIRMATION
    If MsgBox("confirmez-vous l'impression du courrier référencé   ?" _
    & vbCr & Me![nom] & "  " & Me![prenom] & "    " & Me![FINALCOURRIER], _
    vbQuestion + vbYesNo, "Référence courrier") = vbNo Then Exit Sub
    

'OUVRIR LA REQUETE "r courrier" POUR OBTENIR L'ADRESSE COMPLETE DELA PRESONNE
'NORMALEMENT,LE SELECT NE FOURNIT QU'UNE SEULE LIGNE
Set db = CurrentDb()
strsql = "select * from [r courrier FINALE] where [refcourrier]=" & Me.[refcourrier] & ";"
Set rst = db.OpenRecordset(strsql)

'OUVRIR WORD
Set wdapp = CreateObject("word.application")
wdapp.Visible = True

'OUVRIR LE DOCUMENT
Set doc = wdapp.Documents.Open("c:\documents and settings\administrateur\bureau\Projet Access Mazelle\courrier.doc")

'REMPLACER LES SIGNETS PAR LES VALEURS DU RCORDSET
With doc
    .Bookmarks("NOM").Range.Text = Nz(rst("nom"))
    .Bookmarks("DESTINATAIRE1").Range.Text = Nz(rst("destinataire1"))
    .Bookmarks("PRENOM").Range.Text = Nz(rst("prenom"))
    .Bookmarks("ADRESSE1").Range.Text = Nz(rst("adresse1"))
    .Bookmarks("ADRESSE2").Range.Text = Nz(rst("adresse2"))
    .Bookmarks("CP").Range.Text = Nz(rst("cp"))
    .Bookmarks("VILLE").Range.Text = Nz(rst("ville"))
    .Bookmarks("FINALCOURRIER").Range.Text = Nz(rst("FINALcourrier"))
    .Bookmarks("REFCOURRIER").Range.Text = Nz(rst("refcourrier"))
End With

'IMPRIMER(PRINTOUT) OU VISUALISER(PRINTPREVIEW)
doc.PrintPreview
SujetAuteurEnvoyé le

Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 08:48

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 08:56

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 09:30

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 09:36

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 09:40

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 09:51

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 10:31

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 10:42

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 10:55

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 10:59

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 11:21

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 11:28

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 12:01

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 12:47

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 13:02

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 14:09

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 14:59

Re: Erreur de syntaxe (opérateur absent)

Hervé Inisan26/10/06 15:07

Re: Erreur de syntaxe (opérateur absent)

Philippe Crovella26/10/06 15:19

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter