Buat rekan2 smua, saya lagi kesulitan bagaimana coding yg bnar utk menyimpan
data yang udh Tampil di DataGrid kmudian mo diSimpan ke tabel yang ada di Acces.
setiap kali dijalnkan akan muncul "Data type mismatch in criteria expression"
Berikut Codinglengkapny:
Private Sub TbSimpan_Click()
Dim i As Integer
If cmbSupplier.Text = "" Then
MsgBox "DATA SUPPLIER BELUM DIPILIH", vbOKOnly + vbCritical, "Error"
cmbSupplier.SetFocus
ElseIf Baris = 1 Then
MsgBox "BELUM ADA DATA BARANG YANG MASUK", vbOKOnly + vbCritical,
"Error"
TbCari.SetFocus
Else
SQL = ""
SQL = "INSERT INTO Penerimaan" _
& "(No_Masuk,Tanggal_Masuk,Kode_Supplier,Jumlah,UserID)" _
& "VALUES ('" & TxtNoMasuk.Text & "','" _
& Format(Now, "yyyy-MM-dd") & "','" _
& cmbSupplier.Text & "','" _
& TxtJumlah.Text & "','" & UserId & "')"
KonekDb.Execute SQL, , adCmdText
For i = 1 To Baris - 1
SQL = ""
SQL = "INSERT INTO Penerimaan_Detail" _
& "(No_Masuk,Kode_Barang,Harga,Jumlah)" _
& " VALUES ('" & TxtNoMasuk.Text & "','" _
& GridMasuk.TextMatrix(i, 0) & "','" _
& GridMasuk.TextMatrix(i, 2) & "','" _
& GridMasuk.TextMatrix(i, 3) & "','" _
& GridMasuk.TextMatrix(i, 4) & "')"
KonekDb.Execute SQL, , adCmdText
Dim StokBaru As Integer
Dim Kode As String
Dim Harga As String
StokBaru = Val(GridMasuk.TextMatrix(i, 3))
Kode = GridMasuk.TextMatrix(i, 0)
Harga = GridMasuk.TextMatrix(i, 2)
SQL = ""
SQL = "UPDATE Barang SET " _
& " Stok=Stok + " & StokBaru & "," _
& " Harga='" & Harga & "'" _
& " WHERE Kode_Barang='" & Kode & "'"
KonekDb.Execute SQL, , adCmdText
Next i
MsgBox "DATA TRANSAKSI TELAH TERSIMPAN !", _
vbOKOnly + vbInformation, "Info"
Call FormNormal
End If
End Sub
Terima kasih atas bantuanny..
