AccessTr.neT

Örnek eklemeye ekleyeyim sıkıntı yok ancak sıkıntımın alt satıra yani kodu nasıl olurda alt satırda devam ettirebilirim sormak istedğim bu. Yardımınız için teşekkür ederim.

SQL = "SELECT TBLURUNGRUP.GRUPADI, TBLURUNLER.URUNKODU, TBLURUNLER.URUNADI TBLURUNOZELLIK.URUNOZELLIKNO, TBLURUNOZELLIK.URUNOZELLIKADI FROM ((TBLURUNLER LEFT JOIN TBLURUNGRUP ON TBLURUNLER.[GRUPNO] = TBLURUNGRUP.GRUPNO) LEFT JOIN SRG_004 ON TBLURUNLER.URUNKODU = SRG_004.URUNKODU) LEFT JOIN TBLURUNOZELLIK ON TBLURUNLER.URUNOZELLIKNO = TBLURUNOZELLIK.URUNOZELLIKNO "
SQL = Sql & "WHERE TBLURUNGRUP.GRUPADI Like '" & F1 & "*' AND "
SQL = Sql & "TBLURUNLER.URUNKODU Like '" & F2 & "*' AND "
SQL = Sql & "TBLURUNLER.URUNADI Like '" & F3 & "*'"
SQL = Sql & " ORDER BY TBLURUNGRUP.GRUPADI, TBLURUNLER.URUNKODU;"

ikinci satırı SQL = Sql & "...
şeklinde düzenleyin

(06/10/2019, 13:19)C*e*l*o*y*c*e yazdı: [ -> ]SQL = "SELECT TBLURUNGRUP.GRUPADI, TBLURUNLER.URUNKODU, TBLURUNLER.URUNADI TBLURUNOZELLIK.URUNOZELLIKNO, TBLURUNOZELLIK.URUNOZELLIKADI FROM ((TBLURUNLER LEFT JOIN TBLURUNGRUP ON TBLURUNLER.[GRUPNO] = TBLURUNGRUP.GRUPNO) LEFT JOIN SRG_004 ON TBLURUNLER.URUNKODU = SRG_004.URUNKODU) LEFT JOIN TBLURUNOZELLIK ON TBLURUNLER.URUNOZELLIKNO = TBLURUNOZELLIK.URUNOZELLIKNO "
SQL = Sql & "WHERE TBLURUNGRUP.GRUPADI Like '" & F1 & "*' AND "
SQL = Sql & "TBLURUNLER.URUNKODU Like '" & F2 & "*' AND "
SQL = Sql & "TBLURUNLER.URUNADI Like '" & F3 & "*'"
SQL = Sql & " ORDER BY TBLURUNGRUP.GRUPADI, TBLURUNLER.URUNKODU;"

ikinci satırı SQL = Sql & "...
şeklinde düzenleyin

 Pardon konu ile alakalı değil sanırım Yanlışlık oldu....

sizin sorunuzun cevabı bu,ikinci satırdan devam ettirmek istemedinizmi ?

CurrentDb.Execute "INSERT INTO stok ( malzeme1c, malzeme2c, malzeme3c, malzeme4c, malzeme5c, malzeme6c, malzeme7c, malzeme8c, malzeme9c, malzeme10c, malzeme11c, malzeme12c, malzeme13c, malzeme14c, malzeme15c, malzeme16c, malzeme17c, malzeme18c, malzeme19c, malzeme20c, malzeme21c, malzeme22c, malzeme23c, malzeme24c, malzeme25c, malzeme26c, malzeme27c, malzeme28c, malzeme29c, malzeme30c, malzeme31c ) " & _

"VALUES(" & Replace(Me.maal1, ",", ".") & "," & Replace(Me.maal2, ",", ".") & "," & Replace(Me.maal3, ",", ".") & "," & Replace(Me.maal4, ",", ".") & "," & Replace(Me.maal5, ",", ".") & "," & Replace(Me.maal6, ",", ".") & "," & Replace(Me.maal7, ",", ".") & "," & Replace(Me.maal8, ",", ".") & "," & Replace(Me.maal9, ",", ".") & "," & Replace(Me.maal10, ",", ".") & "," & Replace(Me.maal11, ",", ".") & "," & Replace(Me.maal12, ",", ".") & "," & Replace(Me.maal13, ",", ".") & "," & Replace(Me.maal14, ",", ".") & "," & Replace(Me.maal15, ",", ".") & "," & Replace(Me.maal16, ",", ".") & "," & Replace(Me.maal17, ",", ".") & "," & Replace(Me.maal18, ",", ".") & "," & Replace(Me.maal19, ",", ".") & "," & Replace(Me.maal20, ",", ".") & "," & Replace(Me.maal21, ",", ".") & "," & Replace(Me.maal22, ",", ".") & "," & Replace(Me.maal23, ",", ".") & "," & Replace(Me.maal24, ",", ".") & "," & Replace(Me.maal25, ",", ".") & "," & Replace(Me.maal26, ",", ".") & "," & Replace(Me.maal27, ",", ".") & ")"

2. Satırın altına devam etmem lazım. Ancak geçemiyorum sorunum tam olarak budur.

"VALUES..... alanında
" VALUES ...şeklinde tırnaktan sonra boşluk verip deneyin