Dim objtable As TableDef
For Each objtable In CurrentDb.TableDefs
If Not left(objtable.Name, 4) = "MSys" Then
CurrentDb.TableDefs.Delete (objtable.Name)
End If
Next
döngüsüyle komut gerçekleşti.
#3
İlginize Teşekkür ederim
Dim objtable As TableDef
For Each objtable In CurrentDb.TableDefs
If Not left(objtable.Name, 4) = "MSys" Then
CurrentDb.TableDefs.Delete (objtable.Name)
End If
Next
döngüsüyle komut gerçekleşti.
Dim objtable As TableDef
For Each objtable In CurrentDb.TableDefs
If Not left(objtable.Name, 4) = "MSys" Then
CurrentDb.TableDefs.Delete (objtable.Name)
End If
Next
döngüsüyle komut gerçekleşti.
