Problema ao Salvar em UseForme

Question

Boa noite!

Tenho 2 Botões de Opção (OpEntrada e OpSaida),mas nenhum dos Txt's (material, entrada, saida), e ListBox (ListaInsumo), pode ficar em branco e nem os Botões de opção pode ficar sem flegar.....caso o usuario tente salvar sem esses preenchimentos que receba uma mensagem.

Acontece que está dando erro..porque?

Baixe a planilha por favor!

http://www.4shared.com/document/HQzTnJLP/CONTROLE_DE_INSUMOS_2011.html

 

Private Sub Salvar_Click()

    If OpEntrada.Value And OpSaida.Value = False Then

    MsgBox "Falta Preencher a OPeração Entrada ou Saísa!", vbInformation, "Campos Obrigatórios"

  Exit Sub

End If

 

     Dim iRow_1 As Long

Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("Insumo")

iRow_1 = ws_1.Cells(Rows.Count, 2) _

 .End(xlUp).Offset(1, 0).Row

ws_1.Cells(iRow_1, 1).Value = Material.Value

ws_1.Cells(iRow_1, 2).Value = ListaInsumos.Value

ws_1.Cells(iRow_1, 3).Value = entrada.Value

ws_1.Cells(iRow_1, 4).Value = saida.Value

ws_1.Cells(iRow_1, 5).Value = data.Value

Call Limpar

Call DesabilitarBotaoOpcao

Call HabilitarBotaoOpcao

 

End Sub

Obrigado!!!!!!!!!!!!

 

Att...

---

zinho

Answer 1

Olá,

acho que você tentou fazer isto:

 If OpEntrada.Value = False And OpSaida.Value = False Then

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br

Answer 2

Boa noite!!

 

Obrigado!!....Luiz, problema resolvido.

 

Att.

---

zinho