salut
jé déja utilisé ce code ds ma base,le bouton afficher se trouve ds un forme (Ep:Professeur) et le grid ce trouver ds une autre forme:
* tu peut ecrire ds le bouton afficher ce code la:
Private Sub Affich_Click()
On Error GoTo cmdGrid_ClickErr
Dim f As New datagrid
Set f.Data1.Recordset = Data1.Recordset
f.Caption = Me.Caption & " Grid"
f.Show
Exit Sub
cmdGrid_ClickErr:
End Sub
* et dans la forme qui contient le grid ecrit ce code là:
Private Sub Form_Load()
Dim bParmQry As Integer
Dim qdfTmp As QueryDef
On Error GoTo LoadErr
'À faire
'gsDatabase est une chaîne globale qui doit
'être définie par le sub de démarrage de l'application
Data1.DatabaseName = gsDatabase
'gsRecordSource est une chaîne globale qui doit
'être définie par la routine sub qui charge cette feuille
Data1.recordsource = gsRecordsource
Data1.Connect = gsConnect
Data1.RecordsetType = 1 'dynaset
Data1.Options = 0
Data1.Refresh
If Len(Data1.recordsource) > 50 Then
Me.Caption = "SQL Statement"
Else
Me.Caption = Data1.recordsource
End If
Exit Sub
LoadErr:
MsgBox "Error:" & Err & " " & Err.Description
Unload Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState <> 1 Then
grdDataGrid.Height = Me.Height - (425 + picButtons.Height)
End If
End Sub
Private Sub grdDataGrid_BeforeUpdate(Cancel As Integer)
If MsgBox("Valider les modifications?", vbYesNo + vbQuestion) <> vbYes Then
Cancel = True
End If
End Sub
Private Sub grdDataGrid_BeforeDelete(Cancel As Integer)
If MsgBox("Supprimer la colonne en cours?", vbYesNo + vbQuestion) <> vbYes Then
Cancel = True
End If
End Sub
ce code il te permet d'afficher le contenue de tt les tableaux qui existe sans que tu faire 2 grid càd le méme grid ce change selon le tableau