Alexandre Neves

Novamente, Então não será Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*' Mas, talvez, SELECT ... WHERE Numero Like '*' & Format([Digite o número, exemplo: 0000030],'00-00000') & '*'; Bom trabalho,

Veja agora www.esnips.com/doc/e48a72df-b1ac-4040-aad3-4a9143065560/bdInffernus Bom trabalho,

Novamente, Inffernus Veja: http://www.esnips.com/doc/927b09dd-7b3f-43...df9/bdInffernus Bom trabalho,

Boa tarde, Tente: Docmd.close docmd.openform me Bom trabalho,

Novamente, Inffernus Criei uma consulta com o critério que mencionou. depois, criei um formulário baseado na consulta e funcionou bem. Verifique se não anda gato pelo meio. Bom trabalho,

Novamente, Inffernus Não tentei por uma razão: quase não utilizo consultas. Construo cadeia SQL após a digitação no controlo do formulário. Se necessitar, carregue a bd (por segurança, com dados diferentes) no esnips, por exemplo. Bom trabalho,

Tente assim: Como "*" & Format([Digite o código do Cliente],"999.999-99") & '*' Bom trabalho,

Tente Como "*" & Format([Digite o código do Cliente, exemplo: 001.052-01],"999.999-99") & '*' Bom trabalho,

Boa noite, Gilberto Não deve utilizar Data para nomear campo pois é uma palavra reservada do Access. Para converter texto em data utilize a função CDate(texto). Qualquer dúvida vá à ajuda do Access. Bom trabalho,

Bom dia, Inffernus Não entendi. Pretende introduzir 123245678 e a procura seja por 123.456-78? Bom trabalho,

Bom dia, Flafis Substitua: If strDadosBd.Column(1, intRegCorr) = Null Then por: If IsNull(strDadosBd.Column(1, intRegCorr)) Then Bom trabalho,

Bom dia, Inffernus Suponho que existe uma opção 46 - 60 Anos. Utilize este procedimento, ao sair do controlo TxtDataNasc: 'origem do código 'WSenna do fórum expertaccess 'adaptado em 2009-06-07 por 'Alexandre Neves 'para Inffernus do fórum Script Brasil Dim Idade as Byte If Not TxtDataNasc = 0 Then Idade = DateDiff("yyyy", TxtDataNasc, Now) End If If Month(TxtDataNasc) > Month(Date) Then Idade = Idade- 1 Else If Month(TxtDataNasc) = Month(Date) Then If Day(TxtDataNasc) > Day(Date) Then Idade = Idade - 1 End If End If End If Select Case Idade Case < 26 TxtIdade="18 - 25 Anos" Case < 36 TxtIdade="26 - 35 Anos" Case < 46 TxtIdade="36 - 45 Anos" Case < 61 TxtIdade="46 - 60 Anos" Case Else TxtIdade="+60 Anos" Ende Select Me.Refresh Bom trabalho,

Boa noite, Alan Se não der certo, exemplifique dados da tabela para poder analisar. Bom trabalho,

Novamente, Lucena Utilize: SELECT * FROM x WHERE Nome Like '*' & [introduza o texto a ser procurado] & '*' or Endereco Like '*' & [introduza o texto a ser procurado] &'*' or Telefone Like '*' & [introduza o texto a ser procurado] &'*' or EMail Like '*' &[introduza o texto a ser procurado]&'*'; Bom trabalho,

Boa tarde, Alex Se entendi bem o que pretende. O que significa "DDD 19 + o número 3" e "DDD 19"? Se puder, exemplifique com dados relevantes para ambas as situações. Bom trabalho,

Boa tarde, zerocool Terá, concerteza, uma tabela com os campos Grupo, MinimoDias, MaximoDias e ValorDiario. Se assim for, coloque código, ao sair do campo de escolha dos dias, que procure na tabela o ValorDiario correspondente ao registo. Bom trabalho,

Boa tarde, Juarez Tente assim, ao sair do IRR_B_Calc: Private Sub IRRF_B_Calc_LostFocus() Select Case IRRF_B_Calc Case < 13434.6 IRRF_Aliq=0 Case <= 2150 IRRF_Aliq=7.5 Case <= 2866.7 IRRF_Aliq=15 Case <= 3582 IRRF_Aliq=22.5 Case Else IRRF_Aliq=27.5 End Select End Sub Bom trabalho,

Boa tarde, Lucena Quer devolver o resultado como? Pode ajudar se indicar o código utilizado para procurar numa coluna. Bom trabalho,