Alyson Ronnan Martins

Bom dia Natan, você esta executando formula para pegar esse valor ou pensa fazer isso em macro?

Boa tarde.Eu faço muitos trabalhos em excel mais agora preciso fazer isso em access (o que mais gosto).Eu tenho uma tabela:Artigo | Folhas2530 | 84Eu quero agrupar de 24 em 24:Artigo | Folhas2530 | 242530 | 242530 | 242530 | 12 (a ultima colocar o que sobra)Como ficaria fazendo isso em Access? Tentei de varias maneiras colocar em consulta mais não estou conseguindo.

Consegui da seguinte maneira: Dim A As Double Dim B As Double Dim C As Double Dim D As Double If IsNumeric(TextBox1.Value) Then A = CDbl(TextBox1.Value) Else A = 0 End If If IsNumeric(TextBox2.Value) Then B = CDbl(TextBox2.Value) Else B = 0 End If If IsNumeric(TextBox3.Value) Then C = CDbl(TextBox3.Value) Else C = 0 End If If IsNumeric(TextBox4.Value) Then D = CDbl(TextBox4.Value) Else D = 0 End If TextBox5.Value = A + B + C + D

Ele gera algum erro ou simplesmente para? Se o código for executado em VBA para salvar da para marcar a linha no VBA em vermelho (f9).ai me fala o que aconteceu.

Manda uma foto do seu projeto para imaginar aonde isso vai acontecer. Tem sim como fazer o calculo dependo do critério.

O seu valor tem virgula? Se sim tenta trocar por ponto e olha se funciona.

Resolvido então?

Não entendi também.

já tentou trocar textbox1.text para textbox1.value?

Fiz tudo em um botão só kkk acho que estou muito enferrujado kkkk Olha ai: Dim Programa As String Dim LocalPasta As String Dim cmdShell As String Dim Abrindo As String Programa = "C:\WINDOWS\explorer.exe " LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value cmdShell = Programa & LocalPasta & "\" If Dir(LocalPasta, vbDirectory) = "" Then MkDir (LocalPasta) MsgBox "Pasta criada." & Chr(10) & _ "Aperte no botão novamente.", vbInformation, "Aviso" Else Abrindo = Shell(cmdShell, vbMaximizedFocus) End If Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem. Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.

Agora fiquei boiando na sua ultima informação.

Melhor maneira ficaria: Dim LocalPasta As String LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value MkDir (LocalPasta)

Você esta certo eu tentei fazer o que tinha escrito e realmente deu erro. Dim Abrindo Abrindo = Shell("C:\WINDOWS\explorer.exe C:\" & Form_Frm_Cadastro2.ID.Value & "\", vbMaximizedFocus) para sanar a duvida de abrir a pasta eu fiz uma simulação aqui para ver se realmente estava abrindo e abriu corretamente (no meu teste) Estou colocando em anexo o arquivo Access que fiz a simulação. Obs.: Não coloquei o código de criar pasta e nem de verificar se a pasta existe. Link google drive: https://drive.google.com/open?id=1zhmIMqtF4j9bR7PTDw712Sz60UZUjhKq

Considerando que as pastas de seus clientes estão Criadas dentro "C:/" Shell "C:\WINDOWS\explorer.exe """ & "C:\" & Frm_Cadastro2!ID.value & "", vbNormalFocus

Qual o campo de seu "ID" dentro do Formulário? O nome do Campo.

O ID esta dentro do seu formulário correto? para pegar ele basta coloca (Nome do seu formulário) ! (Nome do campo aonde ID): Frm_Cadastro!ID.value nesse código.

Tente usa o seguinte comnado: MkDir (CurrentProject.Path & "\Seucliente") MkDir (CurrentProject.Path & "\Seucliente")

Esta usando SQL para pegar o dados do seu BD?

VBA orginal ou esta usando o Excel (em VBA)

já sabe usar o RowSource do listbox (propriedades do listbox)

Otimo ver pessoas se interessando. Valeu.

Boa tarde Leandro. Você usou o ".cells" para ver se estava escrito 2018 entãopode usar ele tambem para escrever na linha nova abaixo: .cells(lRow + 1, "A").value = .cells(lRow, "A").value *dentro do if abaixo do comando insert

Tentou mudar essa linha de código? Selection.EntireRow.Delete

Boa noite Rogue Junior. Não consigo imaginar esse projeto fazendo em formula pois você tem a entrada da mercadoria (compras) e saida (vendas) A melhor maneira para fazer esse trabalho seria usando "macro". Mais ai vai você tem conhecimento de macro (VBA) ou quer arriscar fazer em formulas mesmo?

Olha esse código: Isdate ( )