Visual Basic - error 91 visual basic 6

Life is soft - evento anual de software empresarial
   
Vista:

error 91 visual basic 6

Publicado por Mariany Hernandez (1 intervención) el 07/11/2011 14:33:12
Buenas tengo un problema con este codigo, si alguien me pudiera ayudar, pues en la primera linea me error 91 la variable de tipo objet o la variable del bloque with no esta establesida, y el adodb y las tablas estan todas perfectas, aqui esta el fracmento de codigo que me esta dando el error.


With Adodc3
.Recordset.AddNew < (el error lo da aqui)
.Recordset("ced_alum") = Text1(0).Text
.Recordset("resp330") = Check1(329).Value
.Recordset("resp331") = Check1(330).Value
.Recordset("resp332") = Check1(331).Value
.Recordset("resp333") = Check1(332).Value
.Recordset("resp334") = Check1(333).Value
.Recordset("resp335") = Check1(334).Value
.Recordset("resp336") = Check1(335).Value
.Recordset("resp337") = Check1(336).Value
.Recordset("resp338") = Check1(337).Value
.Recordset("resp339") = Check1(338).Value
.Recordset("resp340") = Check1(339).Value
.Recordset("resp341") = Check1(340).Value
.Recordset("resp342") = Check1(341).Value
.Recordset("resp343") = Check1(342).Value
.Recordset("resp344") = Check1(343).Value
.Recordset("resp345") = Check1(344).Value
.Recordset("resp346") = Check1(345).Value
.Recordset("resp347") = Check1(346).Value
.Recordset("resp348") = Check1(347).Value
.Recordset("resp349") = Check1(348).Value
.Recordset("resp350") = Check1(349).Value
.Recordset("resp351") = Check1(350).Value
.Recordset("resp352") = Check1(351).Value
.Recordset("resp353") = Check1(352).Value
.Recordset("resp354") = Check1(353).Value
.Recordset("resp355") = Check1(354).Value
.Recordset("resp356") = Check1(355).Value
.Recordset("resp357") = Check1(356).Value
.Recordset("resp358") = Check1(357).Value
.Recordset("resp359") = Check1(358).Value
.Recordset("resp360") = Check1(359).Value
.Recordset("resp361") = Check1(360).Value
.Recordset("resp362") = Check1(361).Value
.Recordset("resp363") = Check1(362).Value
.Recordset("resp364") = Check1(363).Value
.Recordset("resp365") = Check1(364).Value
.Recordset("resp366") = Check1(365).Value
.Recordset("resp367") = Check1(366).Value
.Recordset("resp368") = Check1(367).Value
.Recordset("resp369") = Check1(368).Value
.Recordset("resp370") = Check1(369).Value
.Recordset("resp371") = Check1(370).Value
.Recordset("resp372") = Check1(371).Value
.Recordset("resp373") = Check1(372).Value
.Recordset("resp374") = Check1(373).Value
.Recordset("resp375") = Check1(374).Value
.Recordset("resp376") = Check1(375).Value
.Recordset("resp377") = Check1(376).Value
.Recordset("resp378") = Check1(377).Value
.Recordset("resp379") = Check1(378).Value
.Recordset("resp380") = Check1(379).Value
.Recordset("resp381") = Check1(380).Value
.Recordset("resp382") = Check1(381).Value
.Recordset("resp383") = Check1(382).Value
.Recordset("resp384") = Check1(383).Value
.Recordset("resp385") = Check1(384).Value
.Recordset("resp386") = Check1(385).Value
.Recordset("resp387") = Check1(386).Value
.Recordset("resp388") = Check1(387).Value
.Recordset("resp389") = Check1(388).Value
.Recordset("resp390") = Check1(389).Value
.Recordset("resp391") = Check1(390).Value
.Recordset("resp392") = Check1(391).Value
.Recordset("resp393") = Check1(392).Value
.Recordset("resp394") = Check1(393).Value
.Recordset("resp395") = Check1(394).Value
.Recordset("resp396") = Check1(395).Value
.Recordset("resp397") = Check1(396).Value
.Recordset("resp398") = Check1(397).Value
.Recordset("resp399") = Check1(398).Value
.Recordset("resp400") = Check1(399).Value
.Recordset("resp401") = Check1(400).Value
.Recordset("resp402") = Check1(401).Value
.Recordset("resp403") = Check1(402).Value
.Recordset("resp404") = Check1(403).Value
.Recordset("resp405") = Check1(404).Value
.Recordset("resp406") = Check1(405).Value
.Recordset("resp407") = Check1(406).Value
.Recordset("resp408") = Check1(407).Value
.Recordset("resp409") = Check1(408).Value
.Recordset("resp410") = Check1(409).Value
.Recordset("resp411") = Check1(410).Value
.Recordset("resp412") = Check1(411).Value
.Recordset("resp413") = Check1(412).Value
.Recordset("resp414") = Check1(413).Value
.Recordset("resp415") = Check1(414).Value
.Recordset("resp416") = Check1(415).Value
.Recordset("resp417") = Check1(416).Value
.Recordset("resp418") = Check1(417).Value
.Recordset("resp419") = Check1(418).Value
.Recordset("resp420") = Check1(419).Value
.Recordset("resp421") = Check1(420).Value
.Recordset("resp422") = Check1(421).Value
.Recordset("resp423") = Check1(422).Value
.Recordset("resp424") = Check1(423).Value
.Recordset("resp425") = Check1(424).Value
.Recordset("resp426") = Check1(425).Value
.Recordset("resp427") = Check1(426).Value
.Recordset("resp428") = Check1(427).Value
.Recordset("resp429") = Check1(428).Value
.Recordset("resp430") = Check1(429).Value
.Recordset("resp431") = Check1(430).Value
.Recordset("resp432") = Check1(431).Value
.Recordset("resp433") = Check1(432).Value
.Recordset("resp434") = Check1(433).Value
.Recordset("resp435") = Check1(434).Value
.Recordset("resp436") = Check1(435).Value
.Recordset("resp437") = Check1(436).Value
.Recordset("resp438") = Check1(437).Value
.Recordset("resp439") = Check1(438).Value
.Recordset("resp440") = Check1(439).Value
.Recordset("resp441") = Check1(440).Value
.Recordset("resp442") = Check1(441).Value
.Recordset("resp443") = Check1(442).Value
.Recordset("resp444") = Check1(443).Value
.Recordset("resp445") = Check1(444).Value
.Recordset("resp446") = Check1(445).Value
.Recordset("resp447") = Check1(446).Value
.Recordset("resp448") = Check1(447).Value
.Recordset("resp449") = Check1(448).Value
.Recordset("resp450") = Check1(449).Value
.Recordset("resp451") = Check1(450).Value
.Recordset("resp452") = Check1(451).Value
.Recordset("resp453") = Check1(452).Value
.Recordset("resp454") = Check1(453).Value
.Recordset("resp455") = Check1(454).Value
.Recordset("resp456") = Check1(455).Value
.Recordset("resp457") = Check1(456).Value
.Recordset("resp458") = Check1(457).Value
.Recordset("resp459") = Check1(458).Value
.Recordset("resp460") = Check1(459).Value
.Recordset("resp461") = Check1(460).Value
.Recordset("resp462") = Check1(461).Value
.Recordset("resp463") = Check1(462).Value
.Recordset("resp464") = Check1(463).Value
.Recordset("resp465") = Check1(464).Value
.Recordset("resp466") = Check1(465).Value
.Recordset("resp467") = Check1(466).Value
.Recordset("resp468") = Check1(467).Value
.Recordset("resp469") = Check1(468).Value
.Recordset("resp470") = Check1(469).Value
.Recordset("resp471") = Check1(470).Value
.Recordset("resp472") = Check1(471).Value
.Recordset("resp473") = Check1(472).Value
.Recordset("resp474") = Check1(473).Value
.Recordset("resp475") = Check1(474).Value
.Recordset("resp476") = Check1(475).Value
.Recordset("resp477") = Check1(476).Value
.Recordset("resp478") = Check1(477).Value
.Recordset("resp479") = Check1(478).Value
.Recordset("resp480") = Check1(479).Value
.Recordset("resp481") = Check1(480).Value
.Recordset("resp482") = Check1(481).Value
.Recordset("resp483") = Check1(482).Value
.Recordset("resp484") = Check1(483).Value
.Recordset("resp485") = Check1(484).Value
.Recordset("resp486") = Check1(485).Value
.Recordset("resp487") = Check1(486).Value
.Recordset("resp488") = Check1(487).Value
.Recordset("resp489") = Check1(488).Value
.Recordset("resp490") = Check1(489).Value
.Recordset("resp491") = Check1(490).Value
.Recordset("resp492") = Check1(491).Value
.Recordset("resp493") = Check1(492).Value
.Recordset("resp494") = Check1(493).Value
.Recordset("resp495") = Check1(494).Value
.Recordset("resp496") = Check1(495).Value
.Recordset("resp497") = Check1(496).Value
.Recordset("resp498") = Check1(497).Value
.Recordset("resp499") = Check1(498).Value
.Recordset("resp500") = Check1(499).Value
.Recordset("resp501") = Check1(500).Value
.Recordset("resp502") = Check1(501).Value
.Recordset("resp503") = Check1(502).Value
.Recordset("resp504") = Check1(503).Value
.Recordset("resp505") = Check1(504).Value
.Recordset("resp506") = Check1(505).Value
.Recordset("resp507") = Check1(506).Value
.Recordset("resp507") = Check1(507).Value
.Recordset("resp509") = Check1(508).Value
.Recordset("resp510") = Check1(509).Value
.Recordset("resp511") = Check1(510).Value
.Recordset("resp512") = Check1(511).Value
.Recordset("resp513") = Check1(512).Value
.Recordset("resp514") = Check1(513).Value
.Recordset("resp515") = Check1(514).Value
.Recordset("resp516") = Check1(515).Value
.Recordset("resp517") = Check1(516).Value
.Recordset("resp518") = Check1(517).Value
.Recordset("resp519") = Check1(518).Value
.Recordset("resp520") = Check1(519).Value
.Recordset("resp521") = Check1(520).Value
.Recordset("resp522") = Check1(521).Value
.Recordset("resp523") = Check1(522).Value
.Recordset("resp524") = Check1(523).Value
.Recordset("resp525") = Check1(524).Value
.Recordset("resp526") = Check1(525).Value
.Recordset("resp527") = Check1(526).Value
.Recordset("resp528") = Check1(527).Value
.Recordset("resp529") = Check1(528).Value
.Recordset("resp530") = Check1(529).Value
.Recordset("resp531") = Check1(530).Value
.Recordset("resp532") = Check1(531).Value
.Recordset("resp533") = Check1(532).Value
.Recordset("resp534") = Check1(533).Value
.Recordset("resp535") = Check1(534).Value
.Recordset("resp536") = Check1(535).Value
.Recordset("resp537") = Check1(536).Value
.Recordset("resp538") = Check1(537).Value
.Recordset("resp539") = Check1(538).Value
Adodc3.Refresh
End With




muchas gracias si me pueden ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder