Grabar en visual

[yochy20]

hola necesito ayuda con esto

tengo este sgte codigo:
reg.AddNew
reg!fecha = Text1.Text
reg!guia = Text2.Text
reg!proveedor = Text3.Text
reg!cantidad = Text4.Text
reg!devolucion = Text5.Text
reg!farmacia = Text6.Text
reg!trapi = Text7.Text
reg!vivanco = Text8.Text
reg!crucero = Text9.Text
reg!cayurruca = Text10.Text
reg!mantilhue = Text11.Text
reg!futahuente = Text12.Text
reg!carimallin = Text13.Text
reg!sector1 = Text14.Text
reg!sector2 = Text15.Text
reg!sector3 = Text16.Text
reg!procedimiento = Text17.Text
reg!clinicasdentales = Text18.Text
reg!ira = Text19.Text
reg!era = Text20.Text
reg!salamotora = Text21.Text
reg!prestamos = Text22.Text
reg!saldo = Text23.Text
reg!inventario = Text24.Text
reg.Update

pero me sale error aqui reg!farmacia = Text6.Text

y el text es el 6 y nose xq me arroja este error

igual si me podrian ayudar programar un command llamado actualizar en donde actualiza los datos ya grabados

porfa lo necesito urgente

gracias

[pabje]

Hola yochy20

En cuanto al error fijate el tipo de datos que es farmacia.

Tal vez tengas que usar una funcion de conversion que se antepone a la expresion donde te da el error.

Nos vemos.

[SalomonSab]

Probablemente el campo farmacia de tu base de datos es numerico y tendras que convertir ese dato a numero asi:

Código:

reg.Fields("farmacia") = val(Text6.Text)

espero te sirva

[yochy20]

hola de nuevo

el campo no es numerico

pero igual probe con lo que me diste pero no pasa nada

xau

[SalomonSab]

y entonces como es tu campo para partir de eso, y poderte ayudar

para actualizar los registros prueba con esto:

Ingresa un Commandbutton y agrega este codigo

Código:

cnn.Execute "UPDATE TuTabla SET PrimerCampo = '" & TuTextBox1 & _
                                         "', SegundoCampo = '" & TuTextBox2 & _
                                         "', TercerCampo = '" & TuTextBox3 & _
                                         "' WHERE CampoID = '" & TutextBoxID & "'"
                                         MsgBox "Se realizaron las modificaciones con Exito al Articulo " & TuTextBox1.Text & "", vbInformation, "Mensaje de Información"

Obviamente tendras que agregar tus campos reales para que te pueda funcionar pero creo que con esto te puedes orientar.