Petite question d esthetique. J ouvre differents formulaires en mode continu
par defaut a partir d un double clique sur differents champs.
Mais ces formuaires ne s ouvrent pas tous de la meme maniere, bien qu ayant
les memes proprietes et les memes dimensions/design au depart. La hauteur
(height) de certains tend a varier, certains s affichent avec de l espace
pour 10 records, d autres pour 2 seulement, meme quand 1 seul record est
selectionne. Comment standardiser la hauteur de ces formulaires a l ouverture?
Merci par avance (surtout que je suis pas sur d etre super clair...)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Product"
stLinkCriteria = "[ProductID]=" & Me![SearchSKU]
If Not (IsNull(Me.SearchSKU)) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "ProductID"
Else
DoCmd.OpenForm "frm_Product"
DoCmd.GoToRecord , "frm_Product", acNewRec
End If
Exit_SearchSKU_DblClick:
Exit Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice
Bonjour,
Essaie de donner à ton formulaire le statut d'indépendant, affiche le en mode formulairesans sauvegarder, met le à la dimension voulue puis ferme le, répond oui à la demande de sauvegarde.
Bonjour
Petite question d esthetique. J ouvre differents formulaires en mode continu par defaut a partir d un double clique sur differents champs.
Mais ces formuaires ne s ouvrent pas tous de la meme maniere, bien qu ayant les memes proprietes et les memes dimensions/design au depart. La hauteur (height) de certains tend a varier, certains s affichent avec de l espace pour 10 records, d autres pour 2 seulement, meme quand 1 seul record est selectionne. Comment standardiser la hauteur de ces formulaires a l ouverture?
Merci par avance (surtout que je suis pas sur d etre super clair...)
Dim stDocName As String Dim stLinkCriteria As String
stDocName = "frm_Product"
stLinkCriteria = "[ProductID]=" & Me![SearchSKU]
If Not (IsNull(Me.SearchSKU)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "ProductID" Else DoCmd.OpenForm "frm_Product" DoCmd.GoToRecord , "frm_Product", acNewRec End If Exit_SearchSKU_DblClick: Exit Sub
Essaie de donner à ton formulaire le statut d'indépendant, affiche le en
mode formulairesans sauvegarder, met le à la dimension voulue puis ferme le,
répond oui à la demande de sauvegarde.
Bonjour
Petite question d esthetique. J ouvre differents formulaires en mode continu
par defaut a partir d un double clique sur differents champs.
Mais ces formuaires ne s ouvrent pas tous de la meme maniere, bien qu ayant
les memes proprietes et les memes dimensions/design au depart. La hauteur
(height) de certains tend a varier, certains s affichent avec de l espace
pour 10 records, d autres pour 2 seulement, meme quand 1 seul record est
selectionne. Comment standardiser la hauteur de ces formulaires a l ouverture?
Merci par avance (surtout que je suis pas sur d etre super clair...)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Product"
stLinkCriteria = "[ProductID]=" & Me![SearchSKU]
If Not (IsNull(Me.SearchSKU)) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "ProductID"
Else
DoCmd.OpenForm "frm_Product"
DoCmd.GoToRecord , "frm_Product", acNewRec
End If
Exit_SearchSKU_DblClick:
Exit Sub
Essaie de donner à ton formulaire le statut d'indépendant, affiche le en mode formulairesans sauvegarder, met le à la dimension voulue puis ferme le, répond oui à la demande de sauvegarde.
Bonjour
Petite question d esthetique. J ouvre differents formulaires en mode continu par defaut a partir d un double clique sur differents champs.
Mais ces formuaires ne s ouvrent pas tous de la meme maniere, bien qu ayant les memes proprietes et les memes dimensions/design au depart. La hauteur (height) de certains tend a varier, certains s affichent avec de l espace pour 10 records, d autres pour 2 seulement, meme quand 1 seul record est selectionne. Comment standardiser la hauteur de ces formulaires a l ouverture?
Merci par avance (surtout que je suis pas sur d etre super clair...)
Dim stDocName As String Dim stLinkCriteria As String
stDocName = "frm_Product"
stLinkCriteria = "[ProductID]=" & Me![SearchSKU]
If Not (IsNull(Me.SearchSKU)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "ProductID" Else DoCmd.OpenForm "frm_Product" DoCmd.GoToRecord , "frm_Product", acNewRec End If Exit_SearchSKU_DblClick: Exit Sub
