none
Problema ao Salvar em UseForme RRS feed

  • Pergunta

  • 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
    sábado, 25 de junho de 2011 00:12

Respostas

  • 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
    • Marcado como Resposta zinhovba segunda-feira, 4 de julho de 2011 23:35
    segunda-feira, 4 de julho de 2011 18:25
    Moderador

Todas as Respostas

  • 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
    • Marcado como Resposta zinhovba segunda-feira, 4 de julho de 2011 23:35
    segunda-feira, 4 de julho de 2011 18:25
    Moderador
  • Boa noite!!

     

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

     

    Att.


    zinho
    segunda-feira, 4 de julho de 2011 23:35