dh,
guyz, mo tanya dong, g kan bikin program pake VB dng database MsAccess, g kan
bikin form yg isinya ada datagrid, nah kalo misalnya grid itu di double click
di kolum, akan menjalankan code yg isinya sbb :
Dim vSqlTemp As String, rcstemp As Recordset, rcsTemp2 As Recordset
vSql = "SELECT tbh_tanggal, tbh_mss_kode, tbh_mspk_kode, tbh_cara_bayar,
tbh_msa_kode, tbh_total FROM t_beli_hdr " & _
"WHERE tbh_kode = '" & DataGrid1 & "' "
Set rcs = dbs.OpenRecordset(vSql, dbOpenDynaset)
If rcs.RecordCount > 0 Then
txt_tbh_kode = DataGrid1
DTPick_tbh_tanggal = rcs!tbh_tanggal
txt_tbh_mss_kode = rcs!tbh_mss_kode
vSqlTemp = "SELECT mss_nama FROM ms_supplier WHERE mss_kode = '" &
txt_tbh_mss_kode & "' "
Set rcstemp = dbs.OpenRecordset(vSqlTemp, dbOpenDynaset)
If rcstemp.RecordCount > 0 Then
txt_nm_supplier = rcstemp!mss_nama
End If
vSqlTemp = "SELECT tbd_msb_kode, tbd_qty, tbd_harga, tbd_ppn FROM
t_beli_dtl " & _
"WHERE tbd_tbh_kode = '" & txt_tbh_kode & "' "
Set rcstemp = dbs.OpenRecordset(vSqlTemp, dbOpenDynaset)
If rcstemp.RecordCount > 0 Then
rcstemp.MoveLast
GridDetail.Rows = rcstemp.RecordCount + 1
rcstemp.MoveFirst
For i = 2 To rcstemp.RecordCount + 1
With GridDetail
'.Rows = .Rows + 1
.Row = i - 1
.Col = 0
.Text = rcstemp!tbd_msb_kode
.Text = rcstemp!tbd_ppn
.Col = 5
.Text = (rcstemp!tbd_qty * rcstemp!tbd_harga) +
rcstemp!tbd_ppn
rcstemp.MoveNext
End With
Next i
End If
Call enable
Else
MsgBox "No faktur " & txt_tbh_kode & " tidak terdaftar !"
Exit Sub
End If
isinya kira2 spt diatas, (ada beberapa baris yg g hilangkan)....
masalahnya waktu awal2 bikin program berjalan dng normal, tetapi kok skr kalau
di double klik bisa berhasil, tapi kadang muncul message box error, headernya
bertuliskan microsoft datagrid control, dng pesan berbunyi : error occured
while trying to update record, padahal tidak ada baris yg mengupdate data.
kira2 ada yg tau ga ya masalah ini penyebabnya apa ?
thx.
[Non-text portions of this message have been removed]
