Dear Simbok Cahyo, dll
thank pencerahannya ya,
buat semua barang kali problem spt hal itu bisa pake source berikut :
--Tombol Save
Private Sub CmdUpdateD_Click()
rsi.Update
ButEnable True
Set rsi = Nothing
End Sub
Private Sub ButEnable(v As Boolean)
Dim obj As Object
For Each obj In Me.Controls
If TypeOf obj Is CommandButton Then
If obj.Caption <> "&Update" Then
obj.Enabled = v
End If
End If
Next
End Sub
Regards
Sheva
Pada tanggal 07/02/28, simbok_cahyo <[EMAIL PROTECTED]> menulis:
>
> kawan Sheva,
> hal tsb terjadi karena datagrid masih dalam mode edit, jadi yang ada
> di baris terakhir itu memang belum disimpan di database yg mendasari.
> yg biasa saya lakukan sebelum menyimpan adalah menambahkan metode
> movelast di recodset sebelum menyimpan data.
>
> ....
> rs.open "select ......"
> set datagrid1.datasource = rs
> .....
> .....
> rs.movelast
> <trus mulai simpan data>
>
> semoga membantu.
> salam,
> cahyo
>
> --- In [email protected] <indoprog-vb%40yahoogroups.com>,
> "mojokerto_putra"
> <[EMAIL PROTECTED]> wrote:
> >
> > Dear All,
> >
> > saya punya masalah dengan program saya,
> > saat saya input data yg terakhir pada datagrid,
> > data tsb tidak tersimpan, namun bila saya berpindah baris atau kolom
> > dahulu, data tsb tersimpan. kenapa bisa begitu ya?
> >
> > data grid tsb terdiri dari 4 kolom, 3 kolom locked dan 1 kolom untuk
> > isi data, isi barisnya tergantung dari master data yg saya pilih,
> > yaitu dengan query, misal :select * from hasildetail where
> orderid=1000
> >
> > regards,
> > Sheva
> >
>
>
>
[Non-text portions of this message have been removed]
