Jump to content
Fórum Script Brasil

Marcia Torquato

Membros
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Marcia Torquato

  1. MrMALJ Bom dia! Deu para resolver. Agora até mesmo se você colocar uma informação mais tarde ele já esta programado para preencher todos os dados alterados. Exemplo, você não sabe o CEP para não travar o processo deixará o campo para depois e continuará com as outras informações. Quando souber o CEP no formRuas ao colocar o número do CEP automaticamente na Rua daquele CEP no formDados será preenchido automaticamente. Segue a solução:(Caixa de combinação do FormDados em Após atualizar) Option Compare Database Private Sub ExibirDados() If IsNull(Me.CódigoRua.Value) Or Not IsNumeric(Me.C
  2. MrMALJ Perdão. Bem o que ocorreu foi o seguinte. Tenho duas tabelas, uma de dados onde tenho, nome completo, idade , fone...Endereço. E outra tabela de cadastro de ruas, onde tenho CEP, setor, Rua,Responsável. No formulário Dados cadastrais criei uma caixa de combinação de ruas, baseado na tabela ruas, ou seja quando o usuário começar a cadatrar uma nova pessoa e chegar na caixa de combinação, escolherá a Rua em que o morador esta situado e os dados Endereço, CEP,Setor, Responsável, será preenchido automaticamente, sem ter que entrar em um novo formulário para preencher esta informação. An
  3. Oi Deixa ver se eu entendi. Pelo que você escreveu, tu quer data abreviada 28/11/2008, se na tua tabela esta configurado para data completa vai aparecer por extenso (sexta-feira, 28 de novembro de 2008), você pode alterar a tabela para data abreviada e caso não queira mecher na tabela vá no teu relatório e na caixa de texto Data em propriedades/dados altere a mascará de entrada para Data Abreviada... Só estou na dúvida se é isso que você quer. E me desculpe na primeira, eu havia entendido que você não queria que aparecesse apenas o dia da semana. Com relação ao valor em R$ confesso que n
  4. Com relação ao valor por extenso tente esta dica, fiz e deu certo. E não manjo de linguagem VBA. Function Extenso95(nValor) If IsNull(nValor) Or nValor <= 0 Or nValor > 9999999.99 Then Exit Function End If Dim nContador, nTamanho As Integer Dim cValor, cParte, cFinal As String ReDim aGrupo(4), aTexto(4) As String ReDim aUnid(19) As String aUnid(1) = "UM ": aUnid(2) = "DOIS ": aUnid(3) = "TRES " aUnid(4) = "QUATRO ": aUnid(5) = "CINCO ": aUnid(6) = "SEIS " aUnid(7) = "SETE ": aUnid(8) = "OITO ": aUnid(9) = "NOVE " aUnid(10) = "DEZ ": aUnid(11) = "ONZE ": aUnid(12) = "DOZE " aUnid(13) = "
  5. Oi Para fazer o que você quer com relação a data, a única forma que conheço é mudar as configurações regionais DATA COMPLETA: Exibe de acordo com a sua configuração regional do Painel de controle do windows -» Terça, 25 de agosto de 2007 (exemplo). Se mudar lá, deixar apenas para que apareça o dia/mês/ano verá que no teu banco de dados ficará do mesmo modo. Porém deve existir um outro meio; que nossos caros colegas devem saber. Não devo ter ajudado muito, porém vai que a informação te ajude.
  6. BRUCCE Valeu isso mesmo. Muito obrigada. Marcia
  7. Olá novamente! Tenho um formulário baseado em um consulta, quero impedir que os registros sejam editados e excluidos, porém não quero impedir a adição de novos cadastros, alguém sabe como fazer isso? Obrigada :blush:
  8. Consegui ajuda. A resposta esta aí. Option Compare Database Private Sub ExibirDados() If IsNull(Me.CódigoRua.Value) Or Not IsNumeric(Me.CódigoRua.Value) Then Exit Sub End If Me.Endereço.Value = _ DLookup("Endereço", "Ruas", "[CódigoRua]=" & CLng(Trim(Me.CódigoRua.Value))) Me.CEP.Value = _ DLookup("CEP", "Ruas", "[CódigoRua]=" & CLng(Trim(Me.CódigoRua.Value))) Me.ResponsavelRua.Value = _ DLookup("ResponsavelRua", "Ruas", "[CódigoRua]=" & CLng(Trim(Me.CódigoRua.Value))) End Sub Private Sub CódigoRua_AfterUpdate() Call ExibirDados Me.Recalc
  9. Jonatham Sei lidar com o access através dos botões. :blush: Como faço para colocar os códigos aqui? Quando vou no meu formulário e na barra design do formulário clico em código, abre o VB porém só aparece: Option Compare Database Option Explicit :blink: Obrigada por me responder!
  10. Prezados colegas: Já pesquisei nos tópicos sobre caixa de combinação e não encontrei a solução para a minha dúvida. Ou melhor encontrei um próximo, porém não me deu a idéia de como fazer, já que a dúvida esta além da minha. Tenho duas tabelas, uma é de Ruas onde tem os seguintes campos, Nome da Rua, CEP e setor e outra é de dados, onde terei o nome da pessoa, data de nascimento, idade e afins. No meu formulário de Dados eu gostaria que através de uma caixa de combinação fosse localizado a Rua que cadastrei na tabela e ao selecionar a Rua os demais campos como CEP e setor fossem preenchidos
×
×
  • Create New...