rs1.open "select Tgl from tblJoin1 where Tgl= '" & txtcarinomr.Text & "'", cnJoin, adOpenStatic, adLockOptimistic If rs1.RecordCount <> 0 Then rs1.MoveFirst Do Until rs1.EOF cmbtgl.AddItem RS1!Tgl rs1.MoveNext Loop End If
Pada tanggal 29/01/08, Taufiqurrahman <[EMAIL PROTECTED]> menulis: > > Boleh nanya gak, > > If rs1.RecordCount <> 0 Then > rs1.MoveLast > rs1.MoveFirst > For j = 1 To rs1.RecordCount > cmbtgl.AddItem "select Tgl from tblJoin1 where Tgl= '" & txtcarinomr.Text& > "'", cnJoin, adOpenStatic, adLockOptimistic > rs1.MoveNext > Next j > End If > > Maksud programnya, bagaimana supaya combo tanggal menampilkan tanggal > sesuai NoMR. > > Mohon koreksinya > > =============== > > > > > > >
<<image001.jpg>>
