Discussion :

[ThieBEN]

Besoin d'aide, j'ai une base access où je gère un carnet de plongée. J'aimerai créer un formulaire photo pour insérer à chaque enregistrement d'une plongée une photo. j'ai sessayé plusieurs méthodes aucune ne convient à mes attentes. J'aimerai, quand je clique sur le bouton insérer qu'il m'ouvre le fichier exact "et non le disque C" ou se trouvent mes photos et que le nom de la photo s'insére dans le controle nom photo en même temps que la photo. Mes photos sont stockées à l'extérieur de la base. Autre problème quand je suis sur le formulaire photo et que je clique sur le bouton insérer une photo pour changer une photo le dossier s'ouvre normalement, mais si je fais annuler il m'efface la photo actuelle le message qui s'affiche quand je fais annuler "Argument ou appel de procédure incorrect" . Je ne sais pas si j'ai été clair
Pouvez-vous m'aider

[delcroixf]

Bonjour,
Pas trop clair à mon sens mais au milieu du Pacifique Sud il est un peu tard...
1) Il existe d'excellents tutoriels sur la gestion des images... j'ai testé pour toi !
2) Il nous faudrait ton code qui permet de gérer cela.. Ca permettrait d'être un peu plus clair.

Enfin, pour la plongée ca m'intéresse car effectivement mes carnets se remplissent trop vite mais j'ai été jusque là occupé et fainéant pour cérer une base de gestion !!!
A bientôt
F

[ThieBEN]

Voilà le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 cmdPhoto_Click()
On Error GoTo Err_Commandex_Click
Dim ValPos As Variant
Dim TabVal As Variant
Dim ResTest As String
Dim NomPhoto As String
Dim Mabase As Database
Dim MonRst As Variant
 
 
 Set Mabase = CurrentDb
 Set MonRst = Mabase.OpenRecordset("Paramètre")
 
    If IsNull(MonRst![chemin photo]) Then
        ResTest = TestIt("C:\")
    Else
        If IsNull(MonRst![chemin photo]) Or IsEmpty(MonRst![chemin photo]) Then
            ResTest = TestIt("C:\")
        Else
            ResTest = TestIt(MonRst![chemin photo])
        End If
    End If
 
    ValPos = RechCaract(ResTest, "\")
    Me.Photo = ResTest
    NomPhoto = Right(ResTest, Len(ResTest) - ValPos)
    NomPhoto = Left(NomPhoto, Len(NomPhoto) - 4)
    Me.imgPhoto.Picture = Me.Photo
 
Exit_Commandex_Click:
    Exit Sub
 
Err_Commandex_Click:
    MsgBox err.Description
    Resume Exit_Commandex_Click
 
End Sub