Uygula düğmesinin kodunu aşağıdaki gibi düzenleyip dener misiniz?

Private Sub Uygula_Click()

Dim strSQ As String

strSQL = "UPDATE Sorgu1 SET DURUMU = [Formlar]![FORM1]![Açılan_DURUM];"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

If Me.Açılan_DURUM = "RED" And Len(Me.Metin_1 & Me.Metin_2 & Me.Metin_3 & "") > 0 Then

        xSQLEkle = ""

        xSQLEkle = xSQLEkle & " INSERT INTO Tablo2 ( STOK, MALZEME, ADEDİ )"

        xSQLEkle = xSQLEkle & " SELECT Tablo1.STOK, Tablo1.MALZEME, Tablo1.ADEDİ"

        xSQLEkle = xSQLEkle & " FROM Tablo2 INNER JOIN Tablo1 ON Tablo2.STOK = Tablo1.STOK"

        xSQLEkle = xSQLEkle & " WHERE (((Tablo1.STOK)=[Formlar]![FORM1]![Açılan_STOK]));"

        DoCmd.RunSQL (xSQLEkle)

End If

Me.Form2.Requery

DoCmd.SetWarnings True 

End Sub