B
BillyRogers
I have 80 fields in a recordset and need to print them all. Is there an
easier was to do it than this?
Is there some sort of command that where you say something like
debug.print rs2.allFields ????
Do Until Rs3.EOF
Debug.Print Rs3.Fields(0) & "; " & Rs3.Fields(1) & "; " &
Rs3.Fields(2) & "; " & Rs3.Fields(3) & " ;" & Rs3.Fields(4) & " ;" &
Rs3.Fields(5) & "; " & Rs3.Fields(6) & "; " & Rs3.Fields(7) & " ;" &
Rs3.Fields(8) & "; " & Rs3.Fields(9) & " ;" & Rs3.Fields(10) & " ;" &
Rs3.Fields(11) & " ;" & Rs3.Fields(12) & "; " & Rs3.Fields(13) & "; " &
Rs3.Fields(14) & "; " & Rs3.Fields(15) & "; " & Rs3.Fields(16) & "; " &
Rs3.Fields(17) & "; " & Rs3.Fields(18) & " ;" & Rs3.Fields(19) & "; " &
Rs3.Fields(20) & "; " & Rs3.Fields(21) & "; " & Rs3.Fields(22) & "; " &
Rs3.Fields(23) & "; " & Rs3.Fields(24) & " ;" & Rs3.Fields(25) & "; " &
Rs3.Fields(26) & " ;" & Rs3.Fields(27) & " ;" & Rs3.Fields(28) & "; " &
Rs3.Fields(29) & "; " & Rs3.Fields(30) & "; " & Rs3.Fields(31) & "; " &
Rs3.Fields(32) & "; " & Rs3.Fields(33) & "; " & Rs3.Fields(34) & "; " &
Rs3.Fields(35) & "; " & Rs3.Fields(36) & "; " & Rs3.Fields(37) & "; " &
Rs3.Fields(38) & "; " & Rs3.Fields(39) & "; " & Rs3.Fields(40) _
& "; " & Rs3.Fields(41) & "; " & Rs3.Fields(42) & "; " &
Rs3.Fields(43) & " ;" & Rs3.Fields(44) & " ;" & Rs3.Fields(45) & "; " &
Rs3.Fields(46) & "; " & Rs3.Fields(47) & " ;" & Rs3.Fields(48) & "; " &
Rs3.Fields(49) & " ;" & Rs3.Fields(50) & " ;" & Rs3.Fields(51) & " ;" &
Rs3.Fields(52) & "; " & Rs3.Fields(53) & "; " & Rs3.Fields(54) & "; " &
Rs3.Fields(55) & "; " & Rs3.Fields(56) & "; " & Rs3.Fields(57) & "; " &
Rs3.Fields(58) & " ;" & Rs3.Fields(59) & "; " & Rs3.Fields(60) & "; " &
Rs3.Fields(61) & "; " & Rs3.Fields(62) & "; " & Rs3.Fields(63) & "; " &
Rs3.Fields(64) & " ;" & Rs3.Fields(65) & "; " & Rs3.Fields(66) & " ;" &
Rs3.Fields(67) & " ;" & Rs3.Fields(68) & "; " & Rs3.Fields(69) & "; " &
Rs3.Fields(70) & "; " & Rs3.Fields(71) & "; " & Rs3.Fields(72) & "; " &
Rs3.Fields(73) & "; " & Rs3.Fields(74) & "; " & Rs3.Fields(75) & "; " &
Rs3.Fields(76) & "; " & Rs3.Fields(77) & "; " & Rs3.Fields(78) & "; " &
Rs3.Fields(79)
Rs3.MoveNext
--
Billy Rogers
Dallas,TX
Currently Using Office 2000 and Office 2003
easier was to do it than this?
Is there some sort of command that where you say something like
debug.print rs2.allFields ????
Do Until Rs3.EOF
Debug.Print Rs3.Fields(0) & "; " & Rs3.Fields(1) & "; " &
Rs3.Fields(2) & "; " & Rs3.Fields(3) & " ;" & Rs3.Fields(4) & " ;" &
Rs3.Fields(5) & "; " & Rs3.Fields(6) & "; " & Rs3.Fields(7) & " ;" &
Rs3.Fields(8) & "; " & Rs3.Fields(9) & " ;" & Rs3.Fields(10) & " ;" &
Rs3.Fields(11) & " ;" & Rs3.Fields(12) & "; " & Rs3.Fields(13) & "; " &
Rs3.Fields(14) & "; " & Rs3.Fields(15) & "; " & Rs3.Fields(16) & "; " &
Rs3.Fields(17) & "; " & Rs3.Fields(18) & " ;" & Rs3.Fields(19) & "; " &
Rs3.Fields(20) & "; " & Rs3.Fields(21) & "; " & Rs3.Fields(22) & "; " &
Rs3.Fields(23) & "; " & Rs3.Fields(24) & " ;" & Rs3.Fields(25) & "; " &
Rs3.Fields(26) & " ;" & Rs3.Fields(27) & " ;" & Rs3.Fields(28) & "; " &
Rs3.Fields(29) & "; " & Rs3.Fields(30) & "; " & Rs3.Fields(31) & "; " &
Rs3.Fields(32) & "; " & Rs3.Fields(33) & "; " & Rs3.Fields(34) & "; " &
Rs3.Fields(35) & "; " & Rs3.Fields(36) & "; " & Rs3.Fields(37) & "; " &
Rs3.Fields(38) & "; " & Rs3.Fields(39) & "; " & Rs3.Fields(40) _
& "; " & Rs3.Fields(41) & "; " & Rs3.Fields(42) & "; " &
Rs3.Fields(43) & " ;" & Rs3.Fields(44) & " ;" & Rs3.Fields(45) & "; " &
Rs3.Fields(46) & "; " & Rs3.Fields(47) & " ;" & Rs3.Fields(48) & "; " &
Rs3.Fields(49) & " ;" & Rs3.Fields(50) & " ;" & Rs3.Fields(51) & " ;" &
Rs3.Fields(52) & "; " & Rs3.Fields(53) & "; " & Rs3.Fields(54) & "; " &
Rs3.Fields(55) & "; " & Rs3.Fields(56) & "; " & Rs3.Fields(57) & "; " &
Rs3.Fields(58) & " ;" & Rs3.Fields(59) & "; " & Rs3.Fields(60) & "; " &
Rs3.Fields(61) & "; " & Rs3.Fields(62) & "; " & Rs3.Fields(63) & "; " &
Rs3.Fields(64) & " ;" & Rs3.Fields(65) & "; " & Rs3.Fields(66) & " ;" &
Rs3.Fields(67) & " ;" & Rs3.Fields(68) & "; " & Rs3.Fields(69) & "; " &
Rs3.Fields(70) & "; " & Rs3.Fields(71) & "; " & Rs3.Fields(72) & "; " &
Rs3.Fields(73) & "; " & Rs3.Fields(74) & "; " & Rs3.Fields(75) & "; " &
Rs3.Fields(76) & "; " & Rs3.Fields(77) & "; " & Rs3.Fields(78) & "; " &
Rs3.Fields(79)
Rs3.MoveNext
--
Billy Rogers
Dallas,TX
Currently Using Office 2000 and Office 2003