[Resolvido]Será referencia e falta ?

Boa noite amigos
Falta referencia ?   Qual


Ou algo mais

Obrigado

Olá Assis, acho que é no código.
Falta:

Set db = CurrentDb() 'e depois altere a linha seguinte para
Set rs = dB.openrecordset(sql)

Abraço

O problema é simples.

Tem de tirar os parênteses curvos da instrução SQL

sql=(

Olá Jpaulo, bem visto.
Bom domingo
Abraço

Obrigado Teixeira

É isso mesmo.

Private Sub Ref_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Dim sql As String

sql = ("select * from Tbl_detalheOrcamento where Ref = " & Me.Ref & " and ligacao = " & [Forms]![frm_orcamento]![idOrcamento])   ' aqui vai verificar os dois campos do registo
Set rs = dB.OpenRecordset(sql)
If rs.RecordCount >= 1 Then
MsgBox " registo ja existe"
Me.Undo
Else
'Deixa inserir registo
End If
End Sub

Queria não deixar repetir a mesma Ref no mesmo orçamento. Exemplo

Se no Orçamento com IDOrcamento Nº 1,

Com um subformulário ligado por um campo chamado "Ligacao"

Já tiver registado a Ref 101

Não deixar voltar a repetir

O Campo Ref é texto.

Obrigado

Bom dia Assis,
Estou no telemóvel, já vou a indicação da mensagem n.3?

Compreendi o que pretende fazer, o que está a falhar, quando, onde, em que linha?
Talvez seja melhor postar bd com objectos envolvidos para se testar.
Abraço

Grande Assis

Como é que isso pode funcionar assim como está?

Teixeira, e JPaulo
Fica o meu BD

Obrigado

Ola Assis,
Coloque assim:

Código:

Private Sub Ref_BeforeUpdate(Cancel As Integer)
    If Not IsNull(DLookup("[Ref]", "Tbl_detalheOrcamento", "[Ref] = '" & Me.Ref & "' And id_ligacao = " & Forms!frm_orcamento!idOrcamento & "")) Then
        MsgBox "Ref Já Registada neste Orçamento", vbInformation, "Aviso"
        Me.Undo
    End If
End Sub

Abraco

Bom dia Teixeira

Obrigado e boa semana .

Olá Assis,
Obrigado pelo retorno!

Amigo está na hora de usar Indentação  
Veja a mensagem nº 3 do tópico abaixo:
https://www.maximoaccess.com/t23803-calendario

Abraço