RESERVA DE REGISTRO COM LENTIDAO REDE

BRUNOJUL 04/02/2014 17:32:10
#434248
Olá , boa tarde.

Podem ajudar ,

Tenho este codigo de reserva de registro em banco access mas devido a lentidão da rede ele reserva mais de um registro para o mesmo Usuário.

rs.Open [Ô][Ô] & TBL & [Ô][Ô], con, adOpenKeyset, adLockOptimistic, adCmdTable [ô] Todos os registros da tabela[Ô]

Do While Not rs.EOF
If IsNull(rs.Fields([Ô]NOME_RESERVA[Ô])) Then
rs.Fields([Ô]NOME_RESERVA[Ô]) = mdPrincipal.Toolbar1.Buttons.Item(1)
rs.Fields([Ô]STS_RESERVA[Ô]) = [Ô]PENDENTE[Ô]
rs.Fields([Ô]HORA_RESERVA[Ô]) = Now
rs.Fields([Ô]DATA_RESERVA[Ô]) = Date [ô]Format(Date, [Ô]dd/m/yyyy[Ô])
rs.Update
QtdContatos = QtdContatos + 1
[ô]frm_tratativa.txt_id = rs.Fields(0)
End If

If QtdContatos = 1 Then

GoTo proximo
End If
rs.MoveNext

Loop
MsgBox [Ô] ATENÇÃO REGISTRO ESGOTADO CONTATE O ADMINISTRADOR[Ô], vbInformation, [Ô]RI[Ô]

proximo:

Call ExibeReserva(usuario, TBL)

Grato;
FILMAN 04/02/2014 17:52:21
#434253 Resposta escolhida
o que a função ExibeReserva faz?
BRUNOJUL 04/02/2014 19:10:57
#434263
è uma função onde apos a reserva do resgistro ela exibir os dados em textbox
FILMAN 04/02/2014 19:46:11
#434265
Em qual momento esta gravando o usuário?

a função Now não retorna somente a hora atual e sim a data também se quiser somente a hoje use a função Time

poste a estrutura da tabela pra mim ver!
Tópico encerrado , respostas não são mais permitidas
Voltar