
Humm
Membros-
Total de itens
570 -
Registro em
-
Última visita
Tudo que Humm postou
-
eu tentei colocar aqueles parametros na propriedade "formato" mas não aceitou é que mascara de entrada ach o que só funciona pra campos com entrada de dados.. não é? tipo no momento que o campo está sendo digitado. e como esse campo é um campo tipo calculado, acho que não pega la.. valeu pela atencao amigo encontrei isso que pode ser colocado no campo via VB '******************* Code Begin **************** Function Proper(X) ' Capitalize first letter of every word in a field. ' Use in an event procedure in AfterUpdate of control; ' for example, [Last Name] = Proper([Last Name]). ' Names such as O'Brien and Wilson-Smythe are properly capitalized, ' but MacDonald is changed to Macdonald, and van Buren to Van Buren. ' Note: For this function to work correctly, you must specify ' Option Compare Database in the Declarations section of this module. Dim Temp$, C$, OldC$, i As Integer If IsNull(X) Then Exit Function Else Temp$ = CStr(LCase(X)) ' Initialize OldC$ to a single space because first ' letter needs to be capitalized but has no preceding letter. OldC$ = " " For i = 1 To Len(Temp$) C$ = Mid$(Temp$, i, 1) If C$ >= "a" And C$ <= "z" And _ (OldC$ < "a" Or OldC$ > "z") Then Mid$(Temp$, i, 1) = UCase$(C$) End If OldC$ = C$ Next i Proper = Temp$ End If End Function '******************* Code End ****************
-
cara.. esse dlookup só funciona se o campo do criterio for numerico.. porque será isso? já vi que vou ter que reestruturar completamente meu sistema só por causa deste detalhezinho acabei usando em VB isso: Private Sub FORMA_AfterUpdate() FORMA.SetFocus Me.FORMAE = FORMA.Column(1) End Sub agora eu queria saber como fazer esse resultado aparecer com a Primeira em maiuscula
-
oi.. valeu a atencao mas não é isso.. eu não quero criar uma mascara de entrada, eu so quero que a caixa exiba o texto com a primeira em maiuscula.
-
bom dia.. como eu coloco no na propriedade formato do campo para que ele exiba o texto com a primeira em caixa alta e as demais em caixa baixa? tipo DINHEIRO = Dinheiro CARTÃO CRÉDITO = Cartão Crédito
-
funciona assim.. você tem uma tabela de entradas de estoque onde voce lanca no campo quantidade as quantidades que vão entrando para cada data.. você tem uma tabela de vendas onde voce registra em cada venda a quantidade que sai. ai voce cria uma consulta para cada tabela somando o total de entradas e de vendas então voce cria outra consulta onde você pega os resultados das consultas anteriores e coloca [total_entrada]-[total_saida] logo voce tem nesta consulta a sua posicao atual de estoque.. sacou? eu chamo isso de manipular os dados. alias, a melhor coisa a se fazer é usar o menos de tabelas e campos possiveis para não abarrotar tanto o DB de dados "redundantes" e diminuir a carga de codigos
-
ou crie uma rotina em VB ou macro que.. quando você sair do ultimo campo.. ele direcione para o campo que você deseja no subformulario
-
cara eu n sei bulhufas de VB.. mas no meu sistema eu dou baixa no estoque atravez de consultas.. na verdade.. eu não dou baixa.. a consulta vai fazer o calculo de quanto saiu e quanto entrou.. sacou? eu acho bem melhor do que fazer rotinas para mexer nos dados armazenados.. eu prefiro fazer sqls para calcular os dados
-
amigo.. isso é facil.. porem eu n recomendo que voce crie campos em sua tabela para armazenar totalizacoes.. isso deixa o banco mais lento e abarrotado. vá no campo total do rodapé e coloque o seguinte calculo: =Soma(([s_Valor]*[s_Quantidade])+([P_Valor]*[P_Quantidade])) subentendendo que os campos são: [s_Valor] = nome do campo do valor do servico [s_Quantidade] = nome do campo da quantidade do servico [P_Valor] = nome do campo do valor da peça [P_Quantidade] = nome do campo da quantidade da peça outra dica que te dou é.. ao invez de ter campos pra servico e peça faça um campo só pra tudo.. e faça uma tabela onde voce cadastra as peças e os servicos entendeu? nesta tabela de peças e serviços é so você criar um campo familia ou tipo onde pra cada servico ou peça você define PEÇA ou SERVIÇO isso vai dinamizar o seu BD e torna-lo mais rapido e eficaz abraços
-
eu acho que é o Office Developers Tools que eu me lembre.. não é que ele converte todo mdb num exe.. mas sim em arquivos para que voce possa distribuir para pcs sem access
-
é possivel utilizar Dlookup em campo calculado? num form tenho 2 campos [forma] [descricao] (campo calculado) eu queria que essa caixa de texto calculada [descricao] me retornasse um valor pesquisado em uma consulta que use como criterio o valor antes digitado no campo [forma] do registro atual do mesmo formulario. é possivel fazer isso com dlookup?
-
já ouvi falar de uma ferramenta do office que faz isso.. de transformar um mdb em exe.. porem ela não é distribuida nos pacotes office.. então pra achar é um custo
-
independente de alguém precisar.. seria interessante você postar o que fez para a posteridade :)
-
mas ai é que esta.. eu não quero armazenar essa descricao na tabela.. eu so preciso de um campo calculado que exiba esse valor dentro do form.. sacou?
-
hehe ddesculpe.. ach o que eu n expliquei bem isso eu já sei fazer.. eu quero fazer é o seguinte.. que essa tecla de atalho somente funcione dentro de formulario tal e não em qualquer formulario. entendeu? somente dentro do form CUPOM é que a F4 vai funcionar.. isso que eu procuro. abracos
-
valeu amigo.. eu consegui resovler!!!! utilizei SeImed fiz uma consulta CONS_CUPOM_SEQS para retornar registros relacionados com a tabela mestre para ele sempre reiniciar a contagem a cada registro diferente da tabela mestre. criei uma macro que, assim que eu inicio o registro, ele define o valor do campo SEQ que vai armazenar em sequencia os items =SeImed(DContar("[sEQ]";"CONS_CUPOM_SEQS")=0;1;DMáx("[sEQ]";"CONS_CUPOM_SEQS")+1) abracos
-
crie um campo na consulta formatando para exibir apenas dia/mês exemplo: coloque no nome do campo da consulta assim: Data por Dia/Mês: Formato$([TABELA QUE TEM A DATA].NOMEDOCAMPOQUETEMDATA;"dd/mm") e em criterio deste campo use: Entre data E data e execute a consulta exemplo do criterio: Entre 10/07 E 10/12
-
eu tenho duas tabelas onde a relação delas são de um-para-muitos tabela mestre: CUPOM tabela subord: SUB_CUPOM na tabela SUB_CUPOM, eu gostaria de ter um campo autonumerado que a cada registro da tabela mestre, ele reiniciasse a contagem. como é possivel?
-
como eu faço para que em determinado form apenas a tecla F4 por exemplo faça determinada ação? por exemplo.. no form CUPOM quando eu pressionar F4 ele abre o FORM PAGAMENTOS
-
RAPAZ descobri porque a consulta não tava permitindo novos registros.. é porque se você utilizar 2 ou mais tabelas.. os campos do relacionamento tem que ser numericos e não de texto. porem eu já usei uma vez essa dlookup em outra funcao.. talvez ate seja mais apropriada pra mim.. mas como definir dlookup que mostre o resultado em um caixa de texto ou campo calculado? amigo, então.. eu criei no form um campo calculado assim =DPesquisa("[DESCRIÇÃO]";"FORMAS";"[FORMAS]=" & [FORMA]) tendo em mente que ele fará uma pesquisa na tabela FORMAS capturando o campo DESCRIÇÃO quando o campo FORMAS for igual a caixa de texto FORMA não é isso? porem aparece #Erro e fica piscando intermitentemente isso no campo calculado. da uma luz aí?
-
boa dia a todos! eu tenho as seguintes tabelas e seus campos: FORMAS: COD, FORMAS, DESCRICAO CUPOM_PAGAMENTOS: COD, CODFILHO, FORMA, AUTORIZACAO, CREDITO, BANCO, AGENCIA, CHEQUE, DATA, VALORPAGO eu criei um form que lanca dados na tabela CUPOM_PAGAMENTOS e o campo FORMA(cobinacao) pesquisa dados em 2 colunas da tabela FORMAS nos campos FORMAS e DESCRICAO armazenando a coluna 1 eu queria neste form colocar um campo que, assim que eu selecione no campo anterior FORMA que ele exibisse FORMAS!DESCRICAO eu consigo fazer isso criando uma consulta na base de dados do form.. porem quando faco isso eu não consigo mais incluir novos registros.. o form fica apenas para consulta. incrivelmente eu consegui fazer isso baseado em consulta em outro form, conseguindo adicionar novos regs.. mas eu já comparei TUDO e não consigo resolver o prob com o form novo. alguém da uma força ai? pra exemplificar melhor.. essa consulta eu não to conseguindo porque ela não me deixa criar novos registros SELECT SUB_CUPOM_PAGAMENTOS.COD, SUB_CUPOM_PAGAMENTOS.COD_FILHO, SUB_CUPOM_PAGAMENTOS.FORMA, SUB_CUPOM_PAGAMENTOS.DATA, SUB_CUPOM_PAGAMENTOS.[VALOR A PAGAR], SUB_CUPOM_PAGAMENTOS.OBS, SUB_CUPOM_PAGAMENTOS.BANCO, SUB_CUPOM_PAGAMENTOS.AGENCIA, SUB_CUPOM_PAGAMENTOS.CHEQUE, SUB_CUPOM_PAGAMENTOS.AUTORIZAÇÃO, SUB_CUPOM_PAGAMENTOS.CRÉDITO, FORMAS.DESCRIÇÃO FROM SUB_CUPOM_PAGAMENTOS LEFT JOIN FORMAS ON SUB_CUPOM_PAGAMENTOS.FORMA = FORMAS.FORMAS WITH OWNERACCESS OPTION; já nesta eu consegui perfeitamente em outro form SELECT SUB_CUPOM_VENDAS.COD, SUB_CUPOM_VENDAS.COD_FILHO, SUB_CUPOM_VENDAS.REFERENCIA, SUB_CUPOM_VENDAS.COR, SUB_CUPOM_VENDAS.QTDE, SUB_CUPOM_VENDAS.VALORUNITÁRIO, PRODUTOS.DESCRIÇÃO, SUB_CUPOM_VENDAS.TIPODESCONTO, SUB_CUPOM_VENDAS.VALORDESCONTO FROM SUB_CUPOM_VENDAS LEFT JOIN PRODUTOS ON SUB_CUPOM_VENDAS.REFERENCIA = PRODUTOS.REF ORDER BY SUB_CUPOM_VENDAS.COD WITH OWNERACCESS OPTION; o que será que está dando errado???