klo tujuannya hanya untuk update semua record Manfaatkan aja syntax sql misal :
Update Barang SET Barang.kh = '.' WHERE (((Barang.kh) Is Null)); salam, Agus Pradikta --- In [email protected], "Yunatan S. Widada" <[EMAIL PROTECTED]> wrote: > > 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 >
