[Resolvido]Problemas no subformulário

Boa noite amigos. Fiquei um tempo ausente, mas estou de volta! Fiquei feliz em ter visto que meu nível aumentou!!! Rsrsrsrsrs

Mas vamos para minha dúvida:

Tenho um subformulário no meu formulário. Este subformulário ficam guardados as informações referentes a data de entrada e saída dos processos. Tenho como chave primário o Campo "´Processo" que também é o campo de relacionamento com a tabela principal (Cadastro de Processo). O problema é que quando digito uma data e sem querer altero, não consigo fazer voltar a informação inicial. Não posso bloquear esse campo para edição após atualizado, porque depois não consigo acrescentar mais informações no campo. Será que fui clara?

Gostaria que me ajudassem da seguinte forma: ou uma caixa de mesnagem perguntando se eu confirmo a alteração. Caso sim a indormação é salva. Caso não, volta a informação anterior. Ou um outro modo onde aceito ideias.

Att

Falei uma coisa errada: não tem chave primária no meu subformulário.

Boa Noite

talvez algo assim

Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
Me.Nomedocampo.Undo
End If

Vieira, o problema é que no subformulário só tenho disponível dois eventos: ao entrar e ao sair. Em qual coloco?

Vieira, coloquei assim:

Dim strMsg As String
strMsg = "Foram efetuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
Me.[Data de Entrada].Undo
Me.[Hora da Entrada].Undo
Me.[Data de Saída].Undo
Me.[Hora de Saída].Undo



End If

End Sub

Foi para o depurador

Dim strMsg As String
strMsg = "Foram efetuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
Me.Data de Entrada=""
Me.Hora da Entrada=""
Me.Data de Saída=""
Me.Hora de Saída=""
End If
End Sub


Atenção: O Access não gosta de nomes espaçados (Data de Entrada e outros iguais), isto pode dar erro.

O ideal é usar assim: DataEntrada

Quando eu coloco para não salvar continua indo para o depurador.

Só aprendi sobre os nomes espaçados depois que entrei para o forum, mas tenho colocado o nome entre colchetes como Criquo me ensinou e tem dado certo.

Então coloque entre colchetes. É uma forma de evitar isso, mas o certo mesmo é evitar nomes espaçados

Já coloquei entre colchetes:


Dim strMsg As String
strMsg = "Foram efetuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
Me.[Data de Entrada] = ""
Me.[Hora da Entrada] = ""
Me.[Data de Saída] = ""
Me.[Hora de Saída] = ""
End If
End Sub

Luciana

Isso deve estar dando erro porque você não está inserindo o código no local certo. Quando disse ao sair, pensei que estava a falar ao fechar o form, nunca me passou pela cabeça que estivesse a colocar o código no local errado.

O sub formulário, é um formulário com todas as propriedades de qualquer outro formulário. Ora clique sobre o sub form no canto superior esquerdo e veja as propriedades

Vieira,

Eu tenho no evento antes de atualizar o formulário o seguinte código:

On Error Resume Next
If Me.Dirty Then
If MsgBox("O Registo foi alterado ou incluído. Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Me.Undo
DoCmd.CancelEvent
End If
End If
End Sub


Sendo que esse código não está adiantando para o subformulário. Quando o foco sai do formulário e passa para o sub a mensagem acima é exibida. Sendo que se eu alterar o sub e fechar o formulário (que contem o sub) as alterações feitas no sub são feitas mesmo eu não salvando.

Coloque no evento ao perder foco do último campo do sub formulário. Aí a mensagem salta e limpa os campos caso não queira gravar

Vieira, desculpe a dificuldade, mas ainda ta indo para o depurador.

Ficou assim:

Private Sub Hora_da_Saída_LostFocus()
Dim strMsg As String
strMsg = "Foram efetuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
Else
Me.[Data de Entrada] = ""
Me.[Hora da Entrada] = ""
Me.[Data de Saída] = ""
Me.[Hora de Saída] = ""
End If
End Sub

Veja o exemplo que criei

coloquei no evento lost focus do campo horas do sub form o código. Chama a caixa, digo que não quero gravar e limpa o campo dataentrada

http://dl.dropbox.com/u/8157744/C%C3%B3pia%20de%20cep1.zip

Vieira, desculpa mas uma vez, mas continua dando errado. Posso pastar aqui para vc dar uma olhada?

Certo, pode até enviar para o meu email se não der para colocar aqui. Agora dado o adiantado da hora só vou ver isso amanhã.

Qual seu email?

Ói Luciana, está no meu perfil (rsrsrs)

sergiovieirasoft@gmail.com

Estou enviando.

Recebido. Fique tranquila que vou ver.

Pois é minha amiga, vou-lhe puxar as orelhas (rsrsrss)

1- 2 End's Sub's quando só deve ter um

2- Falta de um colchete

3- Data de Saida e não data da saida como estão os outros campos

Aí vai de volta

http://dl.dropbox.com/u/8157744/Controle%20Interno%20%282%29.rar

Vieira, sou mesmo um pouco desligada. Vou tentar ter mais atenção.

Baixei o arquivo, sendo que ainda pelo que percebi continua dando o mesmo erro: quando altero os dados do subformulário e digo para não salvar, ele salva do mesmo jeito.

Luciana

Corrigi e experimentei aqui. Preenchi tudo de novo, ao sair do campo "Hora da Saida" a caixa pergunta se quero gravar, eu digo que não e todos os campos são limpos, ficam em branco , logo não grava nada no sub formulário. Não pode fazer uma coisa aqui e outra aí! Atenção que a BD foi reenviada com o mesmo nome. Renomeou a anterior ou esta, não estará a fazer confusão?

Os Erros que enviava para depuração eram:

1- tinha um End Sub a mais, um colchete a menos e a troca do de pelo da

Ainda agora testei de novo e funciona a 100% ...No sub formulário, foi o que pediu...ou era para ver o formulário também????

Só para pitacar um pouquinho: se os campos ficam em branco no subform, sendo ele vinculado, eles não ficariam em branco na tabela tambem? Não seria o caso de se criar uma forma de, ao invés de limpar os campos, colocar os dados anteriores de volta?

Mas se não quer gravar os dados, brother, não estou a ver como queres fazer isso?

Luciana

Você está querendo eliminar dados já cadastrados anteriormente, ou na altura em que os digita no form?

Luciana

Como não retornou até agora vamos fechar o tópico. Qualquer coisa estamos aí.