Discussion :

[apprenti46]

Bonour à tous,

A partir d'un événement "on click", je lance (dans un form adp Access2007) la création d'une table, et ensuite le remplissage de cette table.

Mon problème est que tout se passe bien sauf que je ne vois pas la table créée (et remplie) dans ma liste de table. Je doir fermer mon projet et le réouvrir pour voir (et utiliser) cette nouvelle table.

Avez-vous une idée vers où diriger mes recherches?

D'avance merci.

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
 
Dim db As New ADODB.Connection
Set db = CurrentProject.Connection
Dim strTemp, strTemp2, strTemp3, strTemp4, SQLTABLEDEL As String
 
''Création de la table temporaire avec effacement de l'ancienne
SQLTABLEDEL = "if OBJECT_id ('dbo." + TableStr + "','u') is not null drop table " + TableStr
db.Execute (SQLTABLEDEL)
 
For nBoucle = 0 To Form_Mod_Dispo.Périodes.ListCount
If Form_Mod_Dispo!Périodes.Selected(nBoucle) = True Then
'strTemp = strTemp & "'' AS " & Form_Mod_Dispo!Périodes.Column(0, nBoucle) & ", "
strTemp = strTemp & Form_Mod_Dispo!Périodes.Column(0, nBoucle) & " int default 1, "
End If
Next nBoucle
 
If Len(strTemp) > 0 Then
strTemp = Left$(strTemp, Len(strTemp) - 2)
Else
strTemp = ""
End If
 
'strTemp4 = "SELECT '' AS PanId, " & strTemp2 & " INTO " & TableStr
strTemp4 = "CREATE TABLE " & TableStr & " (PanId Int, " & strTemp & ")"
db.Execute (strTemp4)

[apprenti46]

Merci mais c'est résolu.

En activant un ruban, la mise à jour se fait sans problème.

A bientôt.