[Resolvido]Registro em uma só linha da tabela

Salve salve galera...
Estou fazendo um pequeno sistema aki e graças ao forum está ficando supimpa... rsrsrsrs

Preciso de uma outra ajuda:

Tenho uma tabela de horas (TABPONTO) na qual tem os seguintes campos:

Reghoras03 = numeraçao automatica
Codprom03 = codigo do promotor vinculado a tabela de cadastro de promotor
data03 = data
horaentA03 = primeiro horario de entrada
horasaiA03 = primeiro horario de saida
horaentB03 = segundo horario de entrada
horasaiB03 = segundo horario de saída

Tenho os botões para gravação de cada registro porém está acontecendo assim, se caso o promotor 03 bata a entradaA, a saidaA, a entradaB e a saidaB na data de hoje está ficando assim:


Reghoras03 | codprom03 | data03 | horaentA03 | horasaiA03 | horaentB03 | horasaiB03 |
01 | 03 |24/05/2012 | 08:00 | | | |
02 | 03 |24/05/2012 | | 12:00 | | |
03 | 03 |24/05/2012 | | | 14:00 | |
04 | 03 |24/05/2012 | | | | 18:00 |


Ou seja, cada um em uma linha...

Estou usando para gravação

Dim r2 As DAO.Recordset
Set r2 = CurrentDb.OpenRecordset("tabponto")

r2.AddNew
r2![Codprom03] = Me.txcodpromenta
r2![data03] = Me.txdata03A
r2![horaentB03] = Me.txhoraentA03

r2.Update
r2.Close

Gostaria que ficasse assim:
Reghoras03 | codprom03 | data03 | horaentA03 | horasaiA03 | horaentB03 | horasaiB03 |
01 | 03 |24/05/2012 | 08:00 | 12:00 | 14:00 | 18:00 |

Em uma soh linha;


Obrigado galera.

então existe algo de errado na sua escrita não é mesmo?

exemplo você abriu um novo registro quando a pessoa bate o cartão de entrada A, mas quando ela volta a bater o de Saida A ela não tem que gerar um novo registro como diz o seu código, ela tem que editar o registro que já está na tabela...

para ter este controle você usa o que? usuário avançado do access ou um personalizado?
ou usa aquele bem caseiro que é só o peão botar o nome e apertar o botão que gera o ponto de entrada ou saída?

Boa noite, Eneas

Tente assim:
Dim r2 As DAO.Recordset

if DCount("*","tabponto","data03=#" & Me.txdata03A & "#")=0 Then
Set r2 = CurrentDb.OpenRecordset("tabponto")
r2.AddNew
r2![Codprom03] = Me.txcodpromenta
r2![data03] = Me.txdata03A
r2![horaentA03] = Me.txhoraentA03
r2.Update
r2.Close
ElseIf IsNull("horasaiA03","tabponto","data03=#" & Me.txdata03A & "#") Then
Set r2 = CurrentDb.OpenRecordset("SELECT * FROM tabponto WHERE data03=#" & Me.txdata03A & "#")
r2.edit
r2![horasaiA03] = Me.txhoraentA03
r2.Update
r2.Close
ElseIf IsNull("horaentB03","tabponto","data03=#" & Me.txdata03A & "#") Then
Set r2 = CurrentDb.OpenRecordset("SELECT * FROM tabponto WHERE data03=#" & Me.txdata03A & "#")
r2.edit
r2![horaentB03] = Me.txhoraentA03
r2.Update
r2.Close
Else
Set r2 = CurrentDb.OpenRecordset("SELECT * FROM tabponto WHERE data03=#" & Me.txdata03A & "#")
r2.edit
r2![horasaiB03] = Me.txhoraentA03
r2.Update
r2.Close
End If

Obrigado mesmo, adaptei aki seu código e deu certinho...

Muito obrigado e que Deus o abençoe...