SoloCodigo

Hola José:

La verdad que nunca trabajé con Crystal, así que no te sabría decir como hacer.

Recuerdo que hace como una semana alguien planteó lo mismo en otro foro, creo que era en el de Microsoft: http://communities.microsoft.com/newsgr ... %2Ees%2Evb

o el de Mailgate.org: http://www.mailgate.org/es/es.comp.leng ... index.html

Lamento no poderte ayudar más.
Saludos,
Javier

Hola sMorph:

Para tener los eventos de los controles y una variable a nivel de formulario para referenciarlos, debes hacerlo así:

Dim WithEvents MiCommand1 as CommandButton

Set MiCommand1 = Controls.Add ("VB.CommandButton, "NombreBoton1")

Private sub MiCommand1_Click()
' escribir el procedimiento de evento acá
End Sub

Para referenciarlo:

MiCommand1.Caption = "&Presione aquí"

Lo mismo para otro tipo de controles, debes declararlo con el tipo específico (Label, TextBox, etc,) y luego escribir los procedimientos de eventos, con todos los parámetros necesarios.

Para hacer la declaración correcta puedes poner un control del tipo en un form y copiar la declaración del evento que VB coloca automáticamente y modificarla para el nombre de tu control.

Saludos,
Javier

Hola Empar:

Te hice un ejemplo, para probarlo abre un proyecto nuevo, coloca un botón de comando y pega el sig. código:

'*****************************
Dim v() As Long

Option Explicit

Private Sub Command1_Click()
    Dim Texto As String
    Dim X As Long
   
    AgregarElemento
    For X = 1 To UBound(v)
        Texto = Texto & v(X) & vbCrLf
    Next
    MsgBox Texto
End Sub

Private Sub AgregarElemento()
    Dim I As Long
    Dim X As Long
    Dim YaExiste As Boolean
    Dim NuevoIndice As Long
   
    I = Int(Rnd * 19) ' cambiar por lo que sea
    YaExiste = True
    Do Until Not YaExiste
        YaExiste = False
        For X = 1 To UBound(v)
            If v(X) = I Then
                YaExiste = True
                I = Int(Rnd * 19) ' cambiar por lo que sea
                Exit For
            End If
        Next
    Loop
   
    NuevoIndice = UBound(v) + 1
    ReDim Preserve v(NuevoIndice)
    v(NuevoIndice) = I
End Sub

Private Sub Form_Load()
    ReDim v(0) ' inicializo el vector con la posicón 0 que luego nuca uso, lo voy a usar a partir de la 1, pero hago esto para que despues ya esté inicializado y no me de error
End Sub
'*****************************

Tené en cuenta que por ejemplo, en este caso, una vez que ya hay 19 elementos ingresados se queda indefinidamente buscando cual agregar, pero resulta que como ya están los 19 no encuentra uno que no esté y no sale más del loop, si en tu caso puede pasar algo parecido tendrías que ponerle una validación o protección para que eso no ocurra.

Saludos,
Javier

Hola Cero Kull:

Yo también estoy de acuerdo en que tienes que leer un libro o tutorial, fijate si en la web del Guille http://guille.costasol.net hay algo.

Lo que pasa es que estos son foros de consultas, no de enseñanza, ya que sería difícil eso, para eso se escriben los libros y los tutoriales, para que haya que escribirlos una sola vez y no uno para cada alumno.

Además aprendiendo solo de esta manera corres el riesgo que te indiquen algo mal, lo cual te va a confundir más.

Unas cositas:

Option Explicit ---> indica que en ese formulario o módulo de código todas las variables se tienen que declarar explícitamente.

Por ejemplo si abres un proyecto nuevo y escribes:

a = "Prueba"
MsgBox a

va a andar siempre y cuando no diga arriba Option Explicit, sino va a saltar un error. El código entonces tendría que ser:

Dim a

a = "Prueba"
MsgBox a

Ahí no va a saltar el error. El ámbito o alcance de las variables, sean globales o no, no va a cambiar por haber puesto Option Explicit.

En el menú Herramientas, Opciones en la paleta Edición hay una casilla que dice "Requerir declaración de variables", si está tildada, VB te va a colocar el Option Explicit automáticamente cada vez que agregues un formulario o un módulo.

Otra cosa que puedes hacer para aprender es posicionar el cursor en una palabra, por ejemplo en este caso Option y presionar F1, la ayuda de Vb es buena (al menos la de VB5 lo era, ahora ya no la uso tanto) y te van a salir todas las formas de usar la palabra Option (Option Explicit, Option Base, Option Compare ... etc)  
Ver la ayuda es más rápido que poner posts (creo).

Un comentario más: el usar la declaración explícita de variables puede parecer un poco incómodo, porque hay que escribir más, ya que hay que declararlas a todas, pero es totalmente recomendable ya que de otra manera puede haber errores muy difíciles de detectar, por ejemplo:

MiVariable = "prueba"
MsgBox MiVarriable

No sale nada ¿Por qué? porque me equivoqué y puse una r demás en el segundo uso. Entonces vb cree que son dos variables diferentes, MiVariable y MiVarriable.
El Option Explicit elimina esos problemas ya que va a saltar un error que me avisa que la variable no se encuentra declarada.

Conclusión: Usar siempre Option Explicit, poner la casilla tildada en la pantalla de opciones.

Saludos,
Javier

Hola Gaby:

Si, respondo en varios foros, es como un pasatiempo (o vicio) que agarré últimamente, lo que tiene de bueno es que cuando puedo ayudo gente, y además a veces aprendo algo leyendo las repuestas de otros.

Con respecto a tu pregunta, yo nunca utilizé el DataControl, siempre hice todo con DAO, así que espero que otro te pueda ayudar mejor con eso.

Creo que s así para almacenar en la base de datos:

Datacontrol.RecordSet.Edit
Datacontrol.RecordSet!NombreCampo = Variable
Datacontrol.RecordSet.Update

y la operación inversa (pasar de la Bd a una variable):

Variable = Datacontrol.RecordSet!NombreCampo

Saludos,
Javier

Hola Maxier:

Yo para saber en que plataforma está corriendo el programa uso el sig. código:

'****************************
Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long           '1 = Windows 95.
                                  '2 = Windows NT
   szCSDVersion As String * 128
End Type

Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Private Function EsNt() As Boolean
    Static sCalculado As Boolean
    Static iValor As Boolean
   
    If Not sCalculado Then
        iValor = GetVersion = 2
        sCalculado = True
    End If
    EsNt = iValor
End Function

Private Function GetVersion() As Long
   Dim osinfo As OSVERSIONINFO
   Dim retvalue As Integer
   osinfo.dwOSVersionInfoSize = 148
   osinfo.szCSDVersion = Space$(128)
   retvalue = GetVersionExA(osinfo)
   GetVersion = osinfo.dwPlatformId
End Function
'****************************

Así como está lo puedes colocar en un form, pero si lo colocas en un módulo cambia la delaración de la función EsNt de Private a Public.

Retorna True si corre en la plataforma NT y False si es 95/98/ME

Saludos,
Javier

Hola Janhisse (de paso, que lindo nombre):

Mira, por lo que dice el error parecería que ese campo sat_numsat no existe o está mal escrito, chequea eso.

Saludos,
Javier

Andreu:

Fijate que alguien te contestó algo en el foro de Mailgate.org

Saludos,
Javier

Hola Maxier:

Además del código que te pasó .:Gaby:., que sirve para bloquear las teclas, te paso este otro para que tu aplicación no aparezca en la lista:

'**************************
Option Explicit

Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Const RSP_SIMPLE_SERVICE = 1

Private Sub Form_Load()
    Call RSP(GetCurrentProcessId, RSP_SIMPLE_SERVICE)
End Sub

Private Function RSP(ByVal dwProcessId As Long, ByVal dwType As Long) As Long
    On Error Resume Next
    RSP = RegisterServiceProcess(dwProcessId, dwType)
End Function
'**************************

Nota: esto funciona solamente en Windows 95/98/ME pero no en NT/2000/XP, la forma de hacerlo para las dos plataformas no la sé (si se puede). Me parece que lo bloquear las teclas también anda sólo en 95/98/ME.

Recuerdo haber visto un proyecto de ejemplo para bloquear las teclas en Win NT/2000/XP en http://www.pscode.com/vb si te interesa tendrías que buscarlo.

Saludos,
Javier

Hola M00g:

En tiempo de ejecución, puedes acceder a las propiedades de los menús ya que son controles (tipo Menu) de VB.

Cuando creas el menú, por cada entrada te pide un nombre, luego con ese nombre accedes al control menú.

Suponiendo que hayas creado un menú "Archivo", podrías haber colocado por ejemplo mnuArchivo como nombre y "&Archivo" como caption.

Luego en tiempo de ejecución para habilitarlo o deshabilitarlo usas la propiedad Enabled:

mnuArchivo.Enabled = False

Saludos,
Javier

Mas acerca del tema:

En el objeto Screen de VB tienes propiedades de la pantalla:

Width = Ancho
Height = Alto

se usa, por ejemplo:
Msgbox Screen.Width

Te lo da en Twips, que es una unidad de medida que es Standar en VB (hasta VB6).

Los formularios a su vez tienen las propiedades:

Width = Ancho
Height = Alto

y

Top = Posición a lo alto, es decir, determina la posición en el eje de las Y, nada más que al aumentar el valor se coloca más abajo.

Left= Posición en el eje de las X, siempre en Twips

También los controles tienen estas propiedades, de modo que se pueden ajustar las posiciones.

Todas estas propiedades se pueden cambiar tanto en tiempo de diseño como en tiempo de ejecución.

Ahora, bien, si las vas a cambiar en tiempo de ejecución para ajustarla a la resolución de pantalla o al estado de una ventana (si la maximiza o la restaura por ejemplo), necesitas de un evento donde hacerlo. Para eso puedes utilizar el evento Resize del formulario y colocar el código necesario ahí. Este evento se dispara cada vez que el formulario cambia de tamaño.
También este evento ocurre la primera vez que se está por mostrar el formulario.

Una forma lógica sería colocar los Width, Height, Left y Top de los controles en este evento Resize del Form, y los Width, Height, Left y Top de los formularios antes de mostrarlos, es decir antes de poner Fomulario.Show

Para situar los controles se tomaría como referencia el alto y ancho del form.

Y para determinar posición y tamaño que debe tener el form se tomaría las dimensiones de la pantalla.

(Me parece que esta mañana me levanté inspirado, o al menos con ganas de escribir)

Si quedó alguna dude decime.

Saludos,
Javier

Hola Michael:

Si, trabaja con la pila, pero no es una pila alcalina o de esas para hacer funcionar relojes etc.
La pila es un lugar de la memoria donde se almacenan las llamadas a los procesos y de que manera y donde deben retornar.

Si por ejemplo haces una rutina:

Private sub LLenarPila
    LLenarPila
End Sub

Te va a salir un mensaje de error que dice que se quedó sin espacio de pila, es que tiene 64K de memoria para almacenar las llamadas y retornos, si se le acaba da el error.

Se llama pila porque es como si fuera apilando cosas, luego las va sacando cuando retorna, desde la de mas arriba hacia abajo.

Otro ejemplo sería:

Public Sub Proceso1()
    Proceso2
End Sub

Public Sub Proceso2()
    Proceso1
End Sub

Llamando a cualquiera de los dos se va a llenar la pila.

Espero haber sido mas o menos claro.

Saludos,
Javier