Isaac Reyes

Supongo que tu duda va en ¿Cómo poder sumar los datos de la columna?, si es así, esto te puede ser útil: suma=0 For i = 1 To Me.DataGrid1.ApproxCount suma = suma + Me.DataGrid1.Columns(0).CellValue(i) Next Este trozo de código suma todos los datos...

Yo utilizaría el CommonDialog, pero como no conozco a cabalidad el contexto de tu proyecto, aquí te dejo algo que te puede ayudar. Saludos. Dim colores Private Sub Combo1_Click() Me.Text1.BackColor = colores(Me.Combo1.ListIndex) End Sub Private Sub...

Todo parece estar bien en tu consulta. No sé si lo has intentado, pero prueba a hacer lo siguiente: - Pones la consulta en una variable. Ej: SQL = "select * from stocksv where fecha = #" & date & "#" - Luego envías un mensaje con un InputBox InputBox...

Para poder ayudarte con mayor exactitud necesito saber: ¿De qué forma te conectas a la base de datos? ¿Ya conseguiste ingresar los datos en el dataGrid?

Así cargas el contenido del dialog al cuadro de texto Private Sub Dialog() On Error Resume Next UserForm1.CommonDialog1.CancelError = True UserForm1.CommonDialog1.ShowOpen If Err.Number = 0 Then UserForm1.TextBox1.Text =...

Se gún lo que dices, entiendo que has ocupado "dbgrid1.Columns(0)" O "Caption" Si entendí bien, andabas cerca, pues la forma de cambiarlo es "dbgrid1.Columns(0).Caption". Saludos...

Utiliza la función format de la siguiente forma: destino = format(origen,"#,##0") Donde "destino" es el lugar donde quedará el número con formato, "origen" es el lugar donde está el número sin formato y "#,##0" es el formato (si no quieres que te...

Con respecto al campo, se debe hacer una diferencia entre el nombre del textbox y un evento del textbox. En tu caso, el nombre del textbox es "textbox7", siendo "textbox7_Change()" un evento de "textbox7" que se dispara cuando haces un cambio en el...

Aquí te envío un código que espero te sirva Saludos. 'Procedimiento que llena una lista con los nombres 'de los archivos que cumplan con el formato entregado 'si no se incluye formato, asume *.jpg Sub BuscarJPG(sPath As String, _ Lista As Object, _...

No sé si es realmente lo que necesitas, pero este línea de código te permite mostrar el valor de la celda B2 de la hoja venta, en el campo de texto txtCampo de la hoja llamada Hoja1 Hoja1.txtCampo.Text = venta.Cells(2, "B") Es que te sirva o de...