[Resolvido]Aplicando uma variável como critério de pesquisa em instruçao SQL

Bem amigos.. em uma instrução SQL., como fazer para adicionar uma variável no critério de pesquisa., sendo que na hora que rodar esse SQL, ele chame a variável no lugar onde vai o critério?

StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='Variável'" _
& " ORDER BY Detentos.[Nome] ; "

Variáveis são exatamente como campos do formulário ou relatório, mas sem colocar Me. ou Me!
Tente assim:

StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='" & Variável & "' ORDER BY Detentos.[Nome] ; "

Criquio eu não sei se teve a oportunidade de ver um exemplo de Arquivo de parametro que coloqeui no repositorio..
Ele contem dados texto para uso no módulo do form...

Então lá eu queria colocar o texto que eu usaria como critério Ex..
Regime: = Fechado

Na hora da abrir chamo a funcão que le o arquivo de parametros.. e crio uma variável para igualar ela ao contido no arquivo...
Dim Reg
Reg = Regime
E aplicaria a Variável Reg.. na SQL...

Vou testar e dou retorno

Se eu conseguir posso instalar o sistema em varias unidades sem precisar alterar o Front para cada unidade, pois o filtro dessa unidade eu aplicsaria apenas no arquivo externo..

Me entendeu Amigão??

Não retornou valores...

Dim VarRegimeAtual As String
VarRegimeAtual = RegimeAtual
NomeBD = "Syspen_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD
Set dbBanco = OpenDatabase(StrPath)

'RecordSource
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='" & VarRegimeAtual & "'" _
Me.RecordSource = StrDetento

é isso ai Amigão.. nó módulo do Arquivo de Parametros...

Option Compare Database
Public QuemChamou As Form
Public TipoOp As String
Public DirFotosNovas As String
Public DirFotos As String
Public FotoPadrao As String
Public FotoInexistente As String
Public DigitalPadrao As String
Public DirBanco As String
Public DirBancoDados As String
Public RegimeAtual As String

Public Sub Parametros_de_Inicializacao(Arquivo As String)
Dim Linha As String, Conteudo As String
Diretorio = SoDir(CurrentDb.Properties(0))
Close
Open Diretorio & Arquivo For Input As #1
Do While Not EOF(1)
Outro:
Line Input #1, Linha
If Not IsEmpty(Linha) And Not IsNull(Linha) And Len(Trim(Linha)) <> 0 Then
If Left(Linha, 1) <> ";" Then
Conteudo = Trim(Item(Linha, 2, ":="))
If EstaVazio(Conteudo) = True Then GoTo Outro
Select Case UCase(Trim(Item(Linha, 1, ":=")))
Case "DIRFOTOSNOVAS"
DirFotosNovas = Conteudo
Case "DIRFOTOS"
DirFotos = Conteudo
Case "FOTOPADRAO"
FotoPadrao = Conteudo
Case "FOTOINEXISTENTE"
FotoInexistente = Conteudo
Case "DIRBANCO"
DirBanco = Conteudo
Case "DIRBANCODADOS"
DirBancoDados = Conteudo
Case "REGIMEATUAL"
RegimeAtual = Conteudo
End Select
End If
End If
Loop
Close
End Sub


E no SQL:


Private Sub Report_Open(Cancel As Integer)
Parametros_de_Inicializacao "SysPen.par"
Dim dbBanco As Database
Dim StrDetento As String
Dim StrPath As String
Dim NomeBD As String
Dim VarReg As String

VarReg = RegimeAtual
NomeBD = "Syspen_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD
Set dbBanco = OpenDatabase(StrPath)

'RecordSource
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='" & VarReg & "'" _


Amigão.. Você percebeu o uso que vou fazer disso?

Esse Sql fica generico.. posso usá-lo em qualquer unidade...
para isso só alterando o arquivo de parâmetros

Grato