(14/12/2023, 14:52)berduş yazdı: 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

Çok sağolun hocam zahmet verdim. 
Bu buton Metin1 değeri "0" dan büyükse çalışsın Metin1 değeri "0" dan küçükse çalışmasın bunu nasıl yapabiliriz acaba hocam. 
Allah ne muradın varsa versin.

---

(14/12/2023, 19:36)Acemi54 yazdı:

(14/12/2023, 14:52)berduş yazdı: 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

Çok teşekkür ederim hocam zahmet verdim.
Bu buton Metin1 "0" dan büyükse çalışsın Metin1 "0" dan küçükse çalışmasın. Onu nasıl yapabiliriz hocam.
Allah ne muradın varsa versin.