jntk

Pessoal, Gostaria de uma solução pratica e rapida (novidade..rs) para um probleminha que estou tendo com um banco em access onde tenho arquivos de excel vunculado. No arquivo em excel, se temos uma coluna com valores em texto e número, ocorre um problema onde no access não aparece a informação da célula, e sim o valor: #Num! Esta dificil lidar com esta situação, uma vez que alguns destes dados são digitados, e algumas colulas precisam receber dados em texto e número. Abaixo uma imagem da situação simulada, onde na coluna de código, temos código de produto que é numérico, e codigo com texto e números. Na coluna inventário temos de receber somente números, mas se ao digitar 10,6 o infeliz digita 10.6 o access já não reconhece. Pensei em realizar alguma verificação por VBA onde analiza cada célula até encontrar o erro, indicando o nome do arquivo, a coluna e a linha para que seja corrigida manualmente antes de rodar os processos do banco.

:huh: Pessoal, Existe a possibilidade de trabalhar no Access com dados do Oracle? Seria por acaso através das conexões ODBC? Valeu!

:huh: Pessoal, sempre usei o VB e agora estou tendo que trabalhar com VBA (no access), e estou tendo algumas dificuldades Preciso de um códio, que busque um item numa determinada tabela com uma condição e me traga o resultado. Tenho um exemplo disso em VB: 'declarando' Dim db As Database Dim sql As String Dim dyn As Dynaset 'indicando o banco de dados' Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\cep_sp.mdb", False, False) 'indicando o sql' sql = "select * from cep where cep='" & mskcep.Text & " '" Set dyn = db.CreateDynaset(sql) 'fazer enquanto não for fim' If Not dyn.EOF Then 'preencher os campos' txtEndereço = dyn.Fields("TipoLogradouro") & ". " & dyn.Fields("Rua") txtBairro = dyn.Fields("Bairro") txtCidade = dyn.Fields("Cidade") cboUf = dyn.Fields("Estado") Else txtEndereço.Text = "" txtBairro.Text = "" txtCidade.Text = "" cboUf.Text = "" End If [/codebox] Bom, o que esse código faz, o usuário preenche o campo cep, e depois que sai do campo, automaticamente o sistema, através desse codigo, traz o endereço, bairro, cidade, e UF. Se puderem me ajudar a traduzir isso pro VBA (access), ficarei muito agradecido. Obrigado.

:huh: Pessoal, tenho uma apresentação no flash, e gostaria de que ela parasse e fosse para um outro frame (10) depois de 30 segundos... a apresentação fica rodando, rodando, e depois de 30 segundos gostaria que ela parasse em um determinado frame... nunca programei em flash, mas conto com a colaboração de vocês. valeu!

:huh: Sera que é possível fazer isso??? Preciso de uma luz, está difícil....rs...

:huh: Pessoal, pesquisei e não encontrei como copiar um arquivo qualquer para o Clipboard Tenho um caminho de um arquivo (uma imagem) em um txt (txt_imagem) e queria o código para deixar esse arquivo no clipboard para eu conseguir colar essa imagem em outro programa (usando o Ctrl+V)... Fico no aguardo...

:huh: Pessoal, como formato o comando "Time" para que fique somente a Hora e os minutos? Ex.: Ao invés de aparecer 12:15:28 ; Apareça 12:15 Aproveitando, no componente Timer, qual o número que coloco em "Interval" para dar exatamente 1 minuto? Valeu!!!!

:huh: Ahhh!!! Acho que entendi o que o Graymalkin quis dizer..... img_image.Stretch = False img_image.Picture = LoadPicture(foto) maxw = 3495 maxh = 3135 w1 = img_image.Width h1 = img_image.Height Do While h1 > maxh w1 = w1 / 1.001 h1 = h1 / 1.001 Loop Do While w1 > maxw w1 = w1 / 1.001 h1 = h1 / 1.001 Loop img_image.Width = w1 img_image.Height = h1 img_image.Stretch = True (Dividi por 1.001 porque preciso de precisão..rsrs) Se tiverem uma outra solução postem ai.... Valeu!!!!

:huh: Ahhh, acho que estou começando a entender..rs.. (me desculpe)... Isso seria via código, certo; mas como faço isso??? Abraço...

Eu entendi a sua dica, mas é que esse é um form de cadastro, então por exemplo no cadastro 1 tenho uma figura quadrada (ex. 500x500) e no cadastro 2 tenho uma retangular (ex. 750x500) e no cadastro 3 tenho uma outra retangular (ex. 500x750), então não tem como deixar com tamanho proporcinal o Image, teria sim se todas as figuras fossem do mesmo tamanho, ou retangulares ou quadradas. Pensei em algum código que calculasse o tamanho da imagem e redimensionasse o "Image" proporcionalmente ao tamanho da figura, tipo se a figura fosse 750x500 ele deixava o "Image" com 75x50; e se fosse 500x500 ele deixava o "Image" com 50x50. (Acho que agora consegui me expressar melhor..rs) Complicado né.rsrs....

O problema é que existem figuras quadradas e retangulares, e são muito grandes, se fosse "desenhar" uma área para a imagem na tela do form ocuparia a tela toda. No aguardo....

:blink: Caracas, é assim então que se converte DOC pra PDF :wacko: (brincadeira) Falando sério, seria melhor você converter essas imagens para JPG para poder colocar no VB, se forem muitas imagens você pode usar o "Neomesh Image Converter" que converte imagens em lotes. (Eu tinha imagens TIF que precisava usar no VB, cerca de quase 2000, e tive de converte-las para JPG). Abraço....

:huh: Pessoal estou com um problema com o Image do VB Coloquei ele com um certo tamanho (3495x3495) e quando eu carrego a imagem retangular ele acaba distorcendo a imagem, ou seja, comprimindo a imagem nesse "quadrado" do Image. Pesquisei no Fórum e vi a propiedade Stretch, que desabilitada (False) ele não comprime a imagem, e sim traz ela no seu tamanho original. Com isso criei outro problema, pois as imagens são muito grandes e acaba cortando a imagem essa propriedade, fazendo com que apareça 30% da imagem somente. O que eu preciso fazer é com que ele traga a imagem e redimensione ela pra caber dentro do "quadrado" que montei sem distorce-la, ou seja, diminui-la proporcionalmente não só na altura ou na largura. Espero ter me expressado bem! No aguardo por ajudas

:huh: Bom a alternativa que tive foi converter as imagens para JPG, mas com o Corel Photo Paint não rolou. Ele converte em lotes, mas o JPG dele o VB não consegue ler, por não sei qual motivo desconhecido. Acabei usando o "Neomesh Image Converter" Funcionou!!! Abraço!

:huh: Valeu cara! Fiz assim: If txt_image = "" Then MsgBox "Nenhuma Imagem Carregada", vbOKOnly + vbExclamation, "Atenção" Exit Sub End If Dim filter As String filter = "Arquivos JPG (*.jpg)|*.jpg|Todos os arquivos.|*.*" CommonDialog2.filter = filter CommonDialog2.ShowSave If CommonDialog2.FileName = "" Then MsgBox "O Arquivo NÃO foi Copiado", vbOKOnly + vbExclamation, "Atenção" Else SavePicture img_image, CommonDialog2.FileName MsgBox "O Arquivo foi Copiado com Sucesso!", vbOKOnly + vbInformation, "Sucesso!" End If CommonDialog2.FileName = "" Pode fechar o tópico!