Contoh code :
Private Sub Combo16_AfterUpdate()
' Update ShipTo controls based on value selected in CustomerID combo box.
Me!ShipName = Me!Combo16.Column(3)
Me!ShipAlamat = Me!Alamat
Me!ShipKota = Me!Kota
Me![Child5].[Form]![harga satuan] = Me!Harga
Me![Child5].[Form]![nama barang] = Me!Combo16.Column(1)
End Sub
nah .edit ato .addnew , taruh dimana.
--- In [email protected], "Mahmoed" <[EMAIL PROTECTED]> wrote:
>
> namaRcdset.edit
>
> Atau
>
> namaRcdset.addnew
>
>
>
> nya ketinggalan tuh makanya bingung apanya yang mo diupdate :-)
>
>
>
> _____
>
> From: [email protected]
[mailto:[EMAIL PROTECTED]
> On Behalf Of marttuelan
> Sent: Wednesday, 23 April, 2008 2:03 PM
> To: [email protected]
> Subject: [belajar-access] MOHon bantuannya
>
>
>
> run time error 3020 Update without AddNew
> itu muncul ketika Index Primary di sort asscending
> Mohon bantuannya maaf masih newbe
>
