[Resolvido]condicional if com duas condições

boa noite, precisava de ajuda na criação de um if condicional com mais do que uma condição, vou passar a mostrar o código...

Código:

Private Sub bt_nova_faixa_Click()
Dim db As Database
    Dim rs As Recordset
    Dim Resposta
   
    Resposta = MsgBox("Confirma a entrada de novo registo?", vbYesNo + vbCritical + vbDefaultButton1, "Confirmação")
    If Resposta = vbYes Then
       
    Set db = CurrentDb
    Set rs = db.OpenRecordset("faixas", dbOpenDynaset)
   
    If Not IsNull((DLookup("titulo", "faixas", "titulo='" & Me.txt_titulo & "'")) & (DLookup("artista", "faixas", "artista='" & Me.txt_artista & "'"))) Then
    MsgBox "Já existe uma música com este nome", vbOKOnly + vbCritical, "Atenção"
    Exit Sub
    Else
    rs.AddNew
    Me!txt_id.SetFocus
    rs!faixa_id = Me!txt_id
    Me!txt_artista.SetFocus
    rs!artista = Me!txt_artista
    Me!txt_titulo.SetFocus
    rs!titulo = Me!txt_titulo
    Me!txt_album.SetFocus
    rs!album = Me!txt_album
    Me!txt_ano.SetFocus
    rs!ano = Me!txt_ano
   
    End If
    rs.Update
    Me!txt_artista = ""
    Me!txt_titulo = ""
    Me!txt_album = ""
    Me!txt_ano = "2011"
   
   
   
    txt_id = DMax("faixa_id", "faixa") + 1
   
    rs.Close
    db.Close
    DoCmd.Close
    Else
        Me.txt_titulo.Value = ""
        DoCmd.CancelEvent
     
    End If
End Sub

no If Not IsNull((DLookup... se deixar só a primeira condição ele funciona a 100% senão dá erro e para logo

se alguem poder ajuda

Quais seriam essas condições Amigão..
As enumere para que tenhamos mais conhecimento da tua necessidade.

Saudações

Se for para esta linha

If Not IsNull((DLookup("titulo", "faixas", "titulo='" & Me.txt_titulo & "'")) & (DLookup("artista", "faixas", "artista='" & Me.txt_artista & "'"))) Then


Aplique assim:


If Not IsNull((DLookup("titulo", "faixas", "titulo='" & Me.txt_titulo & "'")) And Not IsNull (DLookup("artista", "faixas", "artista='" & Me.txt_artista & "'"))) Then


Saudações


Caso queira analisar ou uma ou a outra... Substitua o And por Or

Boa noite,

amigo obrigado por tentar ajudar, não não resultou...

a ideia era naquele IF verificar se na tabela existe alguma entrada com aqueles campos...
neste caso é verificar se existe alguma entrada de Artista e daquela música (na mesma linha) que o utilizador está a querer inserir...para evitar repetição

não sei se me fiz entender...

Não seria viável usar duas estruturas If's e dependendo do resultado sair da sub e impedir de ir para outra?

qualquer coisa tipo isto...?

Código:

If Not IsNull(DLookup("Titulo", "faixas", "Titulo='" & Me.txt_titulo & "'")) Then
    If Not IsNull(DLookup("Artista", "faixas", "Artista='" & Me.txt_artista & "'")) Then
    MsgBox "Já existe uma música com este nome", vbOKOnly + vbCritical, "Atenção"
    Exit Sub
    Else
    rs.AddNew
    Me!txt_id.SetFocus
    rs!faixa_id = Me!txt_id
    Me!txt_artista.SetFocus
    rs!artista = Me!txt_artista
    Me!txt_titulo.SetFocus
    rs!titulo = Me!txt_titulo
    Me!txt_album.SetFocus
    rs!album = Me!txt_album
    Me!txt_ano.SetFocus
    rs!ano = Me!txt_ano
    Me!txt_genero.SetFocus
    rs!genero = Me!txt_album
    End If
    End If

eu tentei, mas não funciona, quando passa para o segundo IF dá erro.

Isso...

não funciona

Voce deves ai entao utilizar o Dcount.. e se ele retornar valor 0 encerra o sub caso contrario continua

Algo mais ou menos assim:

IF DCount("*", "[SuaTabela]", "SeuCampoTabela =" & Me!SuaCaixaTexto & " And SeuCampoTabela1 ='" & Me!SuaCaixaTexto1 & "'") = 0 Then ........



Se esta utilizando um recordset podes filtrar tabem o recordset, utilizando uma clausula WHERE na SQL que popula o recordset e aplicar um if da seguinte maneira:


SQL = ("SELECT * FROM SuaTabela WHERE ID= " & Me!SeuCampoIDForm & " and SeuCampoForm=" Me!SuaCaixaTexto ")

..Carrega o recorset e depois

If rs.Recordcount = 0 Then

.
Instrução correta;

Private Sub bt_nova_faixa_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("faixas", dbOpenDynaset)

If MsgBox("Confirma a entrada de novo registo?", vbYesNo + vbCritical + vbDefaultButton1, "Confirmação") = vbYes Then

If Not IsNull(DLookup("titulo", "faixas", "titulo='" & Me.txt_titulo & "' AND artista='" & Me.txt_artista & "'")) Then
MsgBox "Já existe uma música com este nome", vbOKOnly + vbCritical, "Atenção"
Exit Sub
Else

rs.AddNew
Me!txt_id.SetFocus
rs!faixa_id = Me!txt_id
Me!txt_artista.SetFocus
rs!artista = Me!txt_artista
Me!txt_titulo.SetFocus
rs!titulo = Me!txt_titulo
Me!txt_album.SetFocus
rs!album = Me!txt_album
Me!txt_ano.SetFocus
rs!ano = Me!txt_ano
rs.Update

End If
End If

txt_id = DMax("faixa_id", "faixa") + 1

Me!txt_artista = ""
Me!txt_titulo = ""
Me!txt_album = ""
Me!txt_ano = "2011"

rs.Close
db.Close
DoCmd.Close
End Sub

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

peço desculpa, tive uns problemas com a internet nestes dias e não consegui mesmo responder, ainda não está resolvido...
andei a pesquisar, e queria perguntar se é possível utilizar o "If Not IsNull(DLookup" com o "WHERE", de modo a verificar se existe alguma entrada na tabela com aqueles valores nos respectivos campos.

obrigado

Melhor utilizar o DCount com a clausula IF...

If DCount("*", "[SuaTabela]", SeuCampo=" & Me!CaixaTexto" And SeuCampo2=" & Me!CaixaTexto1")= O Then....

Se retornar valor 0 (Sem registro coincidente) Assume uma atitude

Else

Da prosseguimento no código

End If

O Dlookup não utiliza a cláusula Where... E sim o sinal de = para fazer a comparação

Observe o exemplo acima do mestre JP..


If Not IsNull(DLookup("titulo", "faixas", "titulo='" & Me.txt_titulo & "' AND artista='" & Me.txt_artista & "'")) Then

Aqui ele procura o Titulo na tabela Faixas quando o Título for igual a caixa texto txt_titulo

Vamos Recapitular Rui... Explique novamente o que deseja...

Qual o Form... qual o Botão do código?

Cumprimentos