1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VBA

Discussão em 'Programação' iniciada por Tauri, 14 de Junho de 2007. (Respostas: 3; Visualizações: 578)

  1. Tauri

    Tauri Power Member

    Eu meti um IF que me da a opção de guardar ou não (vbYESNO), com uma msgbox a perguntar "Quer Gravar os Registos Inseridos???"

    Mas agora quer eu clice no YES quer no NO faz a mesma coisa.

    Não sabem que codigo e que eu posso meter para quando eu clicar no YES, gravar e quando clicar no NO não gravar.

    Obrigado.
     
  2. Eloy!
    Eu não me lembro dos códigos de resposta, mas supostamente ao fazeres:
    resposta="Quer Gravar os Registos Inseridos???";
    if(resposta==vbYes) then
    ...
    else if(resposta==vbNo) then
    ...

    Devia dar!
    Faz o seguinte para saberes o código, uma message box com o resultado escolhido, assim já sabes.:)
    Hasta!
     
  3. K0mA

    K0mA Power Member

    Mais correctamente é assim:

    Código:
    resposta = MsgBox("Pergunta", vbYesNo + vbQuestion, "titulo")
    
    If resposta = vbYes Then
    
    ElseIf resposta = vbNo Then
    
    End If
    
     
  4. Tauri

    Tauri Power Member

    Eu quero que o access nao grave automaticamente, so quando carrego no botão (com as escolhas de YES ou NO)

    Eu tenho este codigo, não sei se vai ajudar muito.

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Not txtallowsave Then
    Cancel = True
    txtallowsave = False
    DoCmd.CancelEvent
    Exit Sub
    End If
    txtallowsave = False
    End Sub

    Esta dividido, tenho mais este.

    Private Sub Form_CommandBeforeExecute(ByVal Command As Variant, ByVal Cancel As Object)
    Dim Resposta As Integer
    Dim Pergunta As String

    Pergunta = "Quer Gravar o que Inserio?"

    Resposta = MsgBox("Quer Gravar o que Inserio?", vbYesNo)

    If Resposta = vbYes Then
    Cancel.Value = True
    Else
    Cancel.Value = False
    End If
    End Sub

    Se me conseguirem ajudar......

    Obrigado.
     

Partilhar esta Página