Kod:
Private Sub Komut24_Click()
Dim formad As String
Dim abc, fl As Integer
abc = CurrentProject.AllForms.Count
For fl = 0 To abc - 1
formad = CurrentProject.AllForms(fl).Name
DoCmd.Close acForm, formad
Next fl
End Sub
#10
Sizin aradığınız Kod bu Deneyin Ha Bundan Başkada yok yani bende .... kolay gelsin
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
