İ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.
Nesne Silme
Bu Konudaki Yorumlar |
Nesne Silme - Yazar: sistem93 - 18/12/2010, 14:49
Cvp: Nesne Silme - Yazar: alpeki99 - 19/12/2010, 00:51
Cvp: Nesne Silme - Yazar: sistem93 - 19/12/2010, 01:19
Cvp: Nesne Silme - Yazar: alpeki99 - 19/12/2010, 01:22
|
Konuyu Okuyanlar: 1 Ziyaretçi