dikkat edin sorgunuzun formdan bağımsız çalışması için en az 1 defa önce formdan bu komutun çalıştırılması lazım
Private Sub Komut12_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = db.QueryDefs("Sorgu1")
strSQL = "SELECT * " & _
"FROM bilanco_veri_2018 " & _
"WHERE (((bilanco_veri_2018.hisse_adi)='" & Me.Hisse_adi & "') AND " & _
"((bilanco_veri_2018.donemi)='" & Me.donemi & "') AND ((bilanco_veri_2018.bilanco_kalemi)='" & Me.bilancokalemi & "'));"
qdf.SQL = strSQL
Set qdf = Nothing
Set db = Nothing
End Sub