Humm

não é assim não.. use isso: SeImed ou IfImed exemplo: =SeImed([campo]=condição;valor se verdadeiro;valor se falso) no teu caso.. =SeImed([justificada]=Sim;0;[NHoras])

galera.. deem uma força ai! hehe

entenda que a propriedade valor padrão atua da seguinte forma. ela vai buscar a cada registro, antes mesmo de você adicionar dados aos campos, rodar a expressao que você colocou. acontece que o registro novo não contem dados nos campos pertencentes a expressao contida na propriedade valor padrão. logo acho que não vai funcionar. talvez seja melhor você criar um campo calculado para obter o valor assim que ele vai sendo entrado nos outros campos. crie uma caixa de texto e coloque: =[vt]-[com]-[ref] ... (ateh o ultimo campo) porem o campo calculado não armazena valor, apenas exibe. se você quer armazenar, você cria uma funcao em VB que, apos você dar entrada no ultimo campo, ele atualize o valor do campo em questao com o que aparece no campo calculado. outra coisa.. o access entende [vt] não como nome do campo na tabela de origem, mas sim como nome do objeto dentro do formulario ou relatorio.

cara.. funciona assim você tem que ter uma tabela onde você armazena as entradas.. outra tabela onde você armazena as saidas.. ai você cria uma consulta para cada tabela fazendo suas totalizacoes. então você cria um consulta onde ao invez de você colocar as tabelas, coloque apenas as consultas e seus totais.. então crie um campo nessa consulta assim: Em Estoque: [total_entrada]-[total_saida] agora vem a parte interessante. o access tem uma maneira especial de tratar campos nulos. exemplo.. vamos supor que você deu entrada de 100 para o item 1 e não deu nenhuma saida neste item. logo a consulta não vai retornar valor algum porque vai interpretar o campo [total_saida] como nulo ao invez de zero. para corrigir isso faça o seguinte, informe que nulo = zero na expressao. Total Estoque: nz([total_entrada])-nz([total_saida]) sacou?

olha.. o correto é o estoquetotal não armazenar dados e ser apenas um campo calculado. na consulta voce coloca: Em Estoque: [Entrada]-[sAIDA] nos forms ou relatorios voce coloca: =[Entrada]-[sAIDA]

essa linha de pensamento ta esquisita.. o correto é você ter uma sub_tabela para sua tabela produtos onde voce lanca os preços de venda e a data do preço. isso é bom porque hj em dia, n demora muito você tem que alterar os precos, e assim você tem um historico dos preços praticados. alem disso, crie uma subtabela também onde voce lanca os preços de compra. assim, você pode criar uma dpesquisa ou dlookup para resgatar o valor de venda para ultima data deste valor, de acordo com a referencia do produto ahh.. valor de custo do produto não é igual ao preço de compra. para se calcular o valor de custo, tem uma matematica meio complicada ond você leva em consideracao, o preço de compra + custo de capital parado + custo das despesas

bom, peguei um codigo de exemplo mas não consigo aplica-lo no meu programa. estou desconfiado que a conexao do meu é ADO e esse codigo foi feito com DAO e por isso n deve funcionar como faco pra saber qual tipo de conexao estou usando na minha aplicacao access? como posso fazer um codigo DAO funcionar em ADO? Option Compare Database Option Explicit ' Desenvolvido por JR - <accessjr@bol.com.br> ' Brasília - DF, em Jan/1999. ' http://www.accessjr.cjb.net ' Estas variáveis permanecerão abertas enquanto ' o formulário estiver aberto para agilizar ' as buscas subseqüentes. Dim rs As DAO.Recordset, Rs1 As DAO.Recordset Dim mValor As Variant Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Set rs = Nothing 'Libera memória Set Rs1 = Nothing End Sub Private Sub cmdCancelar_Click() On Error Resume Next DoCmd.Close End Sub Private Sub cmdSeguir_Click() On Error GoTo Err_cmdExibir With lstRetorno If .ListCount = 0 Then GoTo Termina End With MsgBox "Aqui você coloca o seu código para" _ & vbCrLf & "usar o item selecionado na listbox." Termina: Exit Sub Err_cmdExibir: Select Case Err Case 94 MsgBox "Selecione um Nome na caixa de listagem.", vbInformation, "Informação" Case Else MsgBox Err.Description, vbCritical, "Erro" End Select Resume Termina End Sub Private Sub cmdLimpar_Click() On Error Resume Next txtPesquisa = "" txtPesquisa.SetFocus Rs1.Close lstRetorno.Requery lblSelecionadas.Caption = "Nenhum Nome Selecionado" End Sub Private Sub lstRetorno_DblClick(Cancel As Integer) On Error Resume Next Call cmdSeguir_Click End Sub Private Sub txtPesquisa_Change() Dim strSQL As String On Error GoTo Rs_Fechado Pesquisa: mValor = txtPesquisa.Text If Len(mValor & "") = 0 _ Or Asc(mValor) = 32 Then 'Limpa espaços também. Call cmdLimpar_Click Exit Sub End If 'Na primeira vez, a rotina desviará para o rótulo 'Rs_Fechado, pois o Recordset ainda não foi aberto. 'Na 2ª vez em diante, a rotina prossegue normalmente. With rs .Filter = "NOME Like '*" & adhHandleQuotes(mValor, "'") & "*'" Set Rs1 = .OpenRecordset 'Move para último p/ fazer contagem na função PreencheLista If Rs1.RecordCount <> 0 Then Rs1.MoveLast lstRetorno.Requery End With Fim: Exit Sub Rs_Fechado: Select Case Err Case 91, 3420 'Ocorre só na primeira vez em que é pesquisado um item. strSQL = "SELECT NOME, CODE " _ & "FROM CLIENTES ORDER BY NOME" 'Cria um recordset bem rápido, pois é SnapShot. Set rs = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenSnapshot) GoTo Pesquisa Case 5 'ocorre ao voltar com BackSpace, apagando o texto. Resume Next Case Else MsgBox "Erro nº " & Err & vbCrLf _ & Err.Description, vbCritical, "Erro" End Select Resume Fim End Sub Function PreencheLista(ctl As Control, varID As Variant, lngRow As Long, _ lngCol As Long, intCode As Integer) As Variant 'Função CallBack padrão para preencher Combo/List box. On Error GoTo Err_Preenche Dim valret As Variant 'Retorno p/ cada um dos intCode indicados em Select Case. Dim I As Integer Static strNome() As Variant 'cria matriz dinâmica Static sContaReg As Integer sContaReg = Rs1.RecordCount I = 0 valret = Null Select Case intCode Case acLBInitialize ' Inicializa. With Rs1 ReDim strNome(sContaReg, 1) 'redimensiona conforme nº linhas do recordset .MoveFirst For I = 0 To sContaReg - 1 strNome(I, 0) = !NOME strNome(I, 1) = !CODE .MoveNext Next I End With valret = True 'deve ser diferente de zero ou Null para prosseguir. Case acLBOpen ' Abre. valret = Timer ' Gera Código exclusivo. Case acLBGetRowCount ' Obtém linhas. valret = -1 ' significa desconhecido 'Case acLBGetColumnCount ' Obtém colunas. 'valret = 2 'Case acLBGetColumnWidth ' Obtém a largura da coluna. 'valret = -1 ' Utiliza a largura padrão. Case acLBGetValue ' Obtém os dados. valret = strNome(lngRow, lngCol) Case acLBEnd 'Fim Erase strNome 'limpa a matriz. End Select PreencheLista = valret 'preenche a Listbox lblSelecionadas.Caption = sContaReg & " Nome(s) Selecionado(s)" Exit Function Err_Preenche: Select Case Err Case 9, 91 ' Erro gerado na 1ª vez que abrir Resume Next Case 3420, 3021 ' Causado pelo botão Limpar (Rs1.Close) PreencheLista = Null Case Else MsgBox "Erro nº " & Err & vbCrLf _ & Err.Description, vbCritical, "Erro" End Select End Function

eu acho que voce postou n forum errado

crie um campo calculado no rodape do seu form com o seguinte: =soma([campocomvalor])

voce pode importar os dados do excel pro access facilmente. e ai tudo correr pelo access

bom.. você tem que coolocar consulta com totalizacao.. e ai voce coloca esse campo sim/não como "contar" e no criterio coloque: Sim

Queria discutir a importancia de se fazer uma analise de sistema antes da criacao do mesmo, para definir o que é realmente necessario numa aplicacacao e o que é futilidade. antes de eu criar meus sistemas, eu faco uma analise das necessidades reais da empresa. evitando ao maximo criar dados redundantes e rotinas que acabem tornando a aplicacao lenta e ineficaz. porem o que tenho reparado que toma mais tempo é a analise do que o usuario pode fazer para criar um crash na aplicacao. isso é o que tem me tomado mais tempo, tentar prever tudo que o usuario pode fazer para gerar erros. um tópico assim tambem é bom pra quem ta comecando agora.. pra não sair gastando seu tempo criando tabelas e formularios que depois vai ter que mudar. tambem queria entender qual a metodologia do numero de versao de um programa. exemplo: v. 1.02 abracos

no criterio do campo na pesquisa coloca: sim

é usar caixas de marcação no formulario e no relatorio você usar seimed([CAIXA1]=verdadeiro;[CAMPO];)

isso que eu ia dizer.. apenas crie um novo campo de indice

em que questao de analise o access limita-te? para importar do excel para access.. organize os dado de entrada da forma linha x coluna. ele entende assim: colunas com cabeçalhos são os nomes dos campos da tabela de dados cada linha com dados é cada registro de dado.

o select case é assim: um exemplo dele: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 Msgbox "F1 foi apertada" Case vbKeyF2 Msgbox "F2 foi apertada" Case vbKeyF3 Msgbox "F3 foi apertada" End Select End Sub

rapa essa vai essa dificil

facil.. na consulta que faz referencia a outra tabela, coloque o campo do codigo tambem. .e ai nas propriedades do campo, no numero de colunas, diga que são 2 e coloque os tabalhos delas

select case não cai melhor nisso ai não?

eu costuma fazer o seguinte.. tabela principal: campo: codigo tabela secundaria: campo: codigo_filho assim é acho mais facil pra identificar.. ate porque alem do campo filho, você tem que ter um campo comum de codigo para ser o indice normal de armazenamento das tabelas filhas

como eu faco pra mandar via vb o programa pesquisar num site de consulta de cheques? alguém tem algum exemplo parecido pra realizar a consulta e retornar o resultado?

avancada foi o termo que usei.. você usa somente como ABRIR

era o seguinte.. antigamente os descontos eram lançados assim: eles criaram um produto chamado desconto de codigo 0 onde o valor unitario era igual a -1,00 ai eles colocavam o desconto na quantidade.. sacou? tipo: desconto -R$1,00 x 10 = R$10,00 agora eu modifiquei e coloque na tabela principal ed venda um campo para colocar o desconto. então eu queria uma consulta pra converter os descontos em forma de produto para o campo novo da tabela sacou?

grande.. os novos lancamentos serao direto no campo desconto.. porem eu tinha uns 60000 registros pra converter pro metodo novo sacou? por isso da consulta atualizacao. mas eu já resolvi.. por macete né..