Qual o código ou procedimento para fazer esta aplicação funcionar?

[PATRICIO1105]

Boa noite,

Gostaria muito de obter ajuda, para ultrapassar esta etapa na aplicação que estou a desenvolver para; uma associação para o estudo de aves, sem fins lucrativos.

Vossos contributos são muito apreciados e preciosos.

Urgente.

Para melhor perceberem o que pretendo, desenvolvi uma imagem esquemática explicativa, que se encontra em:http://www.mh2img.net/showoriginal-83980/conheçer_código.jpg

Cumprimentos

Vitor Patrício

[Iceguy]

Isso foi feito em Access ou Excel?

[PATRICIO1105]

Boa noite,

Isto tem sido desenvolvido em acess, contudo aceito sugestões em excel.

Desde já agradeço a atenção.

Cumprimentos

[Iceguy]

Existe um forum específico de Access, talvez um Moderador/Administrador possa mover esse tópico pra lá.

Um exemplo que pode te ajudar é assim, em um banco de dados novo, crie um módulo com o seguinte código:

Private Sub Configurar()
    Dim db As Database
    Dim sqlstr As String
   
    Set db = CurrentDb()
   
    sqlstr = "CREATE TABLE tblAtividades(data DATETIME, atividade INT," & _
        " responsavel VARCHAR(50), Primary Key(Data, atividade))"
    db.Execute (sqlstr)
   
    sqlstr = "CREATE TABLE tblEmpregados(nome VARCHAR(50),Primary Key(nome))"
    db.Execute (sqlstr)
   
    sqlstr = "INSERT INTO tblEmpregados (nome) VALUES ('José')"
    db.Execute (sqlstr)
   
    sqlstr = "INSERT INTO tblEmpregados (nome) VALUES ('Maria')"
    db.Execute (sqlstr)
   
    sqlstr = "INSERT INTO tblEmpregados (nome) VALUES ('João')"
    db.Execute (sqlstr)
   
    db.Close
    Set db = Nothing
End Sub

Execute o código (Apertando F5) Agora ao executar a consulta

SELECT nome
FROM tblEmpregados
WHERE nome NOT IN (
    SELECT responsavel
    FROM tblAtividades
    WHERE data = #03/10/2011#
);

Retorna José, Maria e João Execute agora

INSERT INTO tblAtividades (data, atividade, responsavel)
VALUES (#03/10/2011#, 1, 'Maria');

Agora novamente a consulta

SELECT nome
FROM tblEmpregados
WHERE nome NOT IN (
    SELECT responsavel
    FROM tblAtividades
    WHERE data = #03/10/2011#
);

Note que agora retorna somente José e João, ou seja, tente criar um formulário com uma textBox para a data e uma comboBox para cada atividade. Coloque um código que ao atualizar uma comboBox ele crie a atividade para aquela pessoa em específico e grave no banco, depois de um Requery nas demais comboBox usando a consulta do exemplo, assim você não deixa uma pessoa fazer duas ou mais atividades no mesmo dia. Insira essa função em um módulo, ela serve para dar um Requery em todos os combos é a seguinte

Public Sub ComboBoxRequery(frm As Form)
    Dim controle As Control
    
    For Each controle In frm.Controls
        Select Case frm.ControlType
            Case acComboBox:
                controle.Requery
            Case Else:
        End Select
    Next controle
End Sub

E para chamá-la use o código no evento de atualização de cada comboBox assim:

ComboBoxRequery Me

Espero que isso possa ajudar

[PATRICIO1105]

Boa noite,

Agradeço tua ajuda preciosa.

Certamente irá servir de base para meu trabalho e testes.

Muito agradecido.

Abraço.