Interpretando Aspas e Apostrofos

[Gil Kléber]

Oi pessoal.. estou tentando adaptar um código pra evitar registros duplicados, mas acho que estou errando em algum lugar...

Set Rst = CurrentDb.OpenRecordset("SELECT Numgeral From tblCentral WHERE Numgeral='" & strCli & "' ")

podem me dizer pra que servem as " aspas e os ' apóstrofos?

[MrMALJ]

Se o tipo de dados for uma String não precisaria das aspas.

Set Rst = CurrentDb.OpenRecordset("SELECT Numgeral From tblCentral WHERE Numgeral=" & strCli)

OK!?

[Gil Kléber]

Opa! então, esse código, eu peguei de um exemplo. Ele evita que sejam cadastrados 2 vezes o mesmo cliente. Vou colar o código inteiro.:

Dim Rst As Recordset, strCli As String

Dim strIdade As String, strCep As String

strCli = Me.nome

strIdade = Me.idade

strCep = Me.cep

'Abre o recordset do tipo Table.

Set Rst = CurrentDb.OpenRecordset("SELECT nome, idade, cep From tbl_geral WHERE nome='" & strCli & "' AND Idade=" & strIdade & " AND CEP='" & strCep & "' ")

If Not Rst.EOF Then

MsgBox "Registro cadastrado na tabela! Preencha os dados novamente.", vbCritical, "Registro..."

Cancel = True

Me.Undo

'Else

'MsgBox "Registro não encontrado"

End If

Set Rst = Nothing

Só que esse código, ele verifica em 3 campos ao mesmo tempo. Eu quero que ele verifique apenas o campo NUMGERAL (número). Ele não é chave primaria, porque eu tenho minha propria chave primaria (idCentral), mas eu uso esse campo pra me relacionar com outro (Numgeral é chave primária em outro). Resumindo a situação: Verificar na tabela "tblCentral", se já tem um registro com o campo "Numgeral". Isso tudo no evento "Ao Atualizar" da caixa de listagem "ComboProcurar".

É isso meu amigo.. espero que possa me ajudar!

Abraços!

(abaixo como eu tentei fazer, mas como não consigo entender direito as "aspas" e os 'Apostrofo...)

Dim Rst As Recordset, strCli As Integer

strCli = Me.Numgeral

'Abre o recordset do tipo Table.

Set Rst = CurrentDb.OpenRecordset("SELECT Numgeral From tblCentral WHERE Numgeral='" & strCli & "' ")

If Not Rst.EOF Then

MsgBox "Registro cadastrado na tabela! Preencha os dados novamente.", vbCritical, "Registro..."

Cancel = True

Me.Undo

Else

' Encontrar o registro que coincide com o controle.

End If

Set Rst = Nothing