Título: La Operacion en varios pasos genero errores... AYUDA AQUI""""" Publicado por: JoseCheO en 23 Diciembre 2011, 16:53 pm Dim con As DataEnvironment1
Dim Modo, cadena Private Sub Guardar_Click() If Modo = "Nuevo" Then con.rsvehiculos.Close con.rsvehiculos.Open "Select * From vehiculos where placa = 000" con.rsvehiculos.AddNew con.rsvehiculos.Fields("placa") = t1.Text con.rsvehiculos.Fields("tipo") = t2.Text con.rsvehiculos.Fields("marca") = t3.Text con.rsvehiculos.Fields("modelo") = t4.Text con.rsvehiculos.Fields("color") = t5.Text con.rsvehiculos.Fields("ano") = t6.Text con.rsvehiculos.Fields("fechaing") = t7.Text con.rsvehiculos.Fields("descripcion") = t8.Text con.rsvehiculos.UpdateBatch adAffectAllChapters con.rsvehiculos.Close con.rsvehiculos.Open "Select * From vehiculos" cadena = t1.Text Buscar1 cadena End If If Modo = "Modificar" Then con.rsvehiculos.Find "placa ='" & Trim(cadena) & "'" con.rsvehiculos.Fields("placa") = t1 con.rsvehiculos.Fields("tipo") = t2 con.rsvehiculos.Fields("marca") = t3 con.rsvehiculos.Fields("modelo") = t4 con.rsvehiculos.Fields("color") = t5 con.rsvehiculos.Fields("ano") = t6 con.rsvehiculos.Fields("fechaing") = t7 con.rsvehiculos.Fields("descripcion") = t8 con.rsvehiculos.Update End If Modo = "" ApagarCajas Me t7.Enabled = False End Sub ME DI CUENTA QUE SI SOLO INTRODUZCO DATOS DE DOS CARACTERES EJEMPLO "AA" EN TODOS LOS CAMPOS ME ACEPTA TODO..!! PERO SI ESCRIBO ALGO COMO "PPP" ME MANDA ESE ERROR..!! AYUDA PORFAVOR Título: Re: La Operacion en varios pasos genero errores... AYUDA AQUI""""" Publicado por: JoseCheO en 23 Diciembre 2011, 16:57 pm Ya lo resolvi...
solo tube que ponerle '000' .... con.rsvehiculos.Open "Select * From vehiculos where placa = '000' " |