23/11/2010, 06:21
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 8 meses Puntos: 29 | |
| Respuesta: Error 2147217904 (80040e10)
No es que yo entienda, pero dado que nadie te lo soluciona intentaré buscar algo simple que te pueda fallar:
No te faltan comillas simples aqui?
'" & (cbMes.ListIndex + 1) & "'"
si es un combo devolverá un string
sModif = "UPDATE [datos$A1:BH150] SET [F16]=" & (rs(16).Value + 1)
sModif = sModif & " ,[f17]='" & (cbMes.ListIndex + 1) & "'"
sModif = sModif & " ,[f18]=" & Int(tbCamp.Text)
sModif = sModif & " ,[f19]=" & (rs(16).Value) + 1
sModif = sModif & " ,[f20]='" & (chRegistrador(g).Caption) & "'"
sModif = sModif & " ,[f21]=#" & Format(tbFecha(0).Text, "dd/mm/yyyy") & "#"
sModif = sModif & " ,[f22]=#" & Format(tbFecha(1).Text, "dd/mm/yyyy") & "#"
sModif = sModif & " ,[f30]='" & (tbNombre(g).Text) & "'"
sModif = sModif & " WHERE [f0] ='" & (sTexto2) & "'"
MsgBox (sModif)
Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
Última edición por pkj; 27/11/2010 a las 09:42 |