[Resolvido]cod salvar no botão

Boa noite todos,estou usando este cod no botão salvar :
If IsNull(Me.Nome) Then
Me.Nome.SetFocus
MsgBox "Informe o Nome do Cliente."
End If
If MsgBox("O registro será incluído. Deseja salvar?", vbYesNo, "") = vbNo Then
Me.Undo
Exit Sub
Else
DoCmd.Close acForm, "formCliente", acSaveYes

,porem ao clicar em não na mensbox ele pergunta se desejo salvar ,clico em não ai ele sempre cria um nova id ,ao digitar um novo nome ,como fazer para ao clicar em não ele retorne a id inicial .
obrigado

Vou tentar...

Dim Msg as String
If IsNull(Me.Nome) Then
 Me.Nome.SetFocus
 MsgBox "Informe o Nome do Cliente."
End If
Msg = MsgBox("O registro será incluído. Deseja salvar?", vbYesNo + VnQuestion, "SALVAR?")
Select Case Msg
    Case VbNo
       DoCmd.Close acForm, "formCliente", acSaveYes
       Exit Sub
    Case VbYes
       Me.Undo
 End Select

Obs.: Digitei aqui mesmo. Não testei.


Cumprimentos.

Boa noite ,Piloto ,ao clicar no botão salvar ,da :

Erro de compilação
Variável não definida

Private Sub bt_salvar_Click()
 Dim Msg As String
If IsNull(Me.Nome) Then
Me.Nome.SetFocus
MsgBox "Informe o Nome do Cliente."
End If
Msg = MsgBox("O registro será incluído. Deseja salvar?", vbYesNo + VnQuestion, "SALVAR?")
Select Case Msg
   Case vbNo
      DoCmd.Close acForm, "formCliente", acSaveYes
      Exit Sub
   Case vbYes
      Me.Undo
End Select
End If
End Sub

Como eu disse.. não testei.. digitei no hora.. porque hoje estou dentro os únicos loops que estou executando são os 360 graus que desce redondo...
hehehe..

Adivinhou qual loop estou falando? hehehe

Você vai me responde o porque deu variável não definida...

Observe atentamente toda a linha e tenta descobrir o erro,,,, Olhe... observe.. que vais descobrir,,,, Tenho certeza...

Em não conseguindo.. retorne que dou-te um puxão de orelhas que já estás acostumados a receber de mim... mesmo depois ficando bravo comigo.. rsrs
Mas dou mesmo assim... Porém sempre lhe ensino Amigão!.

heheheh

Inté.

Consegui o que deseja,com esse cod :

Private Sub bt_salvar_Click()
If IsNull(Me.Nome) Then
Me.Nome.SetFocus
MsgBox "Informe o Nome do Cliente."
End If
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("O registro será incluído. Deseja salvar?", vbYesNo, "") = vbNo Then
Me.Undo
Exit Sub
Else
DoCmd.Close acForm, "formCliente", acSaveYes
End If
DoCmd.Close
DoCmd.OpenForm "formcliente"
End Sub

Está VnQuestion... o correto é VbQuestion



O Fórum agradece o retorno.