SoloCodigo

Hola desarrollo, es buena idea, voy a consultar con mi jefe para ver si es factible, es que el es una amante de la perfeccion. Gracias de Todas manera.
 
Sigo aceptando sujerencias

Hola vbmc_2004 y gracias.
Yo te entiendo, yo hice una rutina paresida, pero mi jefe dice que puede y no puede servir. ya que como se esta trabajando con facturas la enumeracion tiene que ser consecutiva. Mira por ejemplo. con la rutina que desarrolle el busca el ultimo registro(factura) de ese periodo y le suma una. hasta alli no hay problema. El problema esta en que si se elimina una factura por decir habian 15 y elimine la 8(1008) la 15 tiene por ejm(1015) al introducir otra factura el cuenta que hay es 14 + 1 seria 15 osea(1015) y ya seria error(duplisidad)( y el sistema maneja por mes un minimo de 300 facturas) yadema se imprime en unas hojas de facturas ya enumeradas y ese eso el otro problema. por eso es que quiero como autoenumerar en un Update.

 
Alguien tiene una solucion, se lo agardesco.

Saludos

Hola desarrollo, mira dejame esplicarte mejor la cosa es asi.
Yo tengo una tabla que tiene unos registros que se actualizan mensualmente, y en la actualizacion se toma un numero base que de alli se comiensa a enumerar las facturas. por decir el numero base es 100. y en ese mes hay 5 facturas. el proceso lo que hace es ponerle el numero de factura(q inisialmente es nulo) de forma consecutiva.

El antes estaba con un while pero es que se usaba access de BD pero ahora se cambio a sql server y con una sola consulta se actualizan todos de una sola vez sin la necesidad de hacer el ciclo while y como solo se controla por el periodo,
mira antes estaba asi

num=100
 while not.eof
 if periodo = per then
    .edith
    .field("fac_mes") =  Trim(num)
    .update
    .movenext
    num= num + 1
 end if
wend

y si habian 5 sera asi. 100, 101,..105
Antes si se podia hacer pero ahora con sql es otra cosa ya que el busca todos los registros que cumplan con la misma condision y los actualiza de un vez.
asi

num = 100
Set RSMensuales = Nothing
RSMensuales.Open "UPDATE TMensual SET fac_mes = '" & Trim(num) & "'" & _
"WHERE per_mes = '" & per & "'", CnSQLconexion, adOpenKeyset, adLockOptimistic

Como hago para que ponga la enumeracion verdadera por que asi le pone el mismo valor a todos los registros que esten en el mismo periodo. Ya trate poniendole num + 1 y nada lo suma y se lo pone a todos los del periodo osea 5 101.
Saludos

Hola.. mira yo acabo de hacer algo parecido
por ejemplo si tienes un rutna asi.

Set RSEjemplo = Nothing
 RSEjemplo.Open ("SELECT * FROM Tabla"), CnSQLconexion, adOpenStatic, adLockReadOnly
 ProgressBar.value=0
  RSEjemplo.MoveFirst
 While RSEjemplo.EOF = False
    El Proceso............
 Var_Progreso=Var_Progreso + val(100 /RSEjemplo.RecordCount )
 ProgressBar.value=var_progreso
 RSEjemplo.MoveNext
 Wend
Set RSEjemplo = Nothing

Cuando termina el proceso termina el Progressbar.. has la prueba y veras.
 

Hola.. lo que pasa con el sp6 es que despues de un tiempo te desactiva las referencias y no puedes modificarlas.
 
Es solo una opinion. por que no solo le paso a mi pc sino tambien a la de mi jefe y varias veces.

Saludos

Hola, que tipo de error te manda....

Hola gente,  tengo problemas con la unión de SQL Server 2000 y cristal Report 8. Tengo mas de 300 reportes en un sistema.. los arreglo y cuando pienso que funcionan pierden el link   con el database y por ende con toda la base de datos de SQL 2000. Hay reportes que lo he hecho como 10 veces y ya estoy apunto de tirar la PC por el balcón . No se q le pasa a eso.. un día funciona bien y al otro no, de una carpeta de 50 reportes que funcionaba ayer hoy 47 no sirven .

Alguien conoce si es que existe alguna error de incompatibilidad entre estas dos herramientas ya que cristal Report 8 es algo viejo. Si me pueden ayudar se lo agradezco mucho.

Que  pasen feliz año

Hola..
 
Mira me parece que usas sql server por q a mi me mandava el mismo error. Ese error es por que no tiene los permisos requeridos(pueden ser en la tablas, users, carpetas o la misma base de datos verifica eso.. ) si no usas sql.. entonces la pele..jeje  
Saludos

Hola socio, mira con esto puedes mandar un correo a otra persona sin la necesidad de estar en hotmail...
 
Espero que te guste
 

Hola.. mira si quieres es imprimir es el formulario pones asi

formulario.PrintForm

sobre a pasar los valores del recordset es facil

por ejm.

formPrinter.etiqueta.caption = .fields("campo")

No se si es eso lo que querias... es que no espesificas bien..
saludos  

Hola y gracias, lo voy a probar. Yo tenia otra solución pero mi jefe dice q es poco ortodoxa.
De nuevo.. Gracias

 

Hola, mira para eso hay solucion, una es que te vallas a archivos y le quitas la opcion de autosave de datos, prueba y me habisas...

 

Hola amigos, tengo un problema al momento de actualizar un registro que es demasiado largo y toma mas de una linea de codigo en vb y sentencia sql

Miren por ejemplo.

Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing

[/color]

La pregunta es si conosen algo ademas de _& para unir lineas ya que esto me da error
si lo pongo asi no me da error

Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing

[/color]

Para ver si me pueden hechar la mano.
Saludos y Feliz Navidad