Boa noite caros colegas, depois de varias dicas aqui do forum criei um formulario para me ajudar no meu trabalho mas apesar de tantos artigos e codigos disponiveis aqui no forum nao consegui resolver um problema simples no meu formulario, tava com problema no campo textbox data pois tava salvando invertido, consegui resolver isso com o codigo "Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value)" contudo isso me gerou outro problema pois agora esse campo nao aceita ficar vazio e so preciso colocar a data neste campo quando no textbox anterior for INT.AUDIENCIA. caso contrario nao existe data a ser colocada e quando vou salvar os dados da a mensagem de "erro inesperado tipos incompativeis". Peco desculpas se ja tem topico especifico sobre isso mas nao consegui localizar.
Peco a gentileza de quem puder me ajudar a aprimorar o formulario, seria interessante que o campo textbox (data audiencia) fosse liberado somente se no textbox (natureza mandado) fosse digitado INT.AUDIENCIA, nao sei se da pra fazer isso diretamente ali ou se e preciso criar uma caixa de seleçao.
segue em anexo meu formulario, senha 125000
Adsumus
Neste local não é permitido postar dúvidas, por é exclusivo para a apresentação dos novos usuários do fórum.
Movi teu tópico para Formulários, que é o assunto da tua dúvida.
Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais para facilitar a localização.
[]s
Patropi - Moderador
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa noite,
Criei um condição na sub cadastromandados no lugar da linha Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value):
If CADASTRO.caixa_naturezamandado.Text = "INT.AUDIENCIA" Then
Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value)
End If
E criei também a condição de inserir a data na caixa_dataaudiencia apenas se a caixa_naturezamandado tiver digitado INT.AUDIENCIA.
Private Sub caixa_naturezamandado_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean)
If CADASTRO.caixa_naturezamandado.Text = "INT.AUDIENCIA" Then
CADASTRO.caixa_dataaudiencia.Enabled = True
End If
End Sub
E a linha CADASTRO.caixa_dataaudiencia.Enabled = False na sub Private Sub botao_novo_Click() serve para travar a caixa_dataaudiencia.
Vamos ver se funciona! Um abraço, Marcos
bom dia camarada, ficou 10 o ajuste, valeu pela ajuda, aos poucos vou apreendendo e aprimorando meus conhecimentos nessa area.