CurrentDb.Execute "UPDATE ne s"execute pas?

bonjour,
j'ai retourné cela dans tout les sens, je ne comprends pas pourquoi
je me permet de vous soumettre ce problème
merci de vos réflexions
Pascal
CurrentDb.Execute "UPDATE
ne s'execute plus
Dans l'ordre: ouverture formulaire form OPEN test if table exist si non
création
tout cela OK
le problème se pose a l'appel de function fchargementImprimantes
la table se remplis mais le champ ts_selection ne se coche pas??????

ensuite form LOAD le test échoue puisque aucune case cochée dans la table


'-------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
'si la table n'a pas étée initialisée, il faut la créer
'vérification de l'existence de la table d'imprimante
If Not ExistTable("tbPrtList") Then
'créer table
CréerTableDAO
'remplissage de la table imprimante
fChargementImprimantes
End If
End Sub


'-----------forcement nomPRt ne vaut jamais rien-------
'-----------et cocher case imprimante ne peut
fonctionner-------------------------------------
Private Sub Form_Load()
Dim NomRécupérer As String
Dim NomPrt As String
Dim rs As Recordset

On Error GoTo Sortie
'rechercher l'imprimante qui est mise par défaut dans la table tbPrtList
Set rs = CurrentDb().OpenRecordset("SELECT * FROM tbPrtList WHERE
ts_selection = true")

If Not rs.EOF And Not rs.BOF Then
NomRécupérer = rs.Fields("tx_PrtNom")
End If
'ajoute les guillemets puisque un String
NomPrt = """" & NomRécupérer & """"

'aficher dans le combo
Me.cboImprimante.DefaultValue = NomPrt
'met a jour la table tbPrtList
CocherCaseImprimante (NomPrt)

Sortie:

Set rs = Nothing
end sub


'-------currentdb n'est pas pris en compte--------------------
Function fChargementImprimantes()
' Fonction permettant de remplir une fois la table des imprimantes
' A lancer si nouvelle imprimante créée ou nouveau driver installé

Dim tampon As String
Dim i As Integer
Dim itNbPrt As Integer
Dim rs As Recordset
Static atagDevices() As aht_tagDeviceRec

On Error GoTo GestErr

Set rs = CurrentDb().OpenRecordset("tbPrtList", dbOpenDynaset)

' Suppression des enregistrements de la table
DoCmd.RunSQL "DELETE * FROM tbPrtList"

' Détermine le nombre d'imprimantes en cours sur le poste
itNbPrt = ahtGetPrinterList(atagDevices())

' Ajoute les imprimantes dans la table
For i = 1 To itNbPrt
rs.AddNew
rs![no_Prt].Value = i
rs![tx_prtNom].Value = atagDevices(i).drDeviceName
tampon = atagDevices(i).drDeviceName

rs![tx_Prtport].Value = atagDevices(i).drPort
rs![tx_prtdriver].Value = atagDevices(i).drDriverName

rs.Update

Next i

' coche la dernière imprimante selectionnée contenue dans Tampon pour
initialiser la table
CurrentDb.Execute "UPDATE tbPrtList SET ts_Selection = True " & "WHERE
tx_PrtNom = '" & tampon & "';"

FinLoad:
' Fermeture des objets
rs.Close
Set rs = Nothing

Exit Function
' Gestion des erreurs
GestErr:

MsgBox "Erreur dans fChargementImprimantes : " & Error & " (" & Err &
")"

Resume FinLoad

End Function

'---------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' NomImprimante est celui de l'imprimante repris dans le combo sur le
formulaire
'coche l'imprimante selectionnée
CurrentDb.Execute "UPDATE tbPrtList SET ts_Selection = True " & "WHERE
tx_PrtNom = '" & NomImprimante & "';"
'Décoche toutes les autres imprimantes
CurrentDb.Execute "UPDATE tbPrtList SET ts_Selection = false " & "WHERE
tx_PrtNom <> '" & NomImprimante & "';"
End Function