Página 1 de 1

Como atribuir valores a VARIÁVEIS com dados de uma tabela?

Enviado: Qua Jun 07, 2017 1:07 pm
por Walter
Bom dia.

Gostaria que me ajudassem com o código abaixo:
Pretendo buscar em uma tabela a Data de Nascimento (DataNasc) e popular a Variável "DataNas"

O código abaixo dá erro! "Era esperado: )" na primeira vírgula.


Dim DataNas As Date
DataNas = ("DataNasc", "Tbl_MembrosDaFamilia", "#" & forms!Fm_CalculaRiscoCV_EntrarDados!CódigoMembrosFamilia & "#")

Como se faz isso? A sintaxe do código acima está correta?

Obrigado.

Re: Como atribuir valores a VARIÁVEIS com dados de uma tabela?

Enviado: Qua Jun 07, 2017 3:11 pm
por Reinaldo
Você precisa ser um pouco mais explicito em sua demanda.
Ao definir a variável DataNas como data, a mesma aceita apenas valor Data.
Assim a sintaxe poderá ser: DataNas=forms!Fm_CalculaRiscoCV_EntrarDados!CódigoMembrosFamilia.text

Re: Como atribuir valores a VARIÁVEIS com dados de uma tabela?

Enviado: Qua Jun 07, 2017 6:29 pm
por Walter
Boa noite, Reinaldo.
Obrigado pela ajuda.
Vou explicar mais detalhadamente o que estou pretendendo...
Na minha tabela "Tbl_MembrosDaFamilia" tenho, entre outros, os campos "CódigoMembrosFamilia" que é a chave primária, o campo "NomeMembroFamilia" e o campo "DataNasc".

Estou querendo "pegar" a data de nascimento da pessoa e coloca-la na MsgBox.
Para isso criei a Variável "DataNas", mas não estou sabendo defini-la....
Veja o código completo abaixo: acho que o erro está na linha 7(sete).

Private Sub txtconsulta_BeforeUpdate(Cancel As Integer)
Dim Busca As String ' Cria a variável "Busca" tipo String
Dim stLinkCriteria As String ' Cria a variável "stLinkCriteria" tipo String
Dim DataNas As Date ' Cria a variável "DataNas" do tipo Data
Busca = Me.txtconsulta.Value 'Define a variável "Busca" como o mesmmo valor que está no campo txtconsulta
stLinkCriteria = "NomeMembroFamilia= '" & Busca & "'" 'Define a variável "stLinkCriteria"
DataNas = Table.Tbl_MembrosDaFamilia.DataNasc.Value
If DCount("NomeMembroFamilia", "Tbl_MembrosDaFamilia", stLinkCriteria) > 0 Then 'Se na Tabela existe o nome....
Me.Undo ' Se existe, cancela o que foi digitado
Cancel = True
MsgBox "Atenção!" & vbCr & vbCr & "O Paciente " & Busca & "Data de Nascimento: " & DataNas & " , já está cadastrado." & vbCr & vbCr & vbCr & vbCr & "Clique em 'Retornar' ou cadastre um Novo Paciente.", vbInformation, "Duplicado"
End If