Alyson Ronnan Martins

Boa tarde @Kstelzer Usa o comando NZ(Seu campo, 0) Aguardamos a resposta.

Boa tarde Luiz Carvalho. Crio que você queria pegar o dois caracteres a esquerda correto? Então usa o comando VBA: Left(Cmb_Area_Solic, 2) Aguardamos resposta

Boa tarde Rogerio. No modo designe, em propriedades tem o evento ao abrir. Ao clicar na caixa de "Ao Abrir" vai aparecer o reticências "..." No final aperta nele e coloca macro. No macro escolhe a opção ir para último registro. Olha se consegue e responde no fórum.

Bom dia a todos. Tenho um problema de projeto e gostaria de informação ou dicas. Tenho um sistema em vba/excel que faz leitura de produção usando leitor ar. Quero colocar 3 leitores em um único computador e vba saber qual leitor está lendo. Seria algo como keylogger mais para saber qual usb foi digitado a leitura.

Boa noite. Eu fiz as seguintes alterações: Para ter o critério entre dois valores usa a função "ENTRE" O problema do entre é que o campo do seu formulário não pode estar vazio se não em baixo assim que abrir não mostra nada: Para solucionar esse problema eu coloquei um evento ao abrir o formulário usar o Dmin e Dmax para preencher as caixas de filtro: Private Sub Form_Load() Texto25.Value = DMin("Peso", "Tbl_ItensCompra", "tipo_animal Like '*'") Texto24.Value = DMax("Peso", "Tbl_ItensCompra", "tipo_animal Like '*'") Me.ListaCompras.Requery End Sub E quando alterar o filtro do nome coloquei para fazer o mesmo comando só que incluido o texto digitado: Private Sub txt1_Change() Texto25.Value = DMin("Peso", "Tbl_ItensCompra", "tipo_animal Like '*" & txt1.Text & "*'") Texto24.Value = DMax("Peso", "Tbl_ItensCompra", "tipo_animal Like '*" & txt1.Text & "*'") Me.ListaCompras.Requery End Sub Depois de colocar o texto inicial só mudar os valores do peso. Mesmo assim encontrei um problema na hora de fazer a atualização (aparecedo valores que não estão corretos no filtro) Depois de dar uma olhada e testada responde ai para agente. Abaixo o link do arquivo: https://drive.google.com/open?id=1tlYAOlP5dMQyryDFbm2fVULrbLjiY-no

Para escolher qual arquivo do word vai abrir tenta esse comando: Public Sub fnAbrirWordSalvar() Dim CaixaDialogo As FileDialog Set wordapp = CreateObject("word.Application") wordapp.Visible = True 'Set worddoc = wordapp.Documents.Open("C:\Users\Alyson\Documents\Teste.docx") Set CaixaDialogo = wordapp.FileDialog(msoFileDialogOpen) With CaixaDialogo .InitialFileName = "C:\Users\Alyson\Documents\" .Show .Execute End With '-------------------------------------------- 'Comando aqui dentro para editar o word '-------------------------------------------- '-------------------------------------------- 'Caixa para salvar o arquivo: '-------------------------------------------- Set CaixaDialogo = wordapp.FileDialog(msoFileDialogSaveAs) With CaixaDialogo .InitialFileName = "C:\Users\Alyson\Documents\" .Show .Execute End With wordapp.Quit End Sub

Me diz um exemplo pelo qual você quer buscar. Ou melhor faz manual o que você planeja que acontece para bolarmos uma idea mais rapida do que você quer? Exemplo: Colocar o valor da pesquisa em uma celula e pinte manualmente as outras. (não se é isso que você quer)

Teria como postar o seu arquivo para eu ver aonde estar acontecendo o erro?

alysonronnan@gmail.com

Então precisa voltar uma degrao para usar essa parte. Crie uma tabela só para testar calculos em consulta do jeito que criei agora: E agora vamos criar a consulta para fazer os calculos: Agora adicionar a sua tabela na consulta: Clique segure e arraste os campos criados na sua tabela para as colunas (para ficar igual ou parecido a sua tabela). Eu deixei desse jeito ai: E agora eu vou mandar somar os dois valoes: Olha se da certo ai. A ultima foto ficou na sequência errada kkkkk Não entendi.

manda uma foto de como esta sua consulta agora

Eu testei e funcionou aqui. só tem que ver o seu código e suas telas.

Eu coloquei "Par:" para dar nome para coluna da consulta.

Manda uma tela do seu formulário.

Tem como mandar um tela do formulário e uma parta da planilha (nem que seja com valores fictiocios para eu simular e te ajudar)

Do lados esquerdo você cria uma consulta e coloca todos as colunas da sua tabela dentro da consulta: E qualquer coisa que for fazer em calculo você coloca aqui na consulta: A formula para Impar foi: Impar: SeImed([1] Mod 2=0;0;1) + SeImed([2] Mod 2=0;0;1) + SeImed([3] Mod 2=0;0;1) + SeImed([4] Mod 2=0;0;1) + SeImed([5] Mod 2=0;0;1) + SeImed([6] Mod 2=0;0;1) + SeImed([7] Mod 2=0;0;1) + SeImed([8] Mod 2=0;0;1) + SeImed([9] Mod 2=0;0;1) + SeImed([10] Mod 2=0;0;1) + SeImed([11] Mod 2=0;0;1) + SeImed([12] Mod 2=0;0;1) + SeImed([13] Mod 2=0;0;1) + SeImed([14] Mod 2=0;0;1) + SeImed([15] Mod 2=0;0;1) A formula para par foi: Par: SeImed([1] Mod 2=0;1;0) + SeImed([2] Mod 2=0;1;0) + SeImed([3] Mod 2=0;1;0) + SeImed([4] Mod 2=0;1;0) + SeImed([5] Mod 2=0;1;0) + SeImed([6] Mod 2=0;1;0) + SeImed([7] Mod 2=0;1;0) + SeImed([8] Mod 2=0;1;0) + SeImed([9] Mod 2=0;1;0) + SeImed([10] Mod 2=0;1;0) + SeImed([11] Mod 2=0;1;0) + SeImed([12] Mod 2=0;1;0) + SeImed([13] Mod 2=0;1;0) + SeImed([14] Mod 2=0;1;0) + SeImed([15] Mod 2=0;1;0)

Boa noite.@Fernando Cancela Amorim Assim?

Boa tarde. Podemos aqui tirar dúvida é auxiliar sim. Mais já tem ideia como vai ser o formulário?

No VBA do excel não aparece mais nada?

Tem como fazer um "esboço" de como quer fazer esse envio?

Boa noite@Claudio Cunha. Eu não pude olhar a foto pois não é possivel dar zoon no site que esta "upando" sua foto. Tenta anexar por aqui que vai ser mais fácil de entender sua questão.

Boa noite @OLDRIVG. Para o relacionamento funcionar corretamente a tabela principal tem que estar gravada primeiro. Jà tentou usar subformulários para adcionar as outras tabelas? Tem como mandar um foto da tela para termos mais ideia da sua duvida?

Boa noite @Fernando Cancela Amorim. Manda o exemplo do que o excel faz (apenas uma linha de "sortei") e para mostrarmos como faz no Access , Acho que não entendi corretamente sua duvida.

Boa noite @Eduardo Isidro. O código abaixo foi somente para mudar a posição dos numeros Public Sub Inversao(Numero As Long) 'Mudar a posição Dim Inverter As Long Inverter = Right(Numero, 1) & Mid(Numero, 2, 1) & Left(Numero, 1) MsgBox Inverter End Sub

Boa noite @Douglas Goulart Seu modulo esta declaro como Publico? Teria com mandar uma foto dele para darmos uma olhada?