Discussion :

[Jluc45]

Bonjour la communauté, je ne sais pas si je poste au bon endroit, mais je tente

Dans le cadre d'un projet j'aimerais intégrer/générer des information ( ex : carré rouge, point jaune...) sur un plan bâtiment et ceux en parallèle lors de l'ajout de donnée sur Microsoft ACCESS

Par exemple je voudrais faire correspondre lors de l'ajout dans la base de donnée d'un meuble dans la pièce numéro 2" , un point jaune sur le plan ( type: http://www.diag-loc.fr/uploads/2/5/8...24645_orig.png )


Je ne sais pas si cela est possible. Je peux utiliser Autocad en parallèle mais le plus simple pour moi serait de directement utiliser des plan au format image( jpg ) et seulement rajouter des info complémentaire avec Access.

Merci beaucoup

[ClaudeLELOUP]

Bonjour,


Dans un formulaire, tu pourrais avoir :
- une image en arrière-plan sur toute la surface du formulaire : ton plan ;
- une série de contrôles de type image représentant les meubles ;
- dans une table les propriétés « Gauche » et « Haut » de chacun des contrôles « meuble » ;
- à l’ouverture du formulaire, on affecte à chacun de ces contrôles les propriétés stockées dans la table.

[Jluc45]

Ok, super j'essaierai des les plan disponible.

Merci beaucoup

[ClaudeLELOUP]

Suggestion :

- dans le formulaire, nomme tes contrôles « iMeuble01 », « iMeuble02 »… ;
- indique leur position (en twips) dans une table tCoordonnes



Dans l’événement « Sur ouverture », ce 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
Private Sub Form_Open(Cancel As Integer)
On Error GoTo GestionErreur
Dim ctrl As Control
'Positionner les contrôles iMeublexxx
For Each ctrl In Me.Controls
    If Left(ctrl.Name, 7) = "iMeuble" Then
       ctrl.Left = DLookup("Gauche", "tCoordonnees", "NomControle =""" & ctrl.Name & """")
       ctrl.Top = DLookup("Haut", "tCoordonnees", "NomControle =""" & ctrl.Name & """")
 
    End If
Next ctrl
Exit Sub
GestionErreur:
Select Case Err.Number
    Case 13 'iMeublexx non prévu sans la table
        MsgBox ctrl.Name & " n'est pas prévu dans tCoordonnees !"
    Case Else
        MsgBox Err.Number & "  " & Err.Description
End Select
 
End Sub

N'oublie pas de cliquer sur