Abrir Formulário em um Novo Registo ou em Editar Registo

Boa noite.
Estou com um problema e precisava de ajuda...

A situação é a seguinte:
Tenho um Form Inicial (em tabela), em que dou valores aos atributos, do qual um dos atributos ao ser seleccionado um valor(numa CaixaCombinação) abre um SubForm, onde tenho mais atributos para preencher sobre o Registo que estou a mexer.

- O que define um registo é o atributo CODIGO_INVENTARIO
- O Form Inicial e o SubForm estão ligados a tabelas de dados diferentes
- Tenho uma variável Publica (CodI) que me passa o CODIGO_INVENTARIO, quando abro o SubForm
- O código que tenho para abrir o SubForm é:

DoCmd.OpenForm stDocName, , , stLinkCriteria
'stDocName é o nome do SubForm

- Tenho este código no SubForm que ao abrir Cria um Novo Registo com o CODIGO_INVENTARIO passado pela variável Publica (CodI)

Private Sub Form_Open(Cancel As Integer)
'Abrir formulario em um novo registro
DoCmd.GoToRecord , , acNewRec

Me!CODIGO_INVENTARIO = CodI
End Sub

Até aqui tudo bem!
>> Agora o meu problema é se ao mexer num Registo no Form Inicial e que já tenho sido criado um Registo no SubForm para ele, dá barraca porque neste caso eu queria era poder Editar e não criar um novo registo, até porque não posso repetir o CODIGO_INVENTARIO.

Não sei se fui bem explicito no meu problema. Agradeço desde já qualquer resposta.

Olá Hélio,

Se você não quer criar um novo registo no Subform, porque faz uso deste código?

Private Sub Form_Open(Cancel As Integer)
'Abrir formulario em um novo registro
DoCmd.GoToRecord , , acNewRec

Me!CODIGO_INVENTARIO = CodI
End Sub

O objectivo é que estou no form num certo registo, depois quando carrega numa combox para selecionar o tipo desse registo ele abre um subform para inserir dados correspondentes a esse tipo e guardo-os

O que queria fazer era depois se carregar outra vez nesse mesmo tipo, ele abri-se o mesmo subform com os dados que já inseri correspondentes a esse registo e nao abri-se um novo...

Fiz me entender?

Como posso fazer isso?

Olá Helio,

Posta o bd para eu tentar entender o que você quer.

A questão é no F_Achados, na categoria_ACH onde se escolhe Adorno, ele abre um sub form para inserir dados corresponde te a esse codigo e guardo na tabela, ate ai tudo ok.
Continua a preencher no F_Achados, mas se por acaso quizesse ir outra vez no subform "F_Adorno" ao carregar outra vez vez na combox Adorno, ele abrir o subform com os dados que inseri correspondente a esse codigo...

Alguma duvida, pergunte

Obrigado

Olá Helio,

Não tenho a biblioteca:
Microsoft ActiveX Data Objects 6.1 Library

Como não consegui baixar da internet vou ver se acho em algum cd pelo meu computador doméstico.

Ok...
Mas percebeu o que eu quero fazer e não estou a conseguir?

Olá Helio,

O código está errado aqui:

ERRADO:
If (Me!CATEGORIA_ACH.Value = "ADORNO") Then
CodI = Me!CODIGO_INVENTARIO
'Me.Requery
CERTO:
If Me.CaixaCombinação_CategoriaACH.Column(0) = "ADORNO" Then
CodI = Me!CODIGO_INVENTARIO

Existem outras referencias erradas semelhantes em seu código.
Obs: Procure simplificar e evitar os sinais gráficos nos nomes de suas combos e de seus campos.

Alterei como disse...
Mas ele continua a criar um novo e a não ir buscar aquele já preenchido com os dados que inseri!?

Olá Helio,


Apenas chequei algumas linhas de código, mas como disse estou sem a biblioteca necessária para testar os eventos e entender melhor o seu problema. Aguarde um pouco até que eu possa fazer uso da biblioteca necessária.

Ok, obrigado

Fico há espera de resposta...

Obrigado

Olá Helio,

Use a função DLast para buscar o último codigo indexador e a partir dele buscar o último registro através de uma string SQL com a propriedade recordsource.


Exemplo:

Dim strSQL As String
Dim sUltimo As Integer
sUltimo = Dlast("SeuCodigo","SuaTabela")
strSQL = "SELECT * FROM SuaTabela WHERE SeuCodigo = " & sUltimo
me.Recordsource = strSQL

Testando:

No formulário F_Adornos:
Private Sub Form_Load()

On Error GoTo fim

Dim strSQL As String
Dim sUltimo As Integer
sUltimo = DLast("CODIGO_INVENTARIO", "T_Adornos")
strSQL = CStr("SELECT * FROM T_Adornos WHERE [CODIGO_INVENTARIO] = " & sUltimo)
Me.RecordSource = strSQL
fim:
Exit Sub

No formulário F_Achados:

Private Sub CaixaCombinação_CategoriaACH_AfterUpdate()

On Error GoTo Err_cc_Categoria_Click

Dim stDocName As String
Dim stLinkCriteria As String

'stDocName = "F_Adornos"
'DoCmd.OpenForm stDocName, , , stLinkCriteria

If (Me!CaixaCombinação_CategoriaACH.Column(0) = "ADORNO") Then

'Me.Requery

If Me!CaixaCombinação_CategoriaACH.Column(0) <> CatAch Then

'Mostra mensagem com opção: (Sim / Não)
msgconfirmacao = MsgBox("Deseja mesmo Mudar a Categoria??", vbYesNo + 32, "Perda de Dados!")
'Se carregar no botão "sim"
If msgconfirmacao = vbYes Then

'apaga os registos
'CurrentDb.Execute ("DELETE * FROM T_Adornos WHERE CODIGO_INVENTARIO like '" + CodI + "'") 'Porque você deleta os dados dessa tabela?
CurrentDb.Execute ("DELETE * FROM T_Ceramicas WHERE CODIGO_INVENTARIO like '" + CodI + "'")
'Mensagem de Informação
'MsgBox ("Dados foram apagados!!"), 64, "Informação!"

stDocName = "F_Adornos"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else:
Me!CATEGORIA_ACH = CatAch
CaixaCombinação_CategoriaACH.Value = CatAch
End If
Else:
End If

.......................................
End Sub

Hum...e está a dizer para eu meter isso em que parte do código?

Eu apago os dados dessa tabela, pois se já tiver introduzido dados referente ha categoria "Adorno" daquele respectivo codigo, mas ver que me enganei e mudar a categoria, tenho que apagar os dados da categoria "Adorno" daquele codigo para voltar a inserir...

Senao ia ter dados de duas categorias, para o mesmo codigo e nao pode ser...

Não estou a conseguir implementar!?

Continua a nao abrir o subform com os dados referentes aquele codigo que esta seleccionado?

Voce ai conseguiu implementar?