Coba di debug aja dulu trus tambahin watch juga untuk memantau isi dari rs itu. apakah emang null atau spasi. nanti tinggal ganti aja nilai value nya. kalo program nya ga mau karena nilai nya ga cocok. coba aja debug and watch dulu. atau update aja langsung di database nya pake query, lebih cepat.
Semoga membantu. regards, Febry Kurniawan BI Consultant ----- Original Message ----- From: Yunatan S. Widada To: [email protected] Sent: Monday, May 12, 2008 1:45 PM Subject: [Programmer-VB] Ubah Data Null temans, ada yang bisa bantu? saya punya tabel barang dan data di import dari file excell, tapi ada satu field yang kosong (null). nah saya pengen ubah field yang nilainya null tsb dengan program kecil seperti di bawah ini : fields yg nilainya null ada di fields kh, dan pengen saya ganti dng larakter "." program saya : Public DBU As ADODB.Connection Public rsBarangU As ADODB.Recordset Private Sub CmdEdit_Click() Dim mys As String mys = "select * from barang" Set rsBarangU = New ADODB.Recordset rsBarangU.Open mys, DBU, adOpenDynamic, adLockOptimistic If Not rsBarangU.EOF Then rsBarangU.MoveFirst Do While Not rsBarangU.EOF If rsBarangU.Fields("kh").Value = Null Then rsBarangU.Fields("kh").Value = "." rsBarangU.Update End If rsBarangU.MoveNext Loop x = MsgBox("Update Selesai...!!!", vbInformation) Unload Me End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Set DBU = New ADODB.Connection DBU.Provider = "microsoft.jet.oledb.4.0" DBU.Open App.Path & "\newtb.mdb", "Admin", "" DBU.CursorLocation = adUseClient End Sub tapi kenapa ga mau yah??? ada yang bisa bantu??? regards tan
