anda harus memahami sintaks perintah UPDATE (SQL), yaitu:
UPDATE *table*
SET *newvalue*
WHERE *criteria*;
Part Description *table* The name of the table containing the data you want
to modify. *newvalue* An expression
<jetglossary.htm#idh_dadefexclusive>that determines the value to be
inserted into a particular field in the
updated records. *criteria* An expression that determines which records will
be updated. Only records that satisfy the expression are updated.
Contoh dari Help:
UPDATE Orders
SET OrderAmount = OrderAmount * 1.1,
Freight = Freight * 1.03
WHERE ShipCountry = 'UK';
newvaule bisa merupakan rangkaian pasangan field yg diupdate, misal:
HPP=1800, PPN=1800*.15, Tanggal=Date(), HargaPerBox=1800/20
(Nah tugas anda mengganti nilai 1800 dst itu dengan variabel spt yg
dicontohkan dalam code.
Salam,
Haer Talib
On Feb 15, 2008 4:29 PM, Soeharto M <[EMAIL PROTECTED]> wrote:
> Pak saya mau tanya tentang Update di access, saya buat sebuah form terus
> ada Command, onclick nya adalah sebagai berikut :
>
>
> Set dbs = DBEngine(0)(0)
> BeginTrans
> On Error GoTo ErrTransHandler
> vPeriod = Format(Me!NOFAKTUR)
>
> qrystr = "SELECT nofaktur,kodebarang, satuan, isi,
> hpp,hppkecil,BONUS,KETERANGAN,ppn,hargaperbox,TANGGAL,DISKOND,DISKON2" _
> & " from qUpdate2 WHERE nofaktur='" & vPeriod & " '"
>
> Set recSet = dbs.OpenRecordset(qrystr, dbOpenSnapshot)
> If Not (recSet.BOF And recSet.EOF) Then
> recSet.MoveLast
> vRecCount = recSet.RecordCount
> recSet.MoveFirst
> End If
>
> Do Until recSet.EOF
> SysCmd acSysCmdSetStatus, "Updating Purchase NO : " &
> recSet!KodeBarang _
> & " ( Rec. " & recSet.AbsolutePosition + 1 & " of " &
> vRecCount & " )"
>
> vPeriod = Format(Me!NOFAKTUR)
>
>
> qrystr = "UPDATE [TblBrg-D] SET HPP=(" & recSet!HPP & ") " _
> & "WHERE KODEBARANG='" & recSet!KodeBarang & "' AND
> SATUAN='" & recSet!Satuan & "'"
> ' dbs.Execute qrystr, dbFailOnError
>
> recSet.MoveNext
> Loop
>
>
>
> ..........................................
>
> nah saya sudah berhasih update HPP pada tabel barang, gimana ya pak cara
> meng Update secara serentak, hpp, PPN, Tanggal, hargaperbox. yang saya gak
> ngerti adalah pada tahap
>
>
> qrystr = "UPDATE [TblBrg-D] SET HPP=(" & recSet!HPP & ") " _
> & "WHERE KODEBARANG='" & recSet!KodeBarang & "' AND
> SATUAN='" & recSet!Satuan & "'"
> ' dbs.Execute qrystr, dbFailOnError
>
>
> thank ya Pak sebelumnya.
>
>
>
> ------------------------------
> Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
> Answers<http://sg.rd.yahoo.com/mail/id/footer/def/*http://id.answers.yahoo.com/>
>
