[AC-2010] DoCmd.GoToRecord ne fonctionne plus [Résolu]

[Geache]

Bonjour,

J'ai un formulaire qui fonctionnait très bien jusqu'ici. Il comporte un bouton Batch load qui réalisait l'import de photos en jpg en DBPix en mettant à jour une table photos qui est le recordsource de mon formulaire.

Le code source associé au bouton est le suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub btnBatchLoad_Click()
    On Error GoTo Finish
 
    Dim strFile As String
    Dim strFullPath As String
    Dim strFolderName As String
    Dim strAlbumName As String
    Dim intAlbumName As Integer
 
    ' Display a 'Browse for folder' dialog - see 'BrowseForFolder' module
    DoCmd.Echo False
    strFolderName = BrowseFolder("Selecteer de map met de afbeeldingen")
    strAlbumName = Forms!frmfotoIMain!txtAlbumName
    'intAlbumName = Forms!frmfotoIMain!lstAlbums
    intAlbumName = intNumAlbum
    If Not IsEmpty(strFolderName) And Not strFolderName = "" Then
        strFile = Dir(strFolderName & "\" & "*.jpg", vbNormal)
 
        While (Not StrComp(strFile, ""))
            If Len(strFile) > 1 Then
                strFullPath = strFolderName + "\" + strFile
                DoCmd.GoToRecord , "FrmFotoInstrument", acNewRec
                DBPixMain.ImageLoadFile (strFullPath)
            End If
            strFile = Dir
            Me!Description = strFullPath
            Me!AlbumName = intNumAlbum
       Wend
    End If
    Forms!frmfotoIMain.Recalc
Finish:
    If err.Number <> 0 Then
        Debug.Print err.Number & vbCrLf & err.Description
    End If
    DoCmd.Echo True
 
End Sub

Dans le cadre d'une adapatation en office2010, ce code ne fonctionne plus.
Un debug du code s'arrête sur la ligne

Code :

DoCmd.GoToRecord , "FrmFotoInstrument", acNewRec

et je reçois l'erreur suivante dans ma procédure Finish

2046
The command or action 'GoToRecord' isn't available now

J'ai beau interroger le web, je ne trouve pas de raison à ce que cette procédure coince subitement sur cette ligne de code.

L'un de vous aurait déjà rencontré ce problème et pourrait m'orienter ?

En vous remerciant d'avance.

Geache

[helas]

Bonsoir,
sous Access 2010 le code suivant fonctionne

Code :

1
2
 
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec

Peut-être, préciser qu'il s'agit d'un formulaire acDataForm

[Geache]

Désolé pour le retard dans la réponse. Avec les fêtes de fin d'année, un peu de retard dans mes essais. J'essaie cet après midi, et je donne le résultat.

Merci.

[Geache]

Je n'étais pas certain d'avoir testé le acDataForm, mais ca ne change rien du tout.

[Geache]

Finalement, j'ai modifié ma procédure en utilisant un Set Recordset avec ma table de photos, puis en jouant avec les .add et .update. Il me reste un réglage à faire pour éviter le doublon de la dernière photo de mon répertoire et synchroniser le formulaire.

Je n'ai toujours pas compris pourquoi ce docmd ne fonctionne plus, mais je n'ai pas le temps de chercher plus loin pourquoi. Ca fonctionne avec ma nouvelle procédure, je reviendrai sur ce problème plus tard si possible de façon à ce que cela puisse servir éventuellement à d'autres.