mam taki problem, nie wiem jak w ubrać w jedną funkcję kilka updatów SQL w różnych tabelach, ale dotyczących tych samych zmiennych:
Mam taki kod:
Function KodyFaktur(NrFaktury As Variant, StaryKod As Variant, NowyKod As Variant)
Dim cn As Object: Set cn = CreateObject("ADODB.Connection")
Dim rs As Object: Set rs = CreateObject("ADODB.Recordset")
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=001;Data Source=vsql01;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESKTOP-JABC61G;Use Encryption for Data=False;Tag with column collation when possible=False"
cn.Open strCon
strSQL = "update gbkmut set btw_code = " & NowyKod & " where bkstnr = " & NrFaktury & " and btw_code = " & StaryKod
rs.Open strSQL, cn
End Function
Potrzebowałbym do tej samej funcji wkleić 2 kolejne updaty w pozostałych tabelach:
update amutas set btw_code = " & NowyKod & "where faktuurnr =" & NrFaktury & " And btw_code = " & StaryKod
update frhsrg set btw_code = " & NowyKod & "where faknr =" & NrFaktury & " And btw_code = " & StaryKod
będę wdzięczny za małą podpowiedź :)