Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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

Walter
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Jun 07, 2017 1:01 pm

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

Mensagem 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem 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


Walter
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Jun 07, 2017 1:01 pm

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

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder