[Resolvido]Permitir somente 1 registro no subformulário para cada registro selecionado no formulário.

Bom dia, pessoal!
Tenho a seguinte dúvida: Como faço para, que em um formulário, para cada registro selecionado seja permitido adicionar somente 1 registro no subformulário?
Obs: No subformulário, deixei o espaço para somente 1 registro, porém se eu apertar (acidentalmente ou não) o TAB ele vai para o 'novo registro'... Gostaria de bloquear este...
Muito obrigado!

E como esta o relacionamento de suas Tabelas? Se voce colocar UM para UM nao permitira salvar dois registro...
Outra coisa, nas propriedades do subFormulario, bloqueia os Botoes de Navegacao.

Private Sub Form_Open(Cancel As Integer)
Dim X As Integer
Dim rs As DAO.Recordset
X = 0
For X = 1 To 1

Set rs = CurrentDb.OpenRecordset("NomeTabela", dbOpenDynaset)
rs.AddNew
rs.Update
rs.Close
Next X
Me.Requery
Set rs = Nothing
End Sub

Obrigado FabioPaes e Lupercio.

Quanto a relação eu não consigo fazer um para um, pois o relatório necessita que ele seja um para muitos (externo)

Quanto ao código o mesmo não funcionou...

Segue um link com os arquivos e um vídeo explicando melhor a dúvida.

https://www.dropbox.com/sh/sglq1mbklfy4bdh/AACpSWn09aHD551dPCW4jXBka?dl=0

No aguardo e obrigado!

Ao abrir do seu subformulário...

Dim X As Integer
Dim rs As DAO.Recordset
X = 0
For X = 1 To 1

Set rs = CurrentDb.OpenRecordset("NomeTabela", dbOpenDynaset)
rs.AddNew
rs.Update
rs.Close
Next X
Me.Requery
Set rs = Nothing


vai aceitar só um registro

Bom dia, Lupercio!

Obrigado mas não está dando certo... Fui em Eventos >> Ao Abrir >> Código e inseri o código abaixo e testei-o (passo a passo com o uso do F8) mas não deu certo.O código roda bonitinho, mas não impede de criar novos registros...
Por favor, faça o teste no link acima.
Grato!

Dim X As Integer
Dim rs As DAO.Recordset
X = 0
For X = 1 To 1

Set rs = CurrentDb.OpenRecordset("tbl_Ordem_Compras", dbOpenDynaset)
rs.AddNew
rs.Update
rs.Close
Next X
Me.Requery
Set rs = Nothing

Bom dia....

Apenas um pitaquinho...tente assim.

Dim X As Integer
Dim rs As DAO.Recordset
X = 0
For X = 1 To 1

Set rs = CurrentDb.OpenRecordset("tbl_Ordem_Compras", dbOpenDynaset)
If X>0 then
msgbox"Mensagem de aviso qualquer.....", vbinformation, me.caption
exit sub
else
rs.AddNew
rs.Update
rs.Close
Next X
Me.Requery
Set rs = Nothing
End if


Obs: não testei o mesmo.

Um pitaco;

Teste assim, no current do subform "4_SubSubSubFormario_Ordem_Compra _OC";

Código:

Private Sub Form_Current()
Dim rs As DAO.Recordset

If Me.NewRecord Then
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Ordem_Compras WHERE RefSolicitacao=" & Forms![4_Formulario_Ordem_Compra]!Código)
     If rs.RecordCount = 0 Then
        Set rs = Nothing
        Exit Sub
     Else
      MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
      DoCmd.CancelEvent: Me![Ordem Compra].SetFocus
      Me.Requery
    End If
End If
Set rs = Nothing
End Sub


Private Sub Data_Pagamento_BeforeUpdate(Cancel As Integer)

 DoCmd.RunSQL "UPDATE qrySolicitacao SET qrySolicitacao.RefOrdemCompra = " & Me.Codigo & " " & _
             "WHERE (((qrySolicitacao.RefSolicitacao)= " & Me.RefSolicitacao & " AND qrySolicitacao.[Fornecedor Aprovado] = '" & Me.Fornecedor & "'));"
End Sub

http://dl.dropboxusercontent.com/u/771097/Banco%20de%20dados%20Compras%20vs01_be_OLD.zip

Srs, obrigado a todos pelas dicas!!

Obrigado JPaulo o seu código funcionou perfeitamente... Tão perfeito que encontrei algumas inconsistências no BD... Obrigado!!!

Resolvido!!

Fico feliz;

Obrigado pelo retorno o forum agradece.