SQL2005-ADP: table créée invisible
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:
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) |
