[Resolvido]Escrever nas celulas

Boas

este código está certo?

Private Sub prazo_Projecto()

If tempototal > horastotais Then
CurrentDb.Execute "UPDATE Horas_Projecto SET prazo = Dentro do Prazo"
ElseIf tempototal < horastotais Then
CurrentDb.Execute "UPDATE Horas_Projecto SET prazo = Fora do Prazo"
End If

End Sub

tempototal e horastotais são colunas na tblHoras_Projecto.
Ele executa mas não escreve nada!

Dados tipo texto precisam ficar entre aspas simples e duplas:

Private Sub prazo_Projecto()

If tempototal > horastotais Then
CurrentDb.Execute "UPDATE Horas_Projecto SET prazo='" & "Dentro do Prazo" & "'"
ElseIf tempototal < horastotais Then
CurrentDb.Execute "UPDATE Horas_Projecto SET prazo='" & "Fora do Prazo" & "'"
End If

End Sub

não escreve nada amigo.

prazo está formatado para texto e as outras duas colunas são números!
Será que ele está a fazer as contas?

Não estaria ainda faltando passar a chave primária do registro ou algum outro campo único na expressão?

...
CurrentDb.Execute "UPDATE Horas_Projecto SET prazo='" & "Dentro do Prazo" & "' WHERE Código=" & Me.Código & ""
...

Não estou a perceber...

Preciso apenas que se o valor da coluna tempototal for maior que horastotais ele escreva na coluna prazo "Dentro do Prazo".

Será que tenho que declara variáveis para o valor das colunas?

tempototal e horastotais são campos do formulário ou estão apenas na tabela?

são todos campos de uma tabela!
apenas "prazo2 está formatado como texto!

Então você quer atualizar várias linhas ao mesmo tempo? Se for isso, precisará abrir a tabela para fazer as atualizações. Algo como:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
If rs!tempototal > rs!horaistotais Then
rs!prazo='" & "Dentro do prazo" & "'"
Else
rs!prazo='" & "Fora do prazo" & "'"
End If
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Como não sei qual é a estrutura da tabela e se tem outros pormenores a serem considerados, sugiro que cria uma cópia do bd e faça essa alteração nessa cópia. Se der tudo certo, basta renomear a cópia para a original.

Da-me erro nas linhas:

rs!prazo='" & "Dentro do prazo" & "'"

Erro: Sintexe error

Private Sub Comando61_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Horas_Projecto")

Do While Not rs.EOF
If rs!tempototal > rs!horaistotais Then
rs!prazo='" & "Dentro do prazo" & "'"
Else
rs!prazo='" & "Fora do prazo" & "'"
End If
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
End Sub

Qual é o campo tipo texto aonde deverá ficar esse texto? Coloque o nome correto desse campo.

É este:

prazo

Alguém aqui?

ainda não consegui resolver este problema!...

Boa tarde, tente assim:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Horas_Projecto")

Do While Not rs.EOF
If rs![tempototal] > rs![horaistotais] Then
rs![prazo] = "Dentro do prazo"
Else
rs![prazo] = "Fora do prazo"
End If
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Dá-me esta mensagem:

Update ou CancelUpdate sem addNew ou Edit

Na linha:

rs![prazo] = "Fora do prazo"

Dim rs As Dao.Recordset
Set rs = CurrentDb.OpenRecordset("Horas_Projecto")
Dim i

Do Until i = rs.RecordCount - 1
With rs
.Edit
If ![tempototal] >= ![horaistotais] Then
![prazo] = "Dentro do prazo"
Else
![prazo] = "Fora do prazo"
End If
.Update
.MoveNext
End With
i = i + 1
Loop

rs.Close
Set rs = Nothing

Funcionou beleza

Obrigado pela ajuda

Fico feliz em ajudar,
O fórum agradece..


Favor macar o tópico como resolvido, ok.

Faltou o Resolvido. Desta vez eu coloco