boas,
Tenho uma duvida
Function mudarnome1()
Dim dbs As DAO.DATABASE
Dim filas_modificadas As Long
Dim sFile As String, lFile As Long
Set dbs = CurrentDb
dbs.Execute "Mudar o nome - 1"
While dbs.RecordsAffected = Null
Wend
filas_modificadas = dbs.RecordsAffected
MsgBox filas_modificadas
sFile = "C:\CONSULTAS\1.txt"
lFile = FreeFile
Open sFile For Append As lFile
Print #lFile, filas_modificadas
Close lFile
End Function
Se a consulta for complexa e tiver varios comandos, como update insert etc... O comando affected rows saca o mesmo numero de registos modificados que o access ou saca apenas o ultimo comando da consulta.
Portanto se o resultado de affected rows era o mesmo que o que aparece na confirmaçao do access apos a termino da execuçao da consulta.
Obrigado desde ja,
Tenho uma duvida
Function mudarnome1()
Dim dbs As DAO.DATABASE
Dim filas_modificadas As Long
Dim sFile As String, lFile As Long
Set dbs = CurrentDb
dbs.Execute "Mudar o nome - 1"
While dbs.RecordsAffected = Null
Wend
filas_modificadas = dbs.RecordsAffected
MsgBox filas_modificadas
sFile = "C:\CONSULTAS\1.txt"
lFile = FreeFile
Open sFile For Append As lFile
Print #lFile, filas_modificadas
Close lFile
End Function
Se a consulta for complexa e tiver varios comandos, como update insert etc... O comando affected rows saca o mesmo numero de registos modificados que o access ou saca apenas o ultimo comando da consulta.
Portanto se o resultado de affected rows era o mesmo que o que aparece na confirmaçao do access apos a termino da execuçao da consulta.
Obrigado desde ja,