xabi

Prueba con esto: Private Sub creaBarra() Dim barra(3) As Variant barra(0) = "Barra 1" barra(1) = "Barra 2" barra(2) = "Barra 3" 'Quiero llamar a una sub que reciba ' este arrglo ShwBarra barra End Sub Public Sub ShwBarra(BPpl() As Variant) Dim i As...

Me suena esta pregunta ;-) Lo dicho prueba con (c:\archivos de programa\tuaplicacion)

Yo uso el TrueDBGrid, pero para cualquiera de ellos cuando he necesitado una control multiline en el que introducir texto he hecho algo parecido a esto: stxtDescripcion = TDBGrid.Columns("Descripción") Load frmDescripcion With frmDescripcion .txt(0)...

En el Form_Load: lblAviso.caption="PRODUCTO CADUCADO" lblaviso.visible=false Timer1.Interval = 500 Timer1.Enabled = False Evento timer: Private Sub Timer1_Timer() lblAviso.Visible = Not lblAviso.Visible End Sub Cuando visualices el articulo: If...

¿Te sirve esto? Private Sub Command1_Click() Dim i As Integer Dim sTipo As String For i = 0 To Me.Count - 1 If TypeOf Me.Controls(i) Is Label Then sTipo = "Label" ElseIf TypeOf Me.Controls(i) Is TextBox Then sTipo = "TextBox" ElseIf TypeOf...

Supongo que usas Crystal 4.6. Para hacer lo que quieres te tendrías que pasar a cr 8. En esta versión tienes una nueva opción al crear subtotales "RuningTotal".

Si lo que necesitas es ejecutar cualquier aplicación o archivo esto te puede ser útil: ShellExecute(Me.hWnd, "Open", App.Path & "\Documentos\Manual.doc", "", "c:\", 1) Con esto puedes abrir cualquier archivo como si hicieses un doble-click sobre el....

Perdona el retraso. Te he encontrado esto en la web de Guille, uno de los grandes: http://guille.costasol.net:8080/utilidades/cerrarapp/cerrarapp.htm

Al parecer has topado con un Bug, aquí tienes la solución: http://support.microsoft.com/default.aspx?scid=KB;en-us;q248055

¿Puedes explicarme un poco mejor lo que haces?