Gracias por responder!!.

Ahora si funciona como queria !!!

Gracias de nuevo!!

Hola, probé el primero, pero me sale "Error en tiempo de ejecución: No coinciden los tipos", probé cambiando el tipo de variable a; INTEGER, LONG, STRING, pero me sale el mismo error :/.

      FiltroMotivoMerma = "51 52 53 61 70 72"
      If Combo2.Text = "ABARROTES" Then
         MotivoMerma = InputBox("Ingrese Motivo Merma", "Mermas")
         If InStr(FiltroMotivoMerma, " " + MotivoMerma, 1) = 0 Then
            respuesta = MsgBox("asdf", "asdf")
                Else
                    MotivoMerma = FiltroMotivoMerma
        End If
      End If
 

Y el segundo código igual lo probé, pero a pesar de que funciona, después de darme el error "pasa" a lo que sigue del código y la idea es que se repita el InputBox hasta que el usuario ingrese lo que corresponde.

A ver si me pueden echar una mano por favor !!

Saludos y gracias de ante mano

Hola, buenas , :DD


Tengo una duda sobre como implementar una comprobacion sobre un inputbox.

Tengo este codigo

'codigo anterior
respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA")
' demas codigo
 

El tema es que solo hay 6 tipos de merma, entonces mi idea es hacer una comprobacion sobre SI NO escribe ninguno de los motivos permitidos aparezca un error o advertencia. PERO el tema es que no se como hacerlo.. o sea pense con IF's, pero creo que es muy engorroso hacer un if por cada motivo, porque el programa tendria que comprobar muchas veces cada vez que se ingrese y eso lo haria lento.

Es por eso que vengo a solicitar ayuda a ver si me pueden guiar sobre como hacerlo. Pense que podia ser con WHILE, pero no se como usar WHILE con variables.

Eso, porfavor si alguien me puede ayudar se lo agradeceria mucho.

Los motivos son en este formato :


O sea eso seria lo que el usario debiera ingresar y si no, bueno pues que de el error xD.

Saludos y gracias de ante mano.

Puedes hacerlo con programas externos, solo debes compilar tu programa y usar alguna instalador externo para hacerlo mas rapido.

InstallShield Wizard (de paga)
SisInstaller (gratis)
SetupFactory (de paga)
Smart Install Maker (muy bueno pero de paga, aunque siempre hay algun crack o serial por ahi xD)

Obviamente no son los unico pero son los que yo he usado por lo menos.

Esop, saludos.

Y el programa?, te da alguna error?, algun dato extra, como las rutas, si queires modificar el source.
Debes proporcionar mas datos para que te puedan ayudar, porque aca no creo que haya adivinos xD!!

Saludos.

Lo probé en windows 7 con un pendrive  y si me funciono.

Bueno, no tengo un respuesta, pero tengo una duda, ¿Para que quieres que funcione en sistemas chinos?, ¿de verdad lo usaras en un SO xp chino?.

Hola,

Este codigo deberia funcionar en el evento FormActivate antes que se inicie todo. Si no funciona ahi, prueba en el formLoad, aunque yo lo hago en el activate.

Me.WindowState = FormWindowState.Maximized
 

Saludos, espero te sirva.

Bueno, de nuevo encontre la solucion, ya la dejo para que si alguien mas tenga el  mismo problema lo pueda solucionar.

Por defecto VS ejecuta el programa para arquitecturas x64 si estas en sistema basado en x64 (duh) y en 32bits si no. Entonces para que funcione en ambos hay que cambiar esto en las propiedades del proyecto.

Proyecto
 - Propiedades Proyecto
 - Propiedades Avanzadas de Proyecto
 - Ejecutar en tipo : x86

Aceptar y volver a cargar el proyecto.

Saludos.

Cerrar.

Hola a todos, saludos

Vengo a molestar de nuevo con mis dudas, pero por mas que busque nada me funciono.

Importe mi proyecto de VB6 a VS2008 (algunos pensaran que es tonto o no se xD). Al momento de ejecutar el proyecto me lanza un error de COMException en una consulta a la base de datos Access (*.mdb).

Esta es la forma en que abro/cargo la BD. (En el form Activate)

mibd.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\DBLOCALES.mdb;Persist Security Info=False")
 

 Y esta es la consulta que va en el boton

mirec.Open("SELECT * FROM DBLOCALES WHERE Tienda = '" & (TLocal).Text & "' ", mibd, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
 

Y me da el siguiente error cuando va a hacer la consulta.



Busque documentación sobre como controlar este error, pero nada de lo que encontré me sirve o se aplica a mi proyecto. Pensé que podría estar mal echa la consulta, pero no me marca o subraya ninguna error en el IDE, ademas la importación la hace automática, por ende supongo que no esta mal echo.

Bueno en fin, quisiera saber si alguien me puede ayudar con el tema, o por lo menos guiar hacia donde tengo que ir o donde buscar.

Sinceramente creo que mi método es muy anticuado, pero por lo mismo estoy tratando de migrar (actualizar en este caso). El tema es que no se como hacer bien la consulta ahora.

A ver si alguien se anima y me da una mano.

Saludos! y Gracias por cualquier ayuda .