Me.Recordset et "no current record"

Me.Recordset et "no current record" - VB/VBA/VBS - Programmation

Marsh Posté le 25-07-2014 à 08:24:22    

Bonjour,
 
J'ai créé un form sous Access 2010, avec une table comme recordsource et dynaset. Sur le form, tous les champs sont liés aux champs de la table à part un champ de texte que j'utilise pour uploader des pièces jointes (stocké comme attachment dans le champ "business_case" de la table) comme suit:
 

Code :
  1. Private Sub attachementText_Click()
  2.   Dim filepath As String
  3.     Dim rs As Recordset2
  4.    
  5.     filepath = SelectFile
  6.     Dim fso As New FileSystemObject
  7.     Dim fileName As String
  8.     fileName = fso.GetFileName(filepath)
  9.        
  10.     Set rs = Me.Recordset
  11.              
  12.     Select Case isValidPackBusinessCase(filepath)
  13.     Case 1 ' valid business case, approved
  14.         Me.attachementText.Value = fileName
  15.         AddAttachment rs, "pack_business_case", filepath
  16.     Case -1 'valid business case, but not approved
  17.         MsgBox "Uploaded file is not an approved business case"
  18.     Case Else
  19.         MsgBox "Uploaded file is not a valid business case"
  20.     End Select
  21. End Sub


 
Dans la méthode AddAttachment, j'ai la commande:

Code :
  1. rstCurrent.Fields("business_case" ).Value


 
Et là je me mange un "no current record". En googlant j'ai bien compris que c'est parce que le recordset ne contient pas encore d'entrées (confirmé par le AbsolutePositon = -1), mais comment changer ça? J'ai essayé de faire un rs.AddNew dans mon event "attachementText_Click()", mais j'ai une erreur me disant que l'action a été bloquée (probablement par le fait que le Form est lié à ce même recordset).
 
Voyez-vous où je fais faux?
 
merci!
 
Esox


---------------
Si la vérité est découverte par quelqu'un d'autre,elle perd toujours un peu d'attrait
Reply

Marsh Posté le 25-07-2014 à 08:24:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed