charlehardware

Olá pessoal eu de novo! Pra começa tenho uma tabela recheada de endreços( que estrai de algum banco mdb de alg site que fornecia banco de endereços. e importei para o meu mdb com o nome CEPRN. com os seguites campos: Seq (chave primária) Endc SeRuave ( se é rua ou avenida ) Bairroc Cidadec CEPc tenho uma Caixa-de-Combinão(pesqend) - (Não aclopada, que preferia que fosse um mini form) no form de clientes, Que nas propriedades desse caixa..de c.. Na origem da linha tem a seguite instru.. SQL: SELECT CEPRN.Endc, CEPRN.SeRuave, CEPRN.Bairroc, CEPRN.Cidadec, CEPRN.CEPc FROM CEPRN; linhas: 5 Apos atulizar: em codigo vba tem o seguite: Private Sub pesqend_AfterUpdate() Me.ActiveControl = UCase(Me.ActiveControl) [Endereço] = pesqend.Column(0) ' copia da coluna 0(endc) p/ Endereços [titoruav] = pesqend.Column(1) [bairro] = pesqend.Column(2) [Cidade] = pesqend.Column(3) [CEP] = pesqend.Column(4) Dim blRet As Boolean ' block bola do mouse blRet = MouseWheelOFF(False) Nº_End.SetFocus ' da foco au proximo campo pesqend.Value = Null ' limpa a Caixa-de-Combinão(pesqend) End Sub até ai tudo bem: funciona Normal o pro é que tem ruas com os mesmo nome Tipo asim: santa fé bairro a santa fé bairro b em bairros difentes e codigos firentes se eu apontár o "bairro b" ele pega o primeiro da lista no caso o "bairro a" para resolver por enquanto repetir todo processo só que au invés de pesquizar pela rua fiz por codigo ai deu certo. e fiquei com o form de clientes cheio de Caixa-de-Combinão. quando um mini form poderia fazer isso ou apenas uma Caixa-de-Combinão. no aguardo.

OI OBG PELA ATENÇÃO TENTEI COM SEU CODIGO E NADA. RESOLVIR COM AJUDA DE UM AMIGO DE OUTRO FORUM ( JPAULO) SOLUÇÃO: Call Shell("cmd.exe /c Start " & "c:\Snowy3\Snowy3.lnk ") PEGANDO DO ATALHO E NÃO DO .EXE AI DEU PRIMEIRA DE LUXO.

SIM NORMAL.

FAZ QUE VAI ABRIR A TELA FICA PRETA E TUDO, AI DAR UNS ERROS DE CAMINHOS C:\Snowy3\DATA\ALGUM-ARQ.* OU SEJA ELE EXECULTA O ==>> treasurehunter3.exe JUNTO COM EXE EXISTE A PASTA DATA, E COMO QUEM ESTAR EXECUTANDO É O ACCESS DE FORA DE TAL PASTA ELE NÃO ACHA A TAL PASTA DATA E DA ERROS LOGO NÃO ABRI O JOGO. STAR VENDO A LINHA INICIAR EM: REMOVIR ESSA LINHA E TENTEI ABRIR ATRAVES DO ATALHO, RESULTADO ACONTECE O MESMO, ERRO IDENTICO QUE DA NO ECCESS, CONCLUSÃO PRECISA ALG OUTRO COMMANDO LÁ NO ACCESS QUE RESOLVA O "INICIAR EM:"

É O SEGUITE COM AJUDA DE UM MIGO ====>>> JPAULO FIZ UM FORM COM SEGUITE BOTÃO: AO CLICAR USANDO UMA DESSAS TREIS FORMAS, O JOGO ATÉ ABRI MAS FICA MEIO SEGO TIPO ASSIM DENTRO DA PASTA SNOWY3\ EXISTE PASTAS QUE NA ABERTURA DO JOGO SÃO CARREDAS, QUE NA EXECUÇÃO, O EXE NÃO ACHA GERANDO ERROS E O NÃO CARREGAMENTO DO JOGO. EXECUTO DIRETO E ABRI NORMAL. E FIZ O MESMO TESTE USANDO ACALCULADORA DO WINDOWS funciona NORMAL Shell "C:\Snowy3\treasurehunter3.exe", vbNormalFocus 'Shell "explore ""C:\Snowy3\treasurehunter3.exe""", vbNormalFocus 'Call Shell("C:\Snowy3\treasurehunter3.exe", vbMaximizedFocus)