Private Sub Komut4_Click()
On Error Resume Next
Dim objControl As Control
For Each objControl In Me.Controls
With objControl
.Value = Null
End With
Next objControl
End Sub
Yazdığınız kod hatalı olsa da syntax olarak bir sorgu ve form verileri temizlemek için değil tablolarda işlem yapmak için kullanılır. Eklediğiniz örnek son derece basit bir çalışma olduğu için ben size iki textbox değerini boş olarak atayan bir kod yazdım. Asıl çalışmanızda nasıl bir kurgu düşündüğünüzü bilemiyorum ancak aşağıdaki kodu butonunuzun tıklanma olayına yazacak olursanız eklediğiniz ne kadar textbox, combobox vs kontrol var ise hepsini temizler