MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+2
criquio
spaulo
6 participantes

    [Resolvido]Verificar se data já existe

    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Verificar se data já existe

    Mensagem  spaulo 22/2/2011, 11:16

    Ola pessoal tudo bem??

    tenho esta duvida:
    exemplo:

    campo = data
    o objectivo é detectar uma data igual que foi inserida a que vou inserir
    ou seja tenho o campo data que tem vários dados tipo 12-01-1999, 01-02-2000,07-04-1981 etc...
    e ao inserir uma data por exemplo 12-01-1999 ele detecte que já existe e me manda uma caixa de texto

    o problema não ta na caixa de texto ou nos if esta em detectar os dados todos .

    pois quando tento ele só me detecta a 1ª data criada ou a ultima dependo como meto o codigo mas queria tudo

    desculpem mais uma vez se n tiver a exprimir-me como deve ser

    obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  criquio 22/2/2011, 12:24

    Para isso você vai precisar de um subformulário em modo de formulário continuo ou folha de dados. Uma segunda possibilidade será com uma listbox. Uma ideia pode ser você criar uma consulta que filtre à partir da caixa de texto da data. Você cria a consulta e no critério do campo Data coloca assim:

    Como Formulários!NomeDoSubForm!NomeDoCampoData

    No evento "Após atualizar" do campo Data:

    Me.NomeDoControleSubForm.Requery

    Crie o subform ou listbox à partir dessa consulta.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 22/2/2011, 14:13

    nao percebi o que isto irá fazer??
    o que pretendo é que ao introduzir uma data ela nao seja igual a data que terei introduzido em outra altura.
    ou seja nao quero duas datas iguais eu ja tenho um formulario que apresenta todas as datas mas a função que criei so reconhece a ultima data inserida.

    On Error GoTo Err_Comando79_Click

    Dim boxresult As VbMsgBoxResult
    Dim stDocName As String
    Dim stLinkCriteria As String

    If DateValue(Now) <> Form_lst_processo.data Then

    stDocName = "identificacao_processo"
    stLinkCriteria = "[ID]=" & Me![ID]

    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"
    Else

    boxresult = MsgBox("O paciente já fez P.E. hoje, pretende continuar???", vbYesNoCancel)


    If boxresult = vbYes Then
    stDocName = "identificacao_processo"
    stLinkCriteria = "[ID]=" & Me![ID]
    ' Inseri a palavra "inserir" no argumento openargs para abrir a janela no modo inserir (ver codigo da janela)
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"
    End If
    Exit_Comando79_Click:
    Exit Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  criquio 22/2/2011, 15:02

    Amigo, não entendi bem o processo. No primeiro post você disse que queria localizar os registros com datas iguais e no segundo você disse que não quer repetir a data. Se é apenas para saber se já existe um registro para a mesma data, basta usar um DCount para verificar se o número de dados com a mesma data é maior que zero e limpe o campo para nova inserção. Algo assim:

    If DCount("*", "Tabela", "Data=#" & Me!txtData & "#") > 0 Then
    MsgBox "Já existe um registro para essa data. Escolha outra data", vbOkOnly + vbInformation, "Atenção"
    Me.txtData = Null
    Me.txtData.SetFocus
    Else
    ...
    End If




    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  criquio 22/2/2011, 15:05

    PS: Alterei o título do tópico para ficar mais condizente com a dúvida e assim facilitar a procura de outros membros.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 22/2/2011, 16:14

    ta quase lol, agora o problema ta no cardinal. porque???
    para que serve o cardinal
    ??


    If DCount("*", "Tabela", "Data=#" & Me!txtData & "#") > 0 Then
    MsgBox "Já existe um registro para essa data. Escolha outra data", vbOkOnly + vbInformation, "Atenção"
    Me.txtData = Null
    Me.txtData.SetFocus
    Else
    ...
    End If
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  criquio 22/2/2011, 16:24

    Esse símbolo é usado quando estamos referenciando Data e Hora. Pode tentar sem ele tambem, assim:

    If DCount("*", "Tabela", "Data=" & Me!txtData) > 0 Then

    ou

    If DCount("*", "Tabela", "Data='" & Me!txtData & "'") > 0 Then


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 22/2/2011, 16:31

    mais uma vez desculpa mas nao estou a conseguir
    será por nao ter uma consulta?? eu tou a tirar directamente da tabela (processo)
    ele diz operador em falta no data=


    If DCount("*", "processo", "data=" & Me!data) > 0 Then

    MsgBox "Já existe um registro para essa data. Escolha outra data", vbOKOnly + vbInformation, "Atenção"
    Me.data = Null

    Else
    stDocName = "identificacao_processo"
    stLinkCriteria = "[ID]=" & Me![ID]
    'Inseri a palavra "inserir" no argumento openargs para abrir a janela no modo inserir (ver codigo da janela)
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"

    End If
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  vieirasoft 22/2/2011, 20:46

    Um pitaco se me permitem


    Porque não colocar duplicação não autorizada no campo na tabela.

    A máscara de entrada 00/00/0000;0;_ para evitar valores com hora e minuto.

    Talvez resolva
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 09:34

    vieirasoft

    ola vieira é bem visto, mas o que acontece é que a data n se pode repetir para um paciente mas pode se repetir sendo outro paciente...

    ou seja eu tenho uma tabela com os pacientes nome, idade etc e outra com os processos que inclui a data e outro tipo de campos

    um paciente nao pode ter 2 processos com a mesma data no mesmo dia mas pode haver varios doentes no mesmo dia a ter um processo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  Assis 23/2/2011, 10:44

    Bom dia

    Só para ver se ajuda ? ...

    http://dl.dropbox.com/u/8169944/SPaulo.mdb


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 11:52

    Assis

    nao é bem isso o que pretendo é ao inserir uma data no campo data do formulario (processo) do paciente, ele me apresente uma msg como a dizer se ja tenho um processo desse mesmo paciente com a mesma data ou n

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  vieirasoft 23/2/2011, 12:13

    Paulo

    Vi o exemplo que o Assis postou e está nota 10. Se você quer ir por outro caminho, então terá que fazer o seguinte: (devem existir outras possibilidades)

    Uma textbox independente, formatada para Data abreviada. O valor pre definido deve ser =Agora() e pode coloca-la invisível.
    Esta caixa vai servir de comparação com o seu campo data do processo

    Agora nesse campo data do processo no evento antes de actualizar:

    Dim Msg, Style, Title
    Msg = "A data deste processo já existe"
    Style = vbInformation
    Title = "Aviso"
    If Datado Processo.Value <> Texto0.Value Then
    Msg = MsgBox(Msg, vbInformation, Title)
    End If

    A partir daqui pode colocar e alterar como quizer para que a mensagem fique dav forma que entende.
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 12:16

    Private Sub data_Exit(Cancel As Integer)
    Dim boxresult As VbMsgBoxResult
    If Me.data <> Form_lst_processo.data Then
    MsgBox ("continuar")

    Else
    boxresult = MsgBox("O paciente já tem uma P.E. com a mesma data", vbYesNoCancel, "pretende continuar??")

    End If
    End Sub

    eu criei este código o Form_lst_processo apresenta todas as datas criadas

    mas o problema ta é que o codigo so reconhece a primeira data criada e nao as restantes
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 12:33

    o problema não ta em o prog do Assis estar bom ou não, o que pretendo é que não é compatível com que ele fez, pois o prog dele usa um paciente com uma data e se for a inserir outro paciente com a mesma data da a msg.

    mas não é isso que pretendo pois o paciente da minha aplicação tem varias datas. porque o paciente é de uma tabela exemplo: identificacao, e a data é de outra tabela exemplo: processo e ela tem uma relação de 1 para muitos.

    ou seja o paciente tem varias datas, (conforme o numero de processos criados,ah as datas são editáveis)
    vou dar um exemplo:

    o Paulo tem 3 processo com as datas 12-12-1999, 12-11-1999, 10-01-2011

    e hoje eu queria criar outro processo para o paulo mas com a data do 10-01-2011 mas como ja exite essa data eu pretendia que me avisasse.


    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  vieirasoft 23/2/2011, 12:39

    Paulo

    Você não está a entender ou eu também não. Dê a possibilidade de o utilizador criar ou não a data do processo, avisando que a mesma se já existir, existe. Da forma que lhe passei pode ou não criar quantos processos entender na mesma data sem interferir com outros novos processos a criar.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  Assis 23/2/2011, 13:16

    Boa tarde Paulo

    Quem escreveu

    um paciente nao pode ter 2 processos com a mesma data

    o Paulo tem 3 processo com as datas 12-12-1999, 12-11-1999, 10-01-2011

    e hoje eu queria criar outro processo para o paulo mas com a data do 10-01-2011


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 14:12

    Pessoal desculpem se não me tou a fazer perceber, culpa minha não é fácil explicar algo como isto.

    Dim Msg, Style, Title
    Msg = "A data deste processo já existe"
    Style = vbInformation
    Title = "Aviso"
    If Datado Processo.Value <> Texto0.Value Then
    Msg = MsgBox(Msg, vbInformation, Title)
    End If

    vieirasoft o codigo k fez nao é mto diferente do meu:

    Private Sub data_Exit(Cancel As Integer)
    Dim boxresult As VbMsgBoxResult
    If Me.data <> Form_lst_processo.data Then
    MsgBox ("continuar")

    Else
    boxresult = MsgBox("O paciente já tem uma P.E. com a mesma data", vbYesNoCancel, "pretende continuar??")

    End If
    End Sub

    acho que mesmo que mesmo que use o seu código o efeito vai dar o mesmo ou seja ele so vai mandar a mensagem se a data que eu inserir for igual a ultima data inserida mas se inserir uma data que ja exita mas que nao seja a ultima nao reconhece
    eu mandava o programa mas em geral ninguem tem o access 2010


    mais uma vez desculpem
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  JPaulo 23/2/2011, 14:31

    Um pitaco simples;

    Em vez de utilizar no evento ao saír do seu campo data, faça no evento antes de atualizar;

    Mude para os nomes correctos;


    Private Sub SeuCampoData_BeforeUpdate(Cancel As Integer)
    Dim xNome As String
    If DCount("SeuCampoPaciente", "SuaTabela", "SeuCampoPaciente='" & Me!SeuCampoPaciente & "' AND SeuCampoData = #" & Me!SeuCampoData & "#") > 0 Then
    If MsgBox("O paciente já tem uma P.E. com a mesma data." & Chr(13) & Chr(10) & "Deseja visualizar ?", vbCritical + vbYesNo, "Aviso") = vbYes Then
    xNome = Me!SeuCampoPaciente
    Me.Undo
    DoCmd.ApplyFilter , "SeuCampoPaciente ='" & xNome & "'"
    Else
    Exit Sub
    End If
    End If
    End Sub




    Última edição por JPaulo em 23/2/2011, 16:46, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se data já existe Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se data já existe Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se data já existe Folder_announce_new Instruções SQL como utilizar...
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 16:32

    JPaulo
    tudo bem??

    o teu código ate ta porreiro mas o problema é quando insiro a data ele considera sempre que exite?? o que tou fazer de mal??
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  JPaulo 23/2/2011, 16:38

    Como este tópico já vai longo, quer colocar em site publico o seu banco ou parte dele para resolvermos isso para si ?





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se data já existe Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se data já existe Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se data já existe Folder_announce_new Instruções SQL como utilizar...
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 16:43

    Jpaulo

    ja consegui so troquei a ordem espero que esteja bem

    Private Sub data_BeforeUpdate(Cancel As Integer)

    Dim xNome As String
    If DCount("processo.data", "qry_processo", "processo.data=#" & Me!data & "#") = 0 Then

    Else
    If MsgBox("O paciente já tem uma P.E. com a mesma data." & Chr(13) & Chr(10) & "Deseja continuar ?", vbCritical + vbYesNo, "Aviso") = vbYes Then
    DoCmd.ApplyFilter , "processo.data ='" & xNome & "'"
    Exit Sub
    End If
    End If
    End Sub


    se tiver mal alguma coisa digam para n ficar com erros futuramente agradeço, desculpem o topico tao longo, e ate enviava a BD mas eu uso o access2010 acho que ninguem o tem (pelo menos antes nao tinham)

    obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  JPaulo 23/2/2011, 16:48

    Veja o exemplo;

    http://dl.dropbox.com/u/771097/spaulo.rar

    No codigo acima eu tinha colocado =0, mas já rectifiquei para >0


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se data já existe Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se data já existe Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se data já existe Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  JPaulo 23/2/2011, 16:51

    No seu está só a olhar para a data e não para o paciente vs data.

    Até porque tenho duvidas quanto ao funcionamento desse jeito, processo.data

    Evite ao maximo colocar palavras reservadas do Access no nome dos campos, Data é uma delas.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se data já existe Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se data já existe Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se data já existe Folder_announce_new Instruções SQL como utilizar...
    avatar
    spaulo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 52
    Registrado : 08/10/2010

    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  spaulo 23/2/2011, 16:57

    ok rectifiquei e meti como disseste mto obrigado a todos demorou mas foi Shocked

    agora ta porreiro
    avatar
    kantigas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 1
    Registrado : 29/11/2009

    [Resolvido]Verificar se data já existe Empty Problema Semelhante

    Mensagem  kantigas 30/9/2015, 14:21

    Olá a todos
    Boa tarde
    Sou Carpinteiro mas gosto de mexer com o Access
    Um amigo pediu-me se eu conseguia fazer um base de dados para marcação de consultas numa veterinária
    Eu estou a tentar mas não vou lá
    Podem ajudar-me?

    No formulario está mais detalhado o problema

    Aqui vai o link da base de dados em access 2003 e 2007
    https://www.dropbox.com/s/emf1b0hxgry7f31/VET.rar?dl=0

    09.30.2015 14:21:02

    Conteúdo patrocinado


    [Resolvido]Verificar se data já existe Empty Re: [Resolvido]Verificar se data já existe

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:42