MrMALJ

Fera você fez os testes no BD localmente, pois, se estivier funcionando local então seria um problema da sua aplicação e assim eu moveria seu post para a seção de ASP, aguardo retorno!

Olha tente substituir a virgula por ponto e virgula, e por favor evite QUOTEs desnecessários ok!

Ok se entendi bem o que você precisa é que quando você carregar o formulário, ela já se posicione no novo registro. É bem simples vá na propriedade de evento "Ao abrir" ou "Ao carregar" (escolha codigo Construtor de Código)e digite a linha seguinte: docmd.gotorecord ,,acnewrec Bom é isso, aguardo retorno para colcoar este tópico como resolvido!

Se o form é baseado numa consulta é bem presumo que o registro na tela seja já filtrado com o recebimento que deseja, dessa forma as alteração nos objetos deveriam refletir diretamente tabela sem precisar de botões, mais se for crie um acSave (salvar/gravar) utilizando o próprio assistente de botões.

Uma saída simples seria a criação de um campo Emprestado do tipo simnão que quando tivesse como sim este livro ficaria com o Status de não disponível e quando fosse feita a devolução erá só mudar o Status, porém, seria interessante se ter um historico de quem já leu ou utilizou a obra e por isso acho conveniente criar uma outra tabela relacionada com a principal para armazenar quem e quando pegou e quando devolveu.

Cara complicado isso melhor você postar pra gente assim que puder poder analisar.

Crie um campo com um objeto caixa de texto com a formatação desejada e utilize-o como critério Como "*" & forms!seuForm!seuCampo & '*' Dessa forma ele busca com o formato pre-definido na caixa de texto do formulário, ou seja você já poderia chamar o relatorio que essa consulta vai gerar apartir desse formulário.

Na propriedade de "No atual" do form faça um codigo assim: (vou chamar o campo sin não de campoSN) if me.campoSN=true then me.campo1.enabled=true me.campo2.enabled=true me.campo3.enabled=true me.campo4.enabled=true me.campo5.enabled=true else me.campo1.enabled=false me.campo2.enabled=false me.campo3.enabled=false me.campo4.enabled=false me.campo5.enabled=false end if E na propriedade de evento "Após atualiza" do campo sim não: if me.campoSN=true then me.campo1.enabled=true me.campo2.enabled=true me.campo3.enabled=true me.campo4.enabled=true me.campo5.enabled=true else me.campo1.enabled=false me.campo2.enabled=false me.campo3.enabled=false me.campo4.enabled=false me.campo5.enabled=false end if Bom isso deve resolver seu problema.

Bom quando você cria as tabelas você deve planeja-las de modo que hajam os campos necessário fazer o relacionamento entre elas, sugiro que a principio você utilize a busca aqui do forum para baixar umas das apostilas básicas para você entender como criar os relacionamentos, depois podemos ir ajudando vocÊ com as duvidas que surgirão durante o desenvolvimento, aproveita tambem e dá uma olhada no banco de exemplo do próprio acces o NORTHWIND que tem bastante coisa que pode lhe ser útil.

A função NZ() fará isso pra você facilmente, veja o exemplo de uso: select nz(seuValor,0) from sua tabela; É isso simples e direto a sintaxe do comando após a virgula você informa qual deverá ser o valor que será retornado caso o valor seja nulo. Em caso de ocorrer algum erro troque a vigula por ponto e virgula na expressão sql.

Fera como disse o conceito é o mesmo só adapte o código sql para essa situação!

Faça uma comparação antes de realizar o processo, veja: Private Sub Nascimento_data_BeforeUpdate(Cancel As Integer) if not isnull(seuCampoData) then Dim Idade As Byte If Not [Nascimento data] = 0 Then Idade = DateDiff("yyyy", [Nascimento data], Now) End If If Month([Nascimento data]) > Month(Date) Then Idade = Idade - 1 Else If Month([Nascimento data]) = Month(Date) Then If Day([Nascimento data]) > Day(Date) Then Idade = Idade - 1 End If End If End If Select Case Idade Case Is < 25 Me.Idade = "18 - 24 ANOS" Case Is < 30 Me.Idade = "25 - 29 ANOS" Case Is < 35 Me.Idade = "30 - 34 ANOS" Case Is < 46 Me.Idade = "35 - 45 ANOS" Case Is < 61 Me.Idade = "46 - 60 ANOS" Case Else Me.Idade = "MAIS DE 60 ANOS" End Select end if End Sub

Estando o subformulário no no seu formulário principal (aqui vou chama-lo de sublanca) basta você colocar um código que atualize o campo no subformulário (vou chama-lo de subvalor) sempre que a caixa de texto de valor do principal seja alterado, pra isso vá na propriedade de evento "Após atualiar" do campo valor e fazer algo assim: me!sublanca!subvalor.value=1 ok!

Na propriedade de evento NO ATUAL do formulario faca uma prevalidacao do campo para ativar ou desativar, ou seja coloca essa comparacao nessa propriedade ok!

Fera poste o seu bd ou parte dele pra poder analisar melhor.

Bom supondo que na tblEstado tenha o campo e na tblCidade tenham os campos uf e cidade, você pode simplestimente relaciona-las direto usando o editor de relacionamentos do access, agora se você deseja filtrar por exemplo uma combobox com resulta de outro objeto dai sempre que você atualizar o objeto uf do formulário você tem que dar um requery no objeto como de cidades, desde que a origem da linha tenha um codigo semelhante a este: select cidade from tblCidade where uf=forms!seuFormulario!seuObjetoUF Para a segunda dúvida utilize o mesmo conceito. Quanto a 3ª você pode desabilitar utilizando as propriedades do objeto ou via vba com um código assim: me.seuObjeto.enabled=false Isso deve resolver, aguardo retorno!

Aparentemente os 2 codigos estão corretos, qual erro que ocorre? Você já verificou se não está pegando a possição errada para extração da letra?

Você não irá criar um campo autonumeração e sim um campo texto para poder implementar o que deseja já que o traço não é numero depois criar um codigo para concatenar o que deseja por exemplo na hora de efetivar o registro, supondo que sua caixa texto onde será gerada o valor tenha o nome de txt1 faria um codigo mais ou menos assim em algum lugar antes de efetivar o registro me.txt1.value=format(Month(Date(),"00") & day(data()) & "-" & format(hour(time()),"00") & format(minute(time()),"00") É por ai você pode inserir um código adaptado a sua realidade no momento de gravar ou quando alterar/atualizar algum objeto. Espero que isto ajude aguardo retorno.

Bom você terá que usar comando de alguma liguagem para web como o ASP por exemplo dessa forma estou movendo seu tópico para a sessão correspondente.

Se esse outro está ok, vocÊ poderia copia-lo, limpa-lo e utiliza-lo para esse novo ano.

Utilize consulta e crie seus relatorios com base nas consultas, essas consultas podem utilizar dados do formulário como criterio para filtrar o que se pretende imprimir, no caso de ser iniciante utilize a busca do forum para encontrar algumas apostilas postadas aqui para lhe ajudar como funciona as relações no access.

Seria interessante se postassem as resoluções conseguidas para que outros que tenham duvidas iguais ou semelhantes pudessem aproveitar.

A caixa de texto onde a numeração é mostrada pode estar com umascara limitando para 4 caracteres ("9999") veja na propriedade dela para retirar ou alterar essa mascara.

Está confuso isso que você expoz, pelo menos eu não consegui compreender.

Uma solução simples seria você fazer um filtro com o DDD desejado e usar o "localizar e substituir" do próprio access (menu editar), posicionando e mandanda encontra e substituir todos os xxx- por xxxx-, isso seria uma forma simples de fazer isso que você quer. Retorne se deu certo ok!