|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - desarrollo
51
« en: Jueves 30 de Diciembre de 2004, 20:51 »
Sigo con los problemas ya no se k hacer
Private Sub Command2_Click()
Item = Item + 1
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
MSHFlexGrid1.ColWidth(0) = 1000
MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
MSHFlexGrid1.ColWidth(1) = 4000
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 1
MSHFlexGrid1.Text = Str(Item)
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Text = DataCombo3.Text
al hacer esto me sale de la siguiente manera en el grid
ITEM CODIGO DE CONTROL DE CALIDAD
1 OPERATIVO
' EL PRIMERO ME SALE OK PERO CUANDO AGREGO EL OTRO CHANCA AL PRIMERO
OTRA INQUIETUD PARA BORRAR UTILIZO ESTO
If MSHFlexGrid1.Rows > 1 Then
With MSHFlexGrid1
If .Row < .Rows - 1 Then
For f = Row + 1 To Rows - 1
For c = 0 To 3
.TextMatrix(f - 1, c) = .TextMatrix(f, c)
Next c
Next f
End If
.Rows = Rows - 1
End With
i = i - 1
End If
Pero no pasa nada AUXILIOOOOOOO por favor
52
« en: Jueves 30 de Diciembre de 2004, 18:16 »
Mil gracias voy a intentarlo Desarrollo 
53
« en: Jueves 30 de Diciembre de 2004, 17:50 »
Muchas gracias ahora  si avanza pero me deja una linea en blanco entre la cabecera y el primer registro ademas ya no me visualiza el item  Desarrollo
54
« en: Jueves 30 de Diciembre de 2004, 16:31 »
Hola a todos tengo un problemita tengo un formulario que me permite escoger ciertas opciones luego al presionar un boton los datos de los combos deberan visualizace en un MSHFlexGrid colocando un numero de item a cada opcion que yo eliga el problema es que me sale todo en una misma linea no avanza esto es lo que puse en el programa "AYUDENME " por fa
Private Sub Command2_Click()
i = 1
MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
MSHFlexGrid1.ColWidth(0) = 1000
MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
MSHFlexGrid1.ColWidth(1) = 4000
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Text = i
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Text = DataCombo3.Text
i = i + 1
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
End Sub
55
« en: Miércoles 29 de Diciembre de 2004, 21:01 »
Gracias SoulTaker t lo agradezco mucho  Desarrollo
56
« en: Miércoles 29 de Diciembre de 2004, 20:44 »
Muchas gracias por la ayuda pero ya tengo la solucion con un Mask Edit en vez de un text el Mask Edit tiene la propiedad Mask donde puedo determinar que tipo de dato ingresare asi que cuando mi formulario carge en el Mask Edit aparecera "__/__/____" Desarrollo
57
« en: Miércoles 29 de Diciembre de 2004, 20:34 »
no me referia a eso lo kiero decir es que el usuario tiene k ingresar por ejemplo la fecha de compra de un articulo entonces yo kiero que el ingrese esa fecha en el text en un determinado formato (dd/mm/aaaa) creo que ahora si me explique mejor
58
« en: Miércoles 29 de Diciembre de 2004, 20:18 »
Creo que no me explique muy bien estoy haciendo un mantenimiento de tablas y tengo que ingresar unas fecha y horas y quiero establecer en el text ese formato asi el usuario no ingresara otra cosa encontre el control MaskEdbox estoy viendo como funciona por fa ayudenme Desarrollo
59
« en: Miércoles 29 de Diciembre de 2004, 20:04 »
hola a todos hay alguna propiedad que me permita ingresar en un text fechas y horas con un determinado formato Saludos
60
« en: Miércoles 29 de Diciembre de 2004, 01:24 »
Hola BRROZ...  mas o menos lo que tu me dices es asi: Dim xlsApli As Object ó Create xlsApli As Object (esta me da error) podrias orientarme por favor... ya se en donde puedo colocar las referencias pero kiero de la manera que tu me dices gracias desarrollo
61
« en: Miércoles 29 de Diciembre de 2004, 01:06 »
Hola a Todos "Feliz Navidad " Tengo una inquietud me podrian decir si es posible hacer un autocompletar en un DataCombo , desde ya mil gracias por su ayuda Desarrollo
62
« en: Martes 28 de Diciembre de 2004, 01:03 »
HOLA GENTE,  COMO ESTAN AKI NUEVAMENTE PARA UNA NUEVA CONSULTA, resulta que kise migrar datos a excel por medio de un GRID y buscando encontre un codigo por la web.. este es : Option Explicit Public Enum eTGrilla [DataGrid] = 1 [MSHFlexGrid] = 2 [MSFlexGrid] = 3 End Enum Public Function mFn_GrillaToXls(ObjGrilla As Object, _ TipoGRilla As eTGrilla, _ Optional IniFillGrilla As Long = -1, _ Optional IniColGrilla As Long = -1, _ Optional FinFillGrilla As Long = -1, _ Optional FinColGrilla As Long = -1, _ Optional IniFillXls As Long = 1, _ Optional FinColXls As Long = 1, _ Optional FullPathNameFileXLS As String = "Archivo.xls", _ Optional NameSheet As String = "Hoja") As Boolean '*********************************************************************************** '* Funcion que Migra de Una grilla a un archivo de Excel '*********************************************************************************** ' variables Excel Dim xlsApli As Excel.Application Dim xlsWorkB As Excel.Workbook Dim xlsSheet As Excel.Worksheet 'Variables Locales Dim Columna As Long Dim Fila As Long 'Fin de Variables Set xlsApli = New Excel.Application Set xlsApli = CreateObject("Excel.Application") Set xlsWorkB = xlsApli.Workbooks.Add Set xlsSheet = xlsWorkB.Worksheets.Add If FullPathNameFileXLS = "Archivo.xls" Then FullPathNameFileXLS = App.Path & "\" & FullPathNameFileXLS xlsSheet.Name = NameSheet mFn_GrillaToXls = False On Local Error GoTo GrillaToXlsError For Fila = IIf(InicioFila = -1, ObjGrilla.FixedRows - 1, InicioFila) To IIf(FinalFila = -1, ObjGrilla.FixedRows - 1, FinalFila) For Columna = IIf(InicioColumna = -1, ObjGrilla.FixedCols - 1, InicioColumna) To IIf(FinalColumna = -1, ObjGrilla.FixedCols - 1, FinalColumna) Select Case eTGrilla Case MSHFlexGrid Or MSFlexGrid xlsSheet.Cells(IniFillXls, FinColXls) = ObjGrilla.TextMatrix(Fila, Columna) Case DataGrid ObjGrilla.Col = Columna ObjGrilla.Row = Fila xlsSheet.Cells(IniFillXls, FinColXls) = ObjGrilla.Text End Select FinColXls = FinColXls + 1 Next Fila IniFillXls = IniFillXls + 1 Next Fila xlsWorkB.SaveAs FullPathNameFileXLS xlsWorkB.Close xlsApli.Quit mFn_GrillaToXls = True Exit Function GrillaToXlsError: MsgBox Err.Number & " : " & Err.Description End Function
... lo kise utilizar pero me sale un error al momento de llamar a la funcion en la parte donde dice variables de EXCEL el programa me indica que no estan declaradas por ejemplo (Excel.Application, Excel.Workbook, Excel.Worksheet) por lo que no puedo ejecutarlo la pregunta seria como declararia esas variable que utilizare para vincular con EXCEL y ademas es necesario color el OPTION EXPLICiT como dice al principio y por ultimo cuando llamo a la funciona es necesario detallar las condiciones opcionales como dice la funcion (call mFn_GrillaToXls(DATAGRID1, TipoGRilla [me da a escoger],opcional1, opcional2,etc..) Disculpen las molestias pero necesito saberlo para poder exportar datos de un Grid (en este caso) al Excel de antemano mil gracias por la ayuda brindada desarrollo PD:muy a parte del comentario anterior existe otra manera de poder exportar al excel mayor cantidad de datos ya no con GRid (o referenciales) sino por medio de base me refiero desde SQl (ke es mi caso..) gracias y FELIZ AÑO NUEVO !!!
63
« en: Viernes 24 de Diciembre de 2004, 17:57 »
Hola a Todos "Feliz Navidad "  Tengo una inquietud me podrian decir si es posible hacer un autocompletar en un DataCombo , desde ya mil gracias por su ayuda Desarrollo
64
« en: Jueves 23 de Diciembre de 2004, 22:03 »
Hola Otra vez, me preguntaba si es posible modificar el color con el que se resalta la fila seleccionada o quizas hay la posibilidad que al seleccionar una fila la letra cambie de color. Gracias Desarrollo
65
« en: Jueves 23 de Diciembre de 2004, 21:49 »
gracias maestro  fap1603 lo probe y lo solucione... creo que tengo que saber un poco mas de controles xke tengo el presentimiento de que si se sabia solo es aplicar teoria.... y aplicarlo nadamas.... de veras gracias... te lo agradesco mucho x tu ayuda.. desarrollo pd: Feliz Navidad....!!!!!!!!!11
66
« en: Jueves 23 de Diciembre de 2004, 21:41 »
Hola vgt , la verdad esta un poco extenso el codigo pero lo que quieres es algo en comun.... (como las tallas y sus unidades) lo que pienso que haces en barrerte toda la tabla y solo comparar el campo "talla" y modificar sus "unidades" Mira lo que yo hize al observar tu codigo es resolver de cierta manera el control adodc (si es que lo utilizas...  ) For y = 1 To 20 'determino que tienes 20 tallas x = "Talla" & y xx = "Unidades" & y If Text13(1).Text = adcArticulos.Recordset.Fields(x) Then adcArticulos.Recordset.Edit adcArticulos.Recordset.Fields(xx) = adcArticulos.Recordset.Fields(xx) - Val(Text14(1).Text) adcArticulos.Recordset.Update End If Next y observar que lo tienes que hacer para cada control del arreglo (osea 2 veces)... ojala te salga - yo no lo probe tal vez sea esa la solucion... PD: otra manera de llamar a un campo de "adcArticulos.Recordset.Fields(nombrecampo)" puede ser "adcArticulos.Recordset!nombrecampo" (gracias claudia x ayuda...) suerte desarrollo
67
« en: Jueves 23 de Diciembre de 2004, 20:53 »
Hola Gente, Feliz Navidad... nuevamente por aki, con otra consultilla. Estoy manejando un DataGrid el cual contiene datos, Quisiera saber si se puede al momento de seleccionar un registro diferenciarlo con un color a toda la fila para saber visualmente que dato estoy seleccionando... Les agradesco de antemano por la ayuda brindada... desarrollo
68
« en: Lunes 20 de Diciembre de 2004, 20:32 »
gracias EBOLO baje el archivo y si funciona te loagradesco mucho me sirvio de mucho... desarrollo
69
« en: Sábado 18 de Diciembre de 2004, 20:11 »
ya lo hice pero resulta que el grafico siempre lo coloca en medio del objeto (boton) y asi insertes el texto siempre se ubica en la parte inferior del boton alguna otra sugerencia desarrollo
70
« en: Sábado 18 de Diciembre de 2004, 02:18 »
hola gente, de nuevo por aki , alguien tiene idea de como colocar una imagen al lado del texto de un boton de comando, estuve pensando talvez con una imagen con texto y todo y solo insertarlo al boton , pero si alguien tiene alguna otra idea.. de antemano se lo agradesco mucho.. desarrollo
71
« en: Miércoles 15 de Diciembre de 2004, 14:53 »
Gracias Brroz, me funcionoa la perfeccion ahora si le da vida a la ventana de menu.... desarrollo
72
« en: Miércoles 15 de Diciembre de 2004, 01:57 »
hola gente, nuevamente por aki, ahora esta vez con otro pekeno obstaculo. Tengo un formulario al cual le adicione un menu, eso no el problema lo que continua es que ahora tengo un codigo que baje en donde me indica colocar un forno degradado a un formulario, lo probe y no me resulto porque las propiedades del codigo son aplicables para un form normal y este ya no es uno de ellos, ahora tiene otras porpiedades por ser un MDIForm. alguien tiene idiea de komo colocarlo en las propiedades de un MDIForm gracias de antemano x su colaboracion... desarrollo
73
« en: Lunes 6 de Diciembre de 2004, 19:26 »
gracias a todos de todas maneras me sirvio de mucho para ahora utilize un record set y con una consulta (select..like$...) gracias desarrollo pd:  claudia no sabe......
74
« en: Sábado 4 de Diciembre de 2004, 18:26 »
Hola gente,,, alguien me puede ayudar, dentro del evento change de un text deseo hacer una busqueda sensistiva dentro de un Datagrid en un determinado campo.. saludos DesarrollO
|
|
|
Mostrar Mensajes
