Humm

não, use o seimed pra isolar o zero.. exemplo.. seimed(campo=0 or isnull(campo);não fazer conta de divisao;fazer conta de divisao) sacou?

bom, se você tenta dividir algo por 0, realmente vai dar erro.. coloque uma condição Seimed ou if nisso ae pra isolar esse 0 da expressao

quando você criar o botao, não de seguimento na tela, cancele e ai o botao ficará cru. então voce vai no evento do botao em ao clicar e define procedimento de evento, que vai abrir a janela do vba

bom ai você tem que fazer isso via vba usando IF no evento ANTES DE INSERIR com o cancel = true

cara, posta o SQL dessa consulta ai

se eu entendi bem.. voce define o minimo e o maximo.. tendo essas variaveis definidas, entre com SE ou com SeImed exemplo: seimed([valor_atual]<[valormaximo] E [valor_atual]>[valor_minimo];caso verdadeiro;caso falso)

crie um formulario onde voce seleciona o que quer.. depois crie um subformulario que exiba no formato folha de dados e aponte como fonte de dados a consulta que deseja

o depurador acusa erro em qual linha do codigo? pode ser que o tipo de dados de me.bookmarkk não seja igual ao de ibook que voce definiu como numero inteiro

da uma olhada nisso http://scriptbrasil.com.br/forum/index.php?showtopic=158923

olha.. se você tiver o campo exibindo a data no formato dd/mm/yyyy ele vai classificar crescente ou decrescente normal. aqui funciona

na verdade o nome é Classificacao.. conforme a imagem acima

não.. repare que em cada campo da consulta existe uma opcao chamada ORDEM que serve para fazer classificação crescente ou decrescente.. é so usar esta opcao no campo que voce deseja classificar.

faça um campo clone da data atual de aniversario no formato dd/mm/yy e mande classificar em crescente ou decrescente na propria consulta tem um campo de classificacao la

ué.. a chave primaria é o campo numerico que voce define como codigo na tabela, que é do tipo numero e com atributo de não poder ter em duplicidade o valor. qualquer consulta, voce inclui a tabela e o campo que definiu como chave primaria e ta feito.

poe o arquivo no 4shared.com e poe o link pra download aqui

abra a ajuda do access e estude a função FORMATO (Format) e veja a tabela de tratamento para datas.

no vba =format(campo_data_nascimento,"dd/mm") & "/" & year(now) no campo =format([campo_data_nascimento];"dd/mm") & "/" & year(now)

eu acho que o que voce precisa é de uma consulta de referencia cruzada, ou uma consulta do tipo união pesquise sobre ambos os tipos e veja se lhe resolve.. outra dica.. a forma de funcionamento e inclusive organizacao de dados no excel é bem diferente da que se usa em banco de dados como access.. quando digo isso, me refiro a modelagem do banco de dados.

cara, finalmente consegui.. lembrando que rodei em access 2010 segue a função que atualiza o path das tabelas de forma programatica, sem excluir ou incluir nada, e inclusive com senha do accdb das tabelas caso haja. Public Function ReLink(strNewPath As String) As Boolean Dim dbs As Database Dim tdf As TableDef Dim intCount As Integer Dim frmCurrentForm As Form DoCmd.Hourglass True On Error GoTo ErrLinkUpExit ' repare que eu criei um form chamado INICIO, que sempre inicia antes de tudo pra checar o link das tabelas.. Forms!inicio.lblMsg.Visible = True 'aqui é um rotulo que vai exibir o status de todo procedimento Forms!inicio.cmdok.Visible = False 'aqui é um botao pra dar seguimento caso tudo esteja ok Set dbs = CurrentDb For intCount = 0 To dbs.TableDefs.Count - 1 Set tdf = dbs.TableDefs(intCount) If tdf.Name = "APP" Then GoTo jump 'essa condição voce pode usar para bypassar tabelas que não são linkadas ou de outro link separado que você não quer checar If tdf.Connect <> "" Then Forms!inicio.lblMsg.Caption = "Conectando Tabela " & tdf.Name & "..." DoEvents tdf.Connect = "MS Access;PWD=senhaDoAccdb;DATABASE=" & strNewPath & "\bd.accdb" 'aqui voce coloca o nome do arquivo do seu back end tdf.RefreshLink End If ' tdf.Connect <> "" jump: Next intCount Set dbs = Nothing Set tdf = Nothing DoCmd.Hourglass False Forms!inicio.lblMsg.Caption = "Conexão com o Banco de Dados realizada!" ReLink = True Forms!inicio.cmdok.Visible = True Exit Function ErrLinkUpExit: DoCmd.Hourglass False Select Case Err Case 3031 ' Password Protected Forms!inicio.lblMsg.Caption = "Falha: Banco de Dados protegido com senha diferente! Provavelmente o caminho indicado contém uma versão incompatível do Banco de Dados." Case 3011 ' Table missing DoCmd.Hourglass False Forms!inicio.lblMsg.Caption = "Falha: O caminho especificado não possui a tabela '" & tdf.SourceTableName & "'" Case 3024 ' Back End not found Forms!inicio.lblMsg.Caption = "Falha: Banco de Dados não encontrado!" Case 3051 ' Access Denied Forms!inicio.lblMsg.Caption = "Falha: Acesso negado!" Case 3027 ' Read Only Forms!inicio.lblMsg.Caption = "Falha: Banco de Dados em '" & strNewPath & "'" & " é somente leitura!" Case 3044 ' Invalid Path Forms!inicio.lblMsg.Caption = "Falha: " & strNewPath & " não é um caminho válido!" Case 3265 Forms!inicio.lblMsg.Caption = "Tabela '" & tdf.Name & "'" & _ " não encontrada em ' " & strNewPath & "'" Case 3321 ' Nothing Entered Forms!inicio.lblMsg.Caption = "Falha: Falta o nome do Banco de Dados" Case Else Forms!inicio.lblMsg.Caption = "Erro:" & str(Err) & Err.Description End Select Set tdf = Nothing ReLink = False End Function

existe, eu uso isso em varios forms meus que tem subforms de pesquisa.. assim que atualizo certo campo no form principal, o subform é atualizado de acordo com o que eu escolhi no form.. pra atualizar, eu uso um destes metodos que te expliquei.. se ai não ta funcionando, algo errado você deve ta fazendo.. poste seu projeto que eu dou uma olhada

dei uma lida, esse artigo é interessante quando se usa sql server como banco de dados.. no meu caso to usando o bd do proprio access mas dividido entre front end e back end. o problema é que o back end tem senha.. e estou projetando um front end para acessar os dados por path de rede. o lance é que esse front end, antes de iniciar forms que acessam as tabelas vinculadas, ele vai checar se as mesmas existem ou estao acessiveis.. isso eu sei fazer.. agora caso não estejam, dar a opcao de alterar o path até elas.. isso é que não sei fazer de forma programatica, ou seja, via vba. até achei alguns exemplos, mas eu preciso de uma funcao ou codigo que de a opcao de se incluir a senha do bd, senao vai dar acesso negado. acredito ter achado algo.. so vou poder testar mais tarde: ''Connection string with database password strConnect = "MS Access;PWD=pw;DATABASE=" & Me.txtNewDataDirectory Set rs = CurrentDb.OpenRecordset("Select TableName From LinkTables " _ & "WHERE TableType = 'LINK'") Do While Not RS.EOF ''Check if the table is already linked, if it is, update the connection ''otherwise, link the table. If IsNull(DLookup("[Name]", "MSysObjects", "[Name]='" & rs!TableName & "'")) Then Set tdf = db.CreateTableDef(RS!TableName, dbAttachSavePWD, _ rs!TableName, strConnect) db.TableDefs.Append tdf Else db.TableDefs(rs!TableName).Connect = strConnect End If db.TableDefs(rs!TableName).RefreshLink rs.MoveNext Loop

alguém sabe como fazer isso de forma programatica?

do mesmo jeito que voce cria a macro.. so que ao invés de macro, você seleciona a opcao "procedimento de evento" dentro do evento que voce quer.. ai ao apertar no botao la onde você define isso, vai abrir a janela do VBA já dentro do evento.

com as consultas voce vai facilitar a sua vida.. inclusive voce pode usar a consulta como fonte de registro dos seus relatorios, como se a consulta fosse a tabela em si. para tratar datas no criterio, voce usa: ENTRE #data# E #data# ex.: ENTRE #01/01/2001# E #01/02/2001# de uma olhada aqui que tem bastante material http://office.microsoft.com/pt-br/access-h...A010066611.aspx

amigo, saiba separar o que é dado e o que é informação.. cada voto registrado é um dado.. o numero de votos de cada candidato é uma informacao.. não se armazena informação.. somente dados. segue um exemplo de um sistema de votacao.. da uma olhada http://www.4shared.com/file/VHSZfV1O/votacao.html o access inclusive permite que voce adicione ate foto para cada candidato.. o exemplo esta no formato access 2010