Private Sub Command1_Click() Select Case tablosec.ListIndex Case 0 ‘Gaz Sale DoCmd.OpenTable (“gs_detay”) Case 1 ‘Gaz Cogs DoCmd.OpenTable (“gc_detay”) Case 2 ‘ Other Sale DoCmd.OpenTable (“os_detay”) End Select ‘ DoCmd.OpenTable (“denemetable”) End Sub
