[Resolvido]LISTBOX mostrar cadastrados

ola !

Tudo bem meu queridos?

Então eu andei pesquisando mta coisa aqui, gostaria de ver como posso colocar um listbox com os cadastro do formulário que acabou de fazer, ou seja,um em baixo do outro.

SELECT * FROM BANCODEDADOSCENTRAL WHERE COD PASTA IN (SELECT Max(COD PASTA) FROM BANCODEDADOSCENTRAL);

Olá, não será a origem dos dados.
Já efetuou uma "busca" aqui no fórum.
Veja tópico abaixo se ajuda:
https://www.maximoaccess.com/t17374-resolvidorowsource-em-caixa-de-combinacao
Abraço

Amigao !

na verdade, nao me atende esse link !


A ideia e somente mostrar no listbox os cadastros que acabei de inserir na tabela, mas somente o que eu acabei de cadastrar.

abraços

Olá, que tal ter um marcador que é novo.
Sei que também é possível alimentar à "unha" à medida que vai acrescentando.
Mas eu pessoalmente não ia por aí.
Abraço

o que sugere ?

para minha ideia ?

pode pelo menos me dar o caminho das pedras ?

Olá a todos,
Excelente técnica Avelino Sampaio, gosto da simplicidade.
Abraço

irei testar e darei respaldo com a confirmação ! obg

Avelino ou alguem pode me dar o caminho de como seguir o tutorial ?

abraços

Olá, não sei se tem um botão para salvar o registo novo.
Pode ser aí.
Caso nao consiga, poste a base de dados com o formulario em questão funcional, assim fica mais fácil para qualquer membro poder ajudar.
Abraço a todos

pior que não consigo por o bd... como poderia upar ele no comentário sem plataformas de download.

Código:

Os seguintes erros foram encontrados
O arquivo adicionado não é valido: nome do arquivo incorreto.

tentei upar pelo anexo mas nao da !


quem tiver email eu envio !

Olá a todos,
Nathan, deve ser compactado no formato ZIP.
Veja como fazer:
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

Tem o limite de 4,98 Mb, se for maior, deve colocar na Dropbox,OneDrive, GoogleDrive, Mega, ou outro e postar o link para se baixar.
Nota ao colocar o link deve retirar o h t t p : / /
Pois no fórum não é permitido links externos.
Abraço

Meus queridos desculpa a demora!

esta na guerra com a extensões do sistema kkkk


segue o bd.


abraços

Bom dia !

Alguem ?

abraços

Maguim, boa tarde!

Fiz uma tentativa! Veja se com isto você consegue ter uma idéia de como melhorar para sua necessidade.

Obs.:
Como informou que desejava os cadastros que haviam acabado de ser feitos, no evento de carregar o form busco os registros baseado na data de cadastro;
Ao invés de usar macro, criei uma rotina (sub) que é chamada e se possuir ids cadastrados vai buscar exatamente aqueles ids, caso contrário seleciona os registros cadastrados no dia;
Mudei o nome do campo Data na tabela para Dt, pois estava gerando conflito com função interna do Access (Date/Data);

philipe meu querido o listbox esta ficando em branco.

apertei f5 para ver se aparecia o dado e poder remendar algo do tipo porem aparece
"tipo de dados  incompatível na expressão de critério"

se eu fecho e abro o formulario ele aparece todos os dados.


abraços

a ideia é aparecer comente o que cadastrei no exato momento.

MEUUUUUUUUUU QUERIDOOOO !


arrumei o que tava dando bug !

Código:

DoCmd.GoToRecord , , acNewRec
        Lista15.Requery

o certo é chamar a variavel que vc criou para carregar a listbox assim que formulario for aberto !

CarregaListBoxCadastros (Nz(Me!COD, ""))




obrigado !

segue o codigo para estudos  !!!!

bons estudos !!!!

Código:

Public idCadastradosHoje As String

Private Sub Comando1_Click()
   If IsNull(Me.COD) Or Me.COD = "" Then
       MsgBox ("Os campos RAZÃO SOCIAL, REDE CREDENCIADA ou DATA PRESTADOR devem ser preenchidos !"), vbCritical, Me.Caption
   Else
       Dim strCODPASTA, strBASE, strPRIORIDADE, strINDICAÇÃO_ADEQUAÇÃO, strPROJETO, strDATA, strPRESTADORINDICADO, strCLIENTE, strESTIPULANTE, strSUB_ESTIPULANTE, strCNPJ_PRESTADOR, strESPECIALIDADE, strCIDADE, strUF, strDDD, strTELEFONE, strSTATUS, strMOTIVODOSTATUS, strDATADOULTIMOSTATUS, strCODIGOPRESTADOR, strCANALDEENTRADA, strANALISTA As String
       Dim strSQL As String
       
       strstrcodPasta = Forms!CADASTROBD!COD
       strBASE = Forms!CADASTROBD!BAS
       strPRIORIDADE = Forms!CADASTROBD!PRIOR
       strINDICAÇÃO_ADEQUAÇÃO = Forms!CADASTROBD!INDIC
       strPROJETO = Forms!CADASTROBD!PROJ
       strDATA = Forms!CADASTROBD!DT
       strPRESTADORINDICADO = Forms!CADASTROBD!NOMEPRES
       strESPECIALIDADE = Forms!CADASTROBD!ESP
       strCODIGOPRESTADOR = Forms!CADASTROBD!CODPREST
       strCNPJ_PRESTADOR = Forms!CADASTROBD!CNPJ
       strCIDADE = Forms!CADASTROBD!CIDAD
       strUF = Forms!CADASTROBD!EST
       strDDD = Forms!CADASTROBD!DDD
       strTELEFONE = Forms!CADASTROBD!TEL
       strCLIENTE = Forms!CADASTROBD!CLIEN
       strESTIPULANTE = Forms!CADASTROBD!ESTIP
       strSUB_ESTIPULANTE = Forms!CADASTROBD!SUBESTIP
       strSTATUS = Forms!CADASTROBD!STAT
       strMOTIVODOSTATUS = Forms!CADASTROBD!MOTIV
       strDATADOULTIMOSTATUS = Forms!CADASTROBD!DTSTAT
       strCANALDEENTRADA = Forms!CADASTROBD!CANALENT
       
       strSQL = "INSERT INTO BANCODEDADOSCENTRAL (CODPASTA,BASE,PRIORIDADE,INDICAÇÃO_ADEQUAÇÃO,PROJETO,DT,PRESTADORINDICADO,CLIENTE,ESTIPULANTE,SUB_ESTIPULANTE,CNPJ_PRESTADOR,ESPECIALIDADE,CIDADE,UF,DDD,TELEFONE,STATUS,MOTIVODOSTATUS,DATADOULTIMOSTATUS,CODIGOPRESTADOR,CANALDEENTRADA) VALUES('" & strstrcodPasta & "','" & strBASE & "','" & strPRIORIDADE & "','" & strINDICAÇÃO_ADEQUAÇÃO & "','" & strPROJETO & "','" & strDATA & "','" & strPRESTADORINDICADO & "','" & strCLIENTE & "','" & strESTIPULANTE & "','" & strSUB_ESTIPULANTE & "','" & strCNPJ_PRESTADOR & "','" & strESPECIALIDADE & "','" & strCIDADE & "','" & strUF & "','" & strDDD & "','" & strTELEFONE & "','" & strSTATUS & "','" & strMOTIVODOSTATUS & "','" & strDATADOULTIMOSTATUS & "','" & strCODIGOPRESTADOR & "','" & strCANALDEENTRADA & "')"
       CurrentDb.Execute strSQL
       
       MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "INFORMAÇÃO"
       
       idCadastradosHoje = idCadastradosHoje & strstrcodPasta
       CarregaListBoxCadastros (idCadastradosHoje)
       
       'limpa dados no formulário
       Me.COD = ""
       Me.BAS = ""
       Me.PRIOR = ""
       Me.INDIC = ""
       Me.PROJ = ""
       Me.NOMEPRES = ""
       Me.ESP = ""
       Me.CODPREST = ""
       Me.CNPJ = ""
       Me.CIDAD = ""
       Me.EST = ""
       Me.DDD = ""
       Me.TEL = ""
       Me.CLIEN = ""
       Me.ESTIP = ""
       Me.SUBESTIP = ""
       Me.STAT = ""
       Me.MOTIV = ""
       Me.DTSTAT = ""
       Me.CANALENT = ""
       
      CarregaListBoxCadastros (Nz(Me!COD, ""))
 
   End If
End Sub

Private Sub Form_Load()
   CarregaListBoxCadastros (Nz(Me!COD, ""))
   
End Sub

Sub CarregaListBoxCadastros(ByVal strIds As String)

   If strIds <> "" Then
       Me.Lista15.RowSource = "SELECT * FROM BANCODEDADOSCENTRAL WHERE CODPASTA IN (" & idCadastradosHoje & ");"
       
   Else
       Me.Lista15.RowSource = "SELECT * FROM BANCODEDADOSCENTRAL WHERE " & Format(DT, "dd/mm/yyyy") & " = " & Format(Now, "dd/mm/yyyy") & " ;"
   
   End If

End Sub

De qualquer forma refiz conforme segue.