(14/12/2023, 14:52)berduş yazdı: Uygula düğmesinin kodunu aşağıdaki gibi düzenleyip dener misiniz?Çok sağolun hocam zahmet verdim.
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
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ı:Çok teşekkür ederim hocam zahmet verdim.(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
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.