Chrw(13) ile bir alt satıra geçersiniz.
Aşağıdaki kodu inceleyip kendinize göre uyarlamaya çalışın.
Kod:
Private Sub Komut1_Click()
DoCmd.SetWarnings False
Dim SQ1, SQ2, SQ3
SQ1 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='MEKANİK' AND MALZ_ALAN='PİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.P_DOKUM= '1', SIPARISPARCA.BAHCE= '2', SIPARISPARCA.B_TEZGAH= '3' WHERE (((SIPARISPARCA.YOL_YAZAN)='MEKANİK') AND ((SIPARISPARCA.MALZ_ALAN)='PİK DÖKÜM'));"
SQ2 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='TESVİYE' AND MALZ_ALAN='PİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.P_DOKUM = '1', SIPARISPARCA.BAHCE = '2', SIPARISPARCA.B_TEZGAH = '3', SIPARISPARCA.TESVIYE = '4' WHERE (((SIPARISPARCA.YOL_YAZAN)='TESVİYE') AND ((SIPARISPARCA.MALZ_ALAN)='PİK DÖKÜM'));"
SQ3 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='MEKANİK' AND MALZ_ALAN='ÇELİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.C_DOKUM = '1', SIPARISPARCA.BAHCE = '2', SIPARISPARCA.B_TEZGAH = '3' WHERE (((SIPARISPARCA.YOL_YAZAN)='MEKANİK') AND ((SIPARISPARCA.MALZ_ALAN)='ÇELİK DÖKÜM'));"
DoCmd.SetWarnings True
MsgBox "1.sorguda " & SQ1 & " kayıt" & ChrW(13) & _
"2.sorguda " & SQ2 & " kayıt" & ChrW(13) & _
"3.sorguda " & SQ1 & " kayıt" & ChrW(13) & _
"güncellendi ...", vbInformation, "Bilgi"
SQ1 = 0
SQ2 = 0
SQ3 = 0
End Sub