SoloCodigo

Hola! muchas gracias por responder, pero le explico un poco más mediante una operacion obtengo el valor de la primera fila p.e.  0.11 y despues por otra operación obtengo el valor de la primera columna p.e. 5.60 entonces que debo hacer para que busque en la primera fila y la primera columna y me de como resultado el 5.55 que es la intersección de los dos valores anteriores todo esto dentro de un msflexgrid.
p.e.
0.00   0.10   0.11   0.12
1.00   2.00   3.00   4.00
5.00   6.18   5.76   5.38
5.10   6.14   5.73   5.35
5.20   6.10   5.69   5.32
5.30   6.06   5.66   5.29
5.40   6.02   5.62   5.26
5.50   5.98   5.59   5.23
5.60   5.94   5.55   5.20
5.70   5.90   5.52   5.17
5.80   5.86   5.48   5.14

De antemano muchas gracias..

Buenas tardes¡
 Antes que todo gracias por leer mi mensaje. Realice un programa en el cual al hacer una consulta esta tiene la opcion de "vista Previa" mediante el DataReport el cual tiene la orientación horizontal mediante la instrucción
Set obj = New PrinterControl
obj.ChngOrientationLandscape
en mi PC se visualiza correctamente, pero en otra PC me dice el siguiente error
Run-Time error '9'
Subscript out of range
Mucho he de agradecerles si pueden decirme donde esta el error y que debo hacer... de antemano muchas gracias..

cpmario:

Muchas gracias...no lo habia utilizado hasta hoy, funcionó muy bien

Muchas Gracias...

Hola, he terminado una aplicacion en visual basic y se me ocurrio ponerle un splash screen (pantalla de inicio como la de word o el mismo vb) pero quiero que aparezca desaparezca en aprox 5 seg, ya que como mi aplicacion es pequenia pues no tarda nada en cargar y el splash solo se ve como medio segundo, mi pregunta es como puedo hacer que el splash dure el tiempo que yo quiera, 5 o 6 seg aprox y luego desaparecer y cargar mi formulario principal

un saludo

Hola! Robbie110487

Te adjunto un ejemplo de un splash que utilizo y que puedes adaptar a tu gusto y necesidad.

Saludos

Qué tal Kurt?
Por qué no pruebas con la función WeekDay para determinar qué día corresponde a la fecha inicial y luego de acuerdo al rango de días resultante asignar los días sucesivos?. Revisa en la ayuda.

DiabloRojo

Estimado DiabloRojo:

Primero que nada muchas gracias...Disculparas mi ignorancia o estupides pero no se como obtener los nombres de los dias...
la funcion Weekday me devuelve el dia de la semana en numerico p.e.  1 = Lunes y la función WeekDayName me devuelve el nombre de ese numero p.e  Lunes = 1, hasta ahi todo bien pero lo demás no sé como hacerlo para obtener del rango de fechas los dias...

Saludos y muchas gracias

Hola apren_cielito:

Una forma facil y sencilla es usar una conexion via ODBC a la base de datos la cual la creas desde el Panel de Control de windows y de esa forma todos tus usuarios podran leer y escribir sobre ella.

Saludos

Saludos a todos:

 Muchas gracias por leer mi mensaje, estoy tratando de exportar el contenido de un datagrid a excel con este codigo lo que he logrado es solo mandar una parte es decir solo 28 lineas de las 150 que tengo...mucho agradeceré su apoyo para saber en que estoy mal, o si existe otra forma de hacerlo...muchas gracias a todos ustedes.

On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
   Err.Clear
   Set objExcel = CreateObject("Excel.Application")
   If Err.Number Then
   Respuesta = MsgBox("Error al abrir Microsoft Excel", 16, "Información al usuario")
   End If
End If
objExcel.Visible = True
Set ObjWorkbook = objExcel.Workbooks.Add
Fila = DataGrid1.VisibleRows
Col = DataGrid1.Columns.Count - 1
For i = 0 To Fila
    DataGrid1.Row = i
    For n = 0 To Col
        DataGrid1.Col = n
        ObjWorkbook.ActiveSheet.Cells(i + 2, n + 1).Value = DataGrid1.Text
        ObjWorkbook.ActiveSheet.Cells(1, 1).Value = "REPORTE MENSUAL"
        ObjWorkbook.ActiveSheet.Cells(1, 2).Font.Bold = True
        ObjWorkbook.ActiveSheet.Cells(1, 2).Font.Size = 14
         Next
Next
Form4.Hide
Form7.Enabled = True
End Sub

Saludos a todos:

   Antes que nada mis mas infinitas gracias por tomarse la molestia de leer mi mensaje y mi pregunta es la siguiente:
Estoy realizando consultas a una base de datos mediante un Adodc y las visualizo en un Datagrid en el veo  No. Articulo, Nombre Articulo etc....el Datagrid me lo muestra tal y como se fueron dando de alta los articulos, como puedo hacer para ordenar el DataGrid de manera ascendente de acuerdo al No. de Articulo?

Muchas gracias....

Hola a todos...y gracias por leer mi mensaje

Estoy programando un sistema que entre otras cosas guardo la fecha de nacimiento la cual comparo con el dia actual es decir:
Fecha de Nacimiento: 18/05/80 dd/mm/aa y la fecha actual 20/01/05  dd/mm/aa
Y en otro recuadro la edad obtenida de esta diferencia  25 años mi problema es que si aun no se ha llegado al 25/05/05 el sistema ya me suma el año en curso. Como puedo hacer para que hasta que se llegue a la fecha (25/05/05) me sume un año mas.

Muchas gracias por su ayuda

Holas a Todos¡¡¡

   Antes que otra cosa muchas gracias por tomarse la molestia en leer mi mensaje...
   Mi pregunta es la siguiente, estoy realizando consultas mediante un inputbox en el cual digito un número de control de alguna persona, y los datos relacionados como son nombre, direccion, etc...los despliego en un datagrid que tiene un ODBC mi duda es cada vez que realizo una consulta y salgo de la pantalla, y nuevamente cuando quiero hacer otra consulta el datagrid conserva la consulta anterior hay alguna forma de limpiar el DataGrid para una nueva consulta?

Muchas gracias.....

Hola a todos.
Trabajo en un empresa que desde hace un año implantaron un sistema que nunca se adapto a nuestras necesidades para obtener información, hace mes y medio empece  a programar en Visual Basic utilizando una base de datos en access para poder crear una aplicacion o sistema que me permita cubrir todas mis necesidades en cuanto al manejo de información tenia terminado el primer modulo de tres y empezaba a programar el siguiente, tuve la idea de mostrarlo a mi jefe y el me felicito envio un e-mail al area de sistemas para que ellos me apoyaran y pudiera terminar mi proyecto, y es aqui donde empezo el problema, el encargado del area de sistemas armo una revolución, diciendole a su personal, como era posible que alguien externo a su departamento de "sistemas" pudiera realizar algo mejor y no ellos, empezaron a decirme que el sistema que ellos instalaron es mucho mejor porque esta programado en Fourj´s y maneja una base de datos hecha en Informix..etc, y que mi sistema es solo una base de datos en access, hoy me han instalado windows configurator  para restringir mi equipo y me han quitado el CD y la unidad de 3 1/2 y me tienen monitoreado, lo que más lamento y es por eso que me atrevo escribir  es porque gran parte de lo aplicado en mi sistema han sido sugerencias y ayuda por parte del Foro de Solo Codigo, de lo cual me siento orgulloso de pertencer a este foro..... debo continuar con mi proyecto?

Saludos a todos

Hola  Zeekel:

Antes que nada muchas gracias por ayudarme te explicare que hice:
En la forma adjunta tengo un data conectado a la base de datos (mdb) y el recordsource  a la tabla materiales que tiene dos campos CodMat y NombreMat.  El text2, 5, 8, 11,14 y 17 estan conectados al data al campo NombreMat.

Entonces tengo esto en el Text1.text
If KeyAscii = vbKeyReturn Then
      KeyAscii = 0
      nReg = Val(Text1)
      Data1.Recordset.FindFirst "CodigoMat Like'" & Text1.Text & "'"
       Text4.SetFocus
           If Data1.Recordset.NoMatch Then
             Respuesta = MsgBox("La clave del material no existe", 64, "Información al usuario")
             Text1.SetFocus
                  ElseIf Text1.Text = "" Then
                  Respuesta = MsgBox("Introduzca el codigo", 64, "Información al usuario")
           Text1.SetFocus
        End If
    End If

Cuando lo encuentra me devuelve en todos los text (2,5,8,11,14,17) el mismo material asociado al codigo, entonces lo que pretendo es que se digite en el text1 el codigo p.e. 309 y el text2 aparezca "Ferromanganeso", en el text4 se escriba 310 y el el text5 aparezca "silicio" etc...perdona mi ignorancia pero no se como.
En el ejemplo que me enviaste no compredo que es : Campo2 y que condiciones deben tener el data y los textbox.

Muchisisimas gracias y disculpa

Zeekel...

Disculpa...trataré de explicarlo mejor
El porque dos aplicaciones EXE  en la Primera debo controlar como "administrador" de mi sistema esas variables que el usuario no puede cambiar, si en mi sistema en un textbox le asigno al registro V1 de la tabla un valor p.e. 600 este siempre dentro de mi sistema debe ser 600 hasta que yo lo cambie, este valor se refreja en el sistema 2 de los usuarios cada vez que ellos entre a la pantalla de captura el valor se habra incrementado en 1 es decir 601 si ellos vuelven a entrar sera 602 y asi sucesivamente estos valores deberan guardarse en otra tabla respetando el consecutivo...no se como hacerlo de verdad no tengo ni la mas remota idea...muchas gracias

saludos...