[Resolvido]Devolve todos os registos c/ 2

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

Olá Marcos,

O critério de sua consulta deve ser assim:

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

Obrigado... mas faz o mesmo . . .

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

DoCmd.OpenReport "Socios", acViewNormal

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 ? ! ?

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

boas... Em cheio ! agora você fez Golo . . .
Obrigado... Abraço

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