[Resolvido]Não permitir duplicação de registos

Access 2010
Boa tarde,
Tenho um form com uma listbox multiSelect.(Form1)
Nesse form existe um botão que adiciona os items selecionados da listbox numa tabela.(Tabela1)
Gostava de saber como evitar duplicar registos na Tabela1, no caso de me esquecer que já tinha adicionado os referidos registos.
Segue exemplo.
Obrigado

https://www.dropbox.com/s/gpymv1yezvnqdt9/multiSelect.rar

Boas Future... Se possível disponibilize em 2007 ou 2003, poucos usuarios possuem o 2010.

Mas para isto podes utilizar o Dlookup para pesquizar em sua tabela, em havendo emite menssagem e cancela.


Cumprimentos.

Na estrutura da Tabela1, veja a propriedade Indexado, e marque como:
Sim (Duplicação não autorizada) para esses campos que você quer.

Opa! Postei um pouco depois, foi mal.

2003
https://www.dropbox.com/s/i4u9pj4y9yqmwe2/multiSelect_2003.rar?m

Veja aí:

Peço desculpa mas o exemplo não estava correcto.
Falta-lhe um campo na tabela1.
Ou seja, o campo [CodId] e [Nome] podem ser repetidos desde que estejam em reuniões diferentes.
ex:
O "Rui" e o "Jose" podem estar em várias reuniões mas não quero que estejam 2 vezes na mesma.

https://www.dropbox.com/s/4cmf2p8002kphsg/multiSelect_2003_1.rar?m

Sem problemas amigo Leandro... Prossiga.

Abraços.

Você quer dizer que não podem se repetir na mesma sequência?

Ex,
jose rui manoel
jose rui manoel

É isso?

Não, já reparaste no último exemplo que coloquei?
Ao longo do ano tenho várias reuniões, 1 ,2 , 3 ...etc.
Na reunião 1 só foi por ex. o Jose e o Rui, na 2 o Rui, na 3 o Jose, O Rui e o Manuel.
O que eu quero evitar é a duplicação dos nomes na mesma reunião.
Obrigado

Private Sub Comando2_Click()
On Error GoTo ErrorHandler

Dim StrExiste As String

Set ctl = Me.Lista0
For Each varItem In ctl.ItemsSelected

StrExiste = DCount("Nome", "Tabela1", "CodId =" & ctl.Column(0, varItem) & " And Nome = '" & ctl.Column(1, varItem) & "'")

If StrExiste = 0 Then

CurrentDb.Execute ("INSERT INTO Tabela1 (CodId, Nome) Values(""" & ctl.ItemData(varItem) & """," _
& """" & ctl.Column(1, varItem) & """)")
End If

Next varItem

ExitHandler:
Set rs = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
Select Case Err
Case Else
MsgBox Err.Description
DoCmd.Hourglass False
Resume ExitHandler
End Select

End Sub


Cumprimentos.

Obrigado a todos resolvido da seguinte forma:



Private Sub Comando2_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim ctl As Control
Dim varItem As Variant


On Error GoTo ErrorHandler

Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela1", dbOpenDynaset, dbAppendOnly)


If Me.Lista0.ItemsSelected.Count = 0 Then
MsgBox "Tem de selecionar pelo menos um jogador"
Exit Sub
End If


Set ctl = Me.Lista0
For Each varItem In ctl.ItemsSelected
If IsNull(DLookup("Id", "Tabela1", "CodId =" & ctl.Column(0, varItem) & " And Reuniao_N = " & Me.NR & "")) Then

rs.AddNew
rs!CodId = ctl.ItemData(varItem)
rs![Nome] = ctl.Column(1, varItem)
rs!Reuniao_N = Me.NR
rs.Update

Else
Me.Undo
End If
Next varItem
ExitHandler:
Set rs = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
Select Case Err
Case Else
MsgBox Err.Description
DoCmd.Hourglass False
Resume ExitHandler
End Select

End Sub

Obrigado mais uma vez a todos que tentaram ajudar e ao forum

Boas Future... Eu particularmente para este caso não creio ser necessário a utilização de um procedimento Recordset, pois você carrega o mesmo depois Adiciona, atualiza...

Para este procedimento a instrução Insert Into é mais prática e lhe diminui execução de tempo em confecção e execução dos códigos no procedimento.

Há várias maneiras de se chegar a um resultado, no entanto deves aplicar a mais apropriada. Na minha humilde opinião creio que neste caso o Insert Into seria mais apropriado.


O Fórum Agradece o Retorno.