[Resolvido]Inserir dados em campo vazio...

Olá para todos,
Tenho uma Tab1 com os campos USE - Data - EM - SM - ET - ST - EE - SE ( os campos correspondem respectivamente a Usuário, data, entrada manhã, entrada tarde... saida extra.). Ao inserir os dados(através de cod. de barras) será preenchido o campo USE com um código previamente cadastrado em outra tabela e também serão preenchidos os campo Data e EM (Data/Horário atual). Será que tem como o preenchimento ser sucessivo nos demais campos, ou seja cada vez que o usuário fizer o registro o sistema prencher sucessivamente o campo que estiver vazio??? Espero ter conseguido me explicar...
Abraços.

Não ficou muito claro. Se tem um dado padrão para cada campo, você pode colocar uma condição If:

If IsNull(Me.NomeCampo1) Or Me.NomeCampo1.Value = "" Then
Me.NomeCampo1 = ...
ElseIf IsNull(Me.NomeCampo2) Or Me.NomeCampo2.Value = "" Then
Me.NomeCampo2 = ...
...
End If

Valeu pela dica criquio, mas só insere dados no primeiro registro da tabela independente do Usuario que faz o registro, ou seja ao inserir o codigo(Usuário) deveria registrar no campo vazio correspondente....outra coisa se não for abusar, tem como ao mudar a data do sistema ser inserido uma novo registro com Usuario - Data(atual)...

Se puder me ajudar agradeço...

Marcelo

Não entendi bem o que precisa. Você precisa preencher registros de uma tabela sem ser o registro atual em um formulário?

Sim é isso, deixa eu ver se consigo explicar melhor: o sistema que estou tentando fazer é de controle de frequência de funcionários, e será usado para registrar o ponto diário de cada um através de um cracha com código de barras, o formulario ficará aberto e ao ser lido o cod. de barras deverá prencher a tabela acima, no caso se não tiver registro daquela data do usuário esse deverá ser criado (com data atual(campo Data)e hora atual(campo EM) do sistema), porém se já houver registro da data do dia ai será preenchido o próximo campo vazio....
Espero ter conseguido explicar...

Muito obrigado pela atenção...

Ah, você precisa então de um RecordSet com as funções FindFirst e Edit. Se não existe, acrescenta, se existe, edita.
No Repositório de Exemplos tem alguns exemplos sobre isso. Caso não consiga, vou ver depois se coloco aqui um exemplo de código.

Caro criquio,
eu tentei mas travei ai:

Private Sub Insere_AfterUpdate()
If DLookup([Dia], "regdia", [usu_cd_cod] = Forms!masterpage!Insere = "" And [Dia] = Date And [Dia] Is Null) Then
DoCmd.RunSQL "update regdia set [EM]= time() where usu_cd_cod = Forms!masterpage!insere and [dia] = Date and [EM] is null"
If IsNull(Me.EM) Or Me.Insere.Value = "" Then
Me.EM = Time()
Else
If IsNull(Me.SM) Or Me.Insere.Value = "" Then
Me.SM = Time()
Else
If IsNull(Me.ET) Or Me.Insere.Value = "" Then
Me.ET = Time()
Else
If IsNull(Me.ST) Or Me.Insere.Value = "" Then
Me.ST = Time()
Else
If IsNull(Me.EE) Or Me.Insere.Value = "" Then
Me.EE = Time()
Else
If IsNull(Me.SE) Or Me.Insere.Value = "" Then
Me.SE = Time()
End If
End If
End If
End If
End If
End If
End If

End Sub


e ainda dá erro de execução "424" (Objeto é obrigatorio).

Obs. sem a Linha:

If DLookup([Dia], "regdia", [usu_cd_cod] = Forms!masterpage!Insere = "" And [Dia] = Date And [Dia] Is Null) Then

... funciona mas não insere o dado "digitado" no campo insere...

por enquanto valeu...

Amigo, um conselho, eu uso isso e da menos trabalho.

Esse critério que vc colocou no DLookup, faça em uma consulta e depois chame o DLookup como quiser.

Exemplo:

Private Sub Insere_AfterUpdate()

If DLookup("[Dia]", "CampoDaConsulta") Then
DoCmd.RunSQL "update regdia set [EM]= time() where usu_cd_cod = Forms!masterpage!insere and [dia] = Date and [EM] is null"

If IsNull(Me.EM) Or Me.Insere.Value = "" Then
Me.EM = Time()
exit sub
Else
endif

If IsNull(Me.SM) Or Me.Insere.Value = "" Then
Me.SM = Time()
exit sub
Else
endif

If IsNull(Me.ET) Or Me.Insere.Value = "" Then
Me.ET = Time()
exit sub
Else
endif

If IsNull(Me.ST) Or Me.Insere.Value = "" Then
Me.ST = Time()
exit sub
Else
endif

If IsNull(Me.EE) Or Me.Insere.Value = "" Then
Me.EE = Time()
exit sub
Else
endif

If IsNull(Me.SE) Or Me.Insere.Value = "" Then
Me.SE = Time()
exit sub
Else
endif

ainda não esta pronto mas assim fica mais facil entender, acho que só tem que arrumar o RunSql

O que pode estar errado no código abaixo:


If DLookup("[usu_cd_cod]", "Regcon") Then
DoCmd.RunSQL "INSERT INTO Regdia ( usu_cd_cod ) "
Select public_tb_usuario.usu_cd_cod
FROM public_tb_usuario
WHERE (((public_tb_usuario.usu_cd_cod) = [Forms]![masterpage]![usu_cd_cod]))

If IsNull(Me.EM) Or Me.Insere.Value = "" Then
Me.EM = Time()
Exit Sub
Else
End If

If IsNull(Me.SM) Or Me.Insere.Value = "" Then
Me.SM = Time()
Exit Sub
Else
End If

If IsNull(Me.ET) Or Me.Insere.Value = "" Then
Me.ET = Time()
Exit Sub
Else
End If

If IsNull(Me.ST) Or Me.Insere.Value = "" Then
Me.ST = Time()
Exit Sub
Else
End If

If IsNull(Me.EE) Or Me.Insere.Value = "" Then
Me.EE = Time()
Exit Sub
Else
End If

If IsNull(Me.SE) Or Me.Insere.Value = "" Then
Me.SE = Time()
Exit Sub
Else
End If
End If


End Sub



Na linha "Select public_tb_usuario.usu_cd_cod", está dando a mensagem:

Erro de sintaxe
Era esperado case

Gostaria de o ajudar, se eu entende-se o que você pretende.

If quer dizer Se

Então Se o quê ????

If DLookup("[usu_cd_cod]", "Regcon") Then

Todos estes campos (EM - SM - ET - ST - EE - SE ) estão no formulario ?


Tente o simples;

Private Sub Form_Current()

If Me.NewRecord Then

If IsNull(Me.SM) Then
Me.SM = Time()
End If

If IsNull(Me.ET) Then
Me.ET = Time()
End If

If IsNull(Me.ST) Then
Me.ST = Time()
End If

If IsNull(Me.EE) Then
Me.EE = Time()
End If

If IsNull(Me.SE) Then
Me.SE = Time()
End If

Else

Exit Sub
End If
End Sub

Vou tentar explicar umpouco mais,

graças as dicas de vocês, cheguei ao resultado abaixo,ou seja, ao ser digitado um nº(= usu_cd_cod) no campo "Insere" do Form "masterpage" são inseridos dados na tabela Regdia, inicialmente nos campos [usu_cd_cod](=nº digitado), [Data](Data())e [EM](Time()) e se digitado o mesmo nº o código vai preenchendo sucessivamente os campos [SM], [ET], ..., [SE].

Private Sub Insere_AfterUpdate()
Dim achauso
cod = Insere
achauso = (DLookup("[usu_cd_cod]", "Regdia", [cod] = Insere & [Dia] <> Date))
If IsNull(usu_cd_cod) Then
MsgBox "Usuário não cadastrado", vbCritical, " Erro"
Else
DoCmd.ApplyFilter , [Insere] = [Forms]![masterpage].[cod]
Me.Texto2.SetFocus
End If
If IsNull(Me.EM) Or Me.Insere.Value = "" Then
Me.EM = Time()
Exit Sub
Else
End If

If IsNull(Me.SM) Or Me.Insere.Value = "" Then
Me.SM = Time()
Exit Sub
Else
End If

If IsNull(Me.ET) Or Me.Insere.Value = "" Then
Me.ET = Time()
Exit Sub
Else
End If

If IsNull(Me.ST) Or Me.Insere.Value = "" Then
Me.ST = Time()
Exit Sub
Else
End If

If IsNull(Me.EE) Or Me.Insere.Value = "" Then
Me.EE = Time()
Exit Sub
Else
End If

If IsNull(Me.SE) Or Me.Insere.Value = "" Then
Me.SE = Time()
Exit Sub
Else
End If

End Sub


Agora vem a bomba:

eu preciso que ao mudar a data do sistema(=Data()), o código comece a inserir tudo outra vez ,ou seja, inicialmente os campos [usu_cd_cod](=nº digitado), [Data](Data())e [EM](Time()) e se digitado o mesmo nº o código vai preenchendo sucessivamente os campos [SM], [ET], ..., [SE].

Agradeço a todos que até aqui me ajudaram e espero no futuro poder fazer o mesmo.

puxa vida ninguem, por favor mestres, necessito de vossas ajuda...

Poste parte de seu banco para analizarmos, a olho nú assim somente para feras como JPaulo ou Vieira.

Não entendi a sua ultima duvida, pode detalhar ?

Um If para validar a mudança de data não serve ?

achauso = DLookup("[usu_cd_cod]", "Regdia", "[cod]=" & Insere & [Dia])

If achauso <> Date() Then
bla bla bla
...

Olá pessoal, eu montei um esquema pra ver se consigo explicar melhor...

por enquanto Valeu... muito obrigadooo.