MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Devolve todos os registos c/ 2

    Compartilhe

    Convidado
    Convidado

    [Resolvido]Devolve todos os registos c/ 2

    Mensagem  Convidado em 27/11/2013, 12:51

    boas
    consulta devolve todos os registos com o numero 2... no caso de solicitar apenas o 2 . . .
    consulta esta assim feita :

    Como [Número de Sócio] & "*"

    se solicitar o Numero 280... resolve e responde apenas com o registo 280
    se solicitar o Numero 24... não resolve da p/ Ex. 24, 240, 241, ... Etc até 249 . . .
    se solicitar o numero 2... não resolve da p/ Ex. 2, 20, 22, 23, 24 ... 212, Etc . . .

    Obrigado
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Devolve todos os registos c/2

    Mensagem  good guy em 27/11/2013, 13:07

    Olá Marcos,

    O critério de sua consulta deve ser assim:

    Como "*" & [Número de Sócio] & "*"

    Convidado
    Convidado

    Re: [Resolvido]Devolve todos os registos c/ 2

    Mensagem  Convidado em 27/11/2013, 13:41

    Obrigado... mas faz o mesmo . . .

    Convidado
    Convidado

    Re: [Resolvido]Devolve todos os registos c/ 2

    Mensagem  Convidado em 27/11/2013, 13:54

    bem uma das partes resolvi assim :

    DoCmd.OpenReport "Socios", acViewPreview, , "NumeroSocio = " & InputBox("Número do Sócio?", "Informe")

    agora pretendia que se não digita-se nenhum Número de Sócio e desse enter imprimia todos os registos da tabela Sócios

    Obrigado
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Devolve todos os registos c/2

    Mensagem  good guy em 27/11/2013, 14:06



    DoCmd.OpenReport "Socios", acViewNormal

    Convidado
    Convidado

    Re: [Resolvido]Devolve todos os registos c/ 2

    Mensagem  Convidado em 27/11/2013, 14:23

    ta certo amigo . . .
    mas assim tira o critério de puder escolher o Sócio a imprimir . . . Correcto ?
    bom era no mesmo botão ter as 2 hipóteses... ao clicar solicitava o Número do Sócio dando um enter nessa escolha imprimia todos...
    Certo ? ! ?
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Devolve todos os registos c/2

    Mensagem  good guy em 27/11/2013, 17:54

    Olá Marcos,

    Tente assim:

    Public Sub cmdSelecao()

    Dim strMsg As String
    Dim intRetVal As Integer

    strMsg = "Deseja imprimir tudo?"
    intRetVal = MsgBox(strMsg,vbYesNo+vbQuestion,"Impressão")

    Select Case intRetVal
    Case vbYes
    DoCmd.OpenReport "Socios", acViewNormal
    Case vbNo
    DoCmd.OpenReport "Socios", acViewPreview, , "NumeroSocio = " & InputBox("Número do Sócio?", "Informe")
    End Select

    End Sub

    Convidado
    Convidado

    Re: [Resolvido]Devolve todos os registos c/ 2

    Mensagem  Convidado em 28/11/2013, 09:14

    boas... Em cheio ! agora você fez Golo . . .
    Obrigado... Abraço
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Devolve todos os registos c/2

    Mensagem  good guy em 28/11/2013, 12:19

    Obrigado, Marcos. O fórum também agradece.

      Data/hora atual: 26/9/2018, 09:50