Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access creation d'1 table

creation d'1 table

25 réponses
Avatar
yann
Bonjour,
voila jais un code qui me cree une table avec X colonne l'or de la creation
de cette mem table je voudrais ne pas voir son execution.


Private Sub miseen()
On Error Resume Next

Dim intX As Integer, intZ As Integer
Dim VAL As String

VAL = DCount("nomimage1", "||||||||||||||||||||")
For intX = 1 To VAL
For intZ = 1 To VAL
DoEvents
DoCmd.Hourglass True
Next intZ

DoCmd.OpenTable "||||||||||||||||||||"
DoCmd.RunCommand acCmdCopy
DoCmd.FindNext
DoCmd.OpenTable "Table1"
DoCmd.RunCommand acCmdInsertTableColumn
DoCmd.RunCommand acCmdPaste
Next intX

Debug.Print VAL
DoCmd.Close acTable, "Table1"
DoCmd.Close acTable, "||||||||||||||||||||"
DoCmd.OpenForm "Formulaire1"
DoCmd.Hourglass False
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
1 2 3
Avatar
yann
je suis dislecsic des doit et du francais pardon

peut on alleger le code.

"yann" a écrit dans le message de
news:40b5b8af$0$7702$
Alors, ces sur le formulaire1 (la plaquette photo)
pour le chargement des images j'ais le code suivant

Dim strChemin1 As String
Dim strChemin2 As String
Dim strChemin3 As String
autant de fois que de control pareille pour
strChemin1 = REPBASE & "" & Me!Champ2
strChemin2 = REPBASE & "" & Me!Champ3
strChemin3 = REPBASE & "" & Me!Champ4
et pareille encore pour
Me!Image1.Picture = strChemin1
Me!Image2.Picture = strChemin2
Me!Image3.Picture = strChemin3

pourrait aller ce code

merci Raymond tes un Dieux pour tes conseil et ton aide pressieuce



"Raymond [mvp]" a écrit dans le message de
news:
bon, maintenant prochaine étape ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40b5b296$0$7702$
Pardon ces super ca marche j'avais fais une erreure










Avatar
Raymond [mvp]
il faut procéder par une boucle:
essaie ceci:
Dim Db As DAO.Database
Dim Rs1 As DAO.Recordset
Dim I As Integer

Set Db = CurrentDb()
Set Rs1 = Db.OpenRecordset("table_tmp")
For I = 1 To 250
If IsNull(Rs1("image" & I)) Then
Me("Image" & I).Picture = ""
Else
Me("Image" & I).Picture = REPBASE & "" & Rs1("image" & I)
End If
Next I
Set Rs1 = Nothing
Set Db = Nothing

toujours à vérifier et à ajuster ( non testé)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40b5b8fc$0$7705$
je suis dislecsic des doit et du francais pardon

peut on alleger le code.

"yann" a écrit dans le message de
news:40b5b8af$0$7702$
Alors, ces sur le formulaire1 (la plaquette photo)
pour le chargement des images j'ais le code suivant

Dim strChemin1 As String
Dim strChemin2 As String
Dim strChemin3 As String
autant de fois que de control pareille pour
strChemin1 = REPBASE & "" & Me!Champ2
strChemin2 = REPBASE & "" & Me!Champ3
strChemin3 = REPBASE & "" & Me!Champ4
et pareille encore pour
Me!Image1.Picture = strChemin1
Me!Image2.Picture = strChemin2
Me!Image3.Picture = strChemin3

pourrait aller ce code




Avatar
yann
oui ces royal ca marche . :-)
maitenant dernier truc on pourra voir demain si tu veut bien ces sur ma
metode de find
je m'explique quand je click sur 1 control d'image(celle de la plaquette
photo) j'ouvre 1 autre formulaire qui me position dessue

mem chose j'ais fais autant de sub que de control de ceu style

je me serre de la valeur de "b" qui resemble a la cle de referche voulu que
je transfore pour allez pointer sur le bonne enregistrement.
fastidieux egalement

Private Sub image1_Click()
Dim stDocName As String
b = Me.Champ2
a = b
r = Replace(a, "01.jpg", " ")
Debug.Print b
Debug.Print r
stDocName = "visue"
DoCmd.OpenForm stDocName
Form_VISUE.id.Value = r
End Sub



"Raymond [mvp]" a écrit dans le message de
news:%
il faut procéder par une boucle:
essaie ceci:
Dim Db As DAO.Database
Dim Rs1 As DAO.Recordset
Dim I As Integer

Set Db = CurrentDb()
Set Rs1 = Db.OpenRecordset("table_tmp")
For I = 1 To 250
If IsNull(Rs1("image" & I)) Then
Me("Image" & I).Picture = ""
Else
Me("Image" & I).Picture = REPBASE & "" & Rs1("image" & I)
End If
Next I
Set Rs1 = Nothing
Set Db = Nothing

toujours à vérifier et à ajuster ( non testé)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40b5b8fc$0$7705$
je suis dislecsic des doit et du francais pardon

peut on alleger le code.

"yann" a écrit dans le message de
news:40b5b8af$0$7702$
Alors, ces sur le formulaire1 (la plaquette photo)
pour le chargement des images j'ais le code suivant

Dim strChemin1 As String
Dim strChemin2 As String
Dim strChemin3 As String
autant de fois que de control pareille pour
strChemin1 = REPBASE & "" & Me!Champ2
strChemin2 = REPBASE & "" & Me!Champ3
strChemin3 = REPBASE & "" & Me!Champ4
et pareille encore pour
Me!Image1.Picture = strChemin1
Me!Image2.Picture = strChemin2
Me!Image3.Picture = strChemin3

pourrait aller ce code








Avatar
Raymond [mvp]
Attention, si le contrôle sur le formulaire est un contrôle image, on ne
peut pas connaître le nom du controle actif . Il faut que l'image soit dans
un contrôle indépendant mais il faut que le logiciel microsoft photo editor
soit installé pour pouvoir afficher des images jpg. sinon npas de boucle
possible sur les contrôles.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40b5c25b$0$7714$
oui ces royal ca marche . :-)
maitenant dernier truc on pourra voir demain si tu veut bien ces sur ma
metode de find
je m'explique quand je click sur 1 control d'image(celle de la plaquette
photo) j'ouvre 1 autre formulaire qui me position dessue

mem chose j'ais fais autant de sub que de control de ceu style

je me serre de la valeur de "b" qui resemble a la cle de referche voulu
que

je transfore pour allez pointer sur le bonne enregistrement.
fastidieux egalement

Private Sub image1_Click()
Dim stDocName As String
b = Me.Champ2
a = b
r = Replace(a, "01.jpg", " ")
Debug.Print b
Debug.Print r
stDocName = "visue"
DoCmd.OpenForm stDocName
Form_VISUE.id.Value = r
End Sub


Avatar
yann
oui ce son bien des control independant.
pour le logiciel photo editor , si sur 1 poste il y a 1 autre logiciel de
type imagevue ou bien paint edit ca peut faire l'affaire egalement ?
jais deja fais tourner cette base en runtime et sur un poste depourvue de
photo editor ,et sur les forms jai bien le visuelle qui s'affiche.(un Win2K
de base avec les mise a jours qui von bien :-) .
"Raymond [mvp]" a écrit dans le message de
news:Ov2gDG%
Attention, si le contrôle sur le formulaire est un contrôle image, on ne
peut pas connaître le nom du controle actif . Il faut que l'image soit
dans

un contrôle indépendant mais il faut que le logiciel microsoft photo
editor

soit installé pour pouvoir afficher des images jpg. sinon npas de boucle
possible sur les contrôles.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40b5c25b$0$7714$
oui ces royal ca marche . :-)
maitenant dernier truc on pourra voir demain si tu veut bien ces sur ma
metode de find
je m'explique quand je click sur 1 control d'image(celle de la plaquette
photo) j'ouvre 1 autre formulaire qui me position dessue

mem chose j'ais fais autant de sub que de control de ceu style

je me serre de la valeur de "b" qui resemble a la cle de referche voulu
que

je transfore pour allez pointer sur le bonne enregistrement.
fastidieux egalement

Private Sub image1_Click()
Dim stDocName As String
b = Me.Champ2
a = b
r = Replace(a, "01.jpg", " ")
Debug.Print b
Debug.Print r
stDocName = "visue"
DoCmd.OpenForm stDocName
Form_VISUE.id.Value = r
End Sub






1 2 3