![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
Alexandre Neves
-
Total de itens
168 -
Registro em
-
Última visita
Posts postados por Alexandre Neves
-
-
Boa tarde, Bruno
Não sei se esse caminho dará certo, no entanto, pode agregar constantes ou variáveis ao código SQL, como segue:
1 - Se texto
Onde pretende introduzir
... '"& NomeDoDado & "' ...
2 - Se data
Onde pretende introduzir
... #"& NomeDoDado & "# ...
3 - Se número
Onde pretende introduzir
... "& NomeDoDado & " ...
-
Boa noite, extremejogos
Nunca trabalhei com stoks (ainda não precisei) mas dizem que é preciso mesmo muito cuidado.
O meu raciocínio é o seguinte:
- Ao sair o produto não deve ser descontado na tabela de produtos. Porquê? Porque suponhamos que a tabela de produtos regista a entrada de produtos. Assim sendo, a determinada altura ficamos sem saber a quantidade de produtos entrada. Também porque a eventual eliminação de registo de saída do produto pode a actualização da tabela produtos não ficar perfeita.
- Para bom funcionamento, criaria tabela EntradaProdutos (registo dos produtos entrados), tabela SaidaProdutos (registo dos produtos saídos) e tabela SaldoProdutos. A actualização da tabela SaldoProdutos, a partir das tabelas EntradaProdutos e SaidaProdutos seria feita através de uma função criada para o efeito.
-
Bom dia, inffernus
A última ajuda que lhe prestei ordena a listagem pelo nome da penitenciária em vez de listar pelo código da penitenciária, o que me parece mais intuitivo.
Para a sua última dúvida:
Em vez de
CxcPavilhao.RowSource = "SELECT CodPavilhao," & CxcPenitenciaria.Column(1) & " FROM tblPavilhao ORDER BY " & CxcPenitenciaria.Column(1) & ";"
Coloque
CxcPavilhao.RowSource = "SELECT CodPavilhao," & CxcPenitenciaria.Column(1) & " FROM tblPavilhao WHERE Not IsNull(" & CxcPenitenciaria.Column(1) & ") ORDER BY " & CxcPenitenciaria.Column(1) & ";"
Em vez de
CxcCela.RowSource = "SELECT CodCela," & CxcPenitenciaria.Column(1) & " FROM tblCela ORDER BY " & CxcPenitenciaria.Column(1) & ";"
Coloque
CxcCela.RowSource = "SELECT CodCela," & CxcPenitenciaria.Column(1) & " FROM tblCela WHERE Not IsNull(" & CxcPenitenciaria.Column(1) & ") ORDER BY " & CxcPenitenciaria.Column(1) & ";"
-
Não sei qual parte da minha resposta não entendeu mas suponho que tenha sido a segunda frase.
Assim, vá ao controlo do formulário e, nas propriedades, na aba Dados coloque ValorTotal na propriedade Origem do controlo.
-
Na tabela, por norma, não se guardam campos calculados.
Se precisar mesmo, atribua o campo da tabela como origem dos dados do controlo
-
Boa tarde, Inffernus
Onde está
CxcPenitenciaria.RowSource = "SELECT CodPenitenciaria,Penitenciaria FROM tblPenitenciaria ORDER BY CodPenitenciaria;"
Substitua por
CxcPenitenciaria.RowSource = "SELECT CodPenitenciaria,Penitenciaria FROM tblPenitenciaria ORDER BY Penitenciaria;"
O pavilhão e cela ficam ordenados como texto pois são campos texto.
-
Bom dia, zero
Suponho que queira que funcione em cada mês e não apenas no mês de Janeiro.
Para tal, coloque no acontecimento AoSair do campo DataPagamento
Select Case TxtMes Case "Janeiro" If Month(TxtDataPagamento) <> 1 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Fevereiro" If Month(TxtDataPagamento) <> 2 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Março" If Month(TxtDataPagamento) <> 3 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Abril" If Month(TxtDataPagamento) <> 4 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Maio" If Month(TxtDataPagamento) <> 5 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Junho" If Month(TxtDataPagamento) <> 6 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Julho" If Month(TxtDataPagamento) <> 7 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Agosto" If Month(TxtDataPagamento) <> 8 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Setembro" If Month(TxtDataPagamento) <> 9 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Outubro" If Month(TxtDataPagamento) <> 10 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Novembro" If Month(TxtDataPagamento) <> 11 Then TxtCoima = 5 Else TxtDataPagamento = Null Case "Dezembro" If Month(TxtDataPagamento) <> 12 Then TxtCoima = 5 Else TxtDataPagamento = Null End Select
-
Novamente, Inffernus
Faça a alteração conforme lhe expliquei e resolverá, ou então volte a informar.
-
Boa tarde,
Eu utilizo quase sempre as funções via código mas, no seu caso, será melhor, em vez de alterar todas as funções utilizadas, crie um módulo e chame-o de FunçoesConvertidas e crie funções de conversão tais como:
Function Dia(dtData as date)as string Dia=Day(dtData) End Function Function Mes(dtData as date)as string Mes=Month(dtData) End Function Function Ano(dtData as date)as string Ano=Year(dtData) End Function
Deste modo, se chamar pelo nome em inglês ele procura directo, se chamar pelo nome em português ele é direcciona-o para o nome em inglês.
-
Boa tarde,
Afinal tem 2 formulários ou 1 formulário e 1 sub-formulário?
A ordem correcta será Formulários!Formulario1![ValorDespesa] em vez de Formulario1!Formularios![ValorDespesa] ?
Não explicou como utilizou a função SeImed mas experimente IIf(isNull(Formulario1!ValorDespesa),Null,Formulario1!ValorDespesa)
Bom trabalho,
-
Boa noite, Felipe
Pelos dados que forneceu, esta função deve funcionar
Function ProcValor(dtData As Date) As Double
ProcValor = DLookup(Year(dtData), "Tabela", "Meses=" & Month(dtData))
End Function
Bom trabalho,
-
Boa noite, Felipe
Faltam dados para o poder ajudar com algum detalhe.
No entanto, use a função DLookup
Sintaxe: valor=DLookup("Campo","tabela","Ano=" & VariavelAno & " and Mes=" & VariavelMes)
-
Boa noite, inffernus
Estive sem computador mas não se esqueça que o assunto é do seu interesse e demorou 3 dias para informar o resultado. Não tem mal nenhum, ninguém lhe pediu que fosse rápido mas não desespere quando não podemos, ou não sabemos, ajudar!
Sobre as últimas dúvidas:
- Não sei o que quer dizer "apertar salvar"
- Sobre os valores guardados, vá às propriedades das caixas de combinação e, na aba Dados, coloque 2 na coluna dependente.
-
Bom dia, xiloba
Copie estas funções e utilize a Media2Maiores
Function Media2Maiores(Optional Valor1 = 0, Optional Valor2 = 0, Optional Valor3 = 0) As Single 'Função criada por Alexandre Neves 'em 2009-06-27 'para xiloba 'do fórum scripbrasil If IsNull(Valor1) = True Then Valor1 = 0 If IsNull(Valor2) = True Then Valor2 = 0 If IsNull(Valor3) = True Then Valor3 = 0 Select Case Maximo(Valor1, Valor2, Valor3) Case Valor1 If Valor2 > Valor3 Then 'caso de valor1>valor2>valor3 Media2Maiores = (Valor1 + Valor2) / 2 Else 'caso de valor1>valor3>valor2 Media2Maiores = (Valor1 + Valor3) / 2 End If Case Valor2 If Valor1 > Valor3 Then 'caso de valor2>valor1>valor3 Media2Maiores = (Valor2 + Valor1) / 2 Else 'caso de valor2>valor3>valor1 Media2Maiores = (Valor2 + Valor3) / 2 End If Case Valor3 If Valor1 > Valor2 Then 'caso de valor3>valor1>valor2 Media2Maiores = (Valor3 + Valor1) / 2 Else 'caso de valor3>valor2>valor1 Media2Maiores = (Valor3 + Valor2) / 2 End If End Select End Function Function Maximo(Optional Valor1 = 0, Optional Valor2 = 0, Optional Valor3 = 0) As Single 'Função criada por Alexandre Neves 'em 2009-06-27 'para xiloba 'do fórum scripbrasil If IsNull(Valor1) = True Then Valor1 = 0 If IsNull(Valor2) = True Then Valor2 = 0 If IsNull(Valor3) = True Then Valor3 = 0 If Val(Valor3) = 0 Then If Val(Valor1) > Val(Valor2) Then Maximo = Valor1 Else Maximo = Valor2 End If Else Maximo = Maximo(Maximo(Valor1, Valor2), Valor3) End If End Function
Bom trabalho
-
-
Boa noite, Inffernus
Veja se é isto que pretende
http://www.esnips.com/doc/e331300a-7b2f-47...ffernus_bd-2003
Bom trabalho,
-
Boa tarde, adriano
Compacte a bd e verifique se resolve.
Bom trabalho,
-
Novamente,
De facto, eu nunca criei senhas porque apenas trabalho com uma bd para utilização profissional mas só eu a utilizo.
Desejo que alguém o ajude.
Bom trabalho,
-
Boa tarde, arldin
Não percebi bem o que quer.
Se quiser alterar a cor do campo quando selecciona na tabela, faça:
- Ferramentas>>opções>>Folha de dados>>altera para a cor que pretende. A cor que seleccionar é a que enche o cursor quando o campo é seleccionado.
Bom trabalho,
-
Boa tarde, GAF
Coloque uma bd com tabela com valores significativos para se ajudar em croncrecto.
Bom trabalho,
-
Boa noite, Diego
Para fazer o que pretende utilize uma instrução UNION SQL: SELECT ... FROM ... WHERE ... UNION SELECT ... FROM ... WHERE ... UNION SELECT ... FROM ... WHERE ... UNION SELECT ... FROM ... WHERE ...
Bom trabalho,
-
Novamente, Inffernus
Fiz e desfiz algumas alterações, mas julgo que apenas basta utilizar
DoCmd.OpenForm "frmEfetivo", , , "CodRGC='" & BuscaRGC & "'"
em vez de
DoCmd.OpenForm "frmEfetivo"
Espero que seja de vez. Bom trabalho.
-
Bom dia, Inffernus
A bd está no formato access 2007. Se colocar no formato 2000, poderei ver.
Bom trabalho,
-
Novamente, Inffernus
Utilizei o código numa consulta e funcionou.
Pode carregar a bd num sítio gratuito, por exemplo, o esnips.
Bom trabalho,
Estrutura entre tabelas
em Access
Postado
Bom dia, Tiago
Na tabela Clientes deve ter um campo CodCliente (Duplicação não autorizada) e na tabela Moradas deve ter um campo CodCliente (Duplicação autorizada). Para relacionar as tabelas, em SQL, utilize ... FROM tblClientes INNER JOIN Moradas ON tblClientes.CodCliente=Moradas.CodCliente ...