Replies

Oh yes, you are right ! Thank you for your remark, i see my error now

Thank you for the replies.Do apologize me for the omission.I took note of your advice and i have done the calculation in the query.So i solved the problem but thank you for the attention and the helpful advie

yes, unfortunately thats exactly what i am trying to do, to modify the record. But i am sure you will find the solution

Thank you very much. !I am sending the attachement

B is linked with another table.B is the availaility in the house and A is the demand order.If we decide to change the demand we want to change at the same time its availablity.because after that we are updating the available quantiies.We are then sending B back.

because it is placed in the module section of the database.But if you disregard that, is it possile at all to use one and the same function in both controls
placed in the afterupdate event?

Regards

because it is placed in the module section of the database.But if you disregard that, is it possile at all to use one and the same function in both controls
placed in the afterupdate event?

Regards

super ! Thank you very much !!!!

super ! Thank you very much !!!!

Thank you. Thats what ihave asked

Thank you. Thats what ihave asked

thank you

thank you

Thank you very much for your reply.My task is rather complicated since
it must delete modules in a remote database. I use a very efficient code for
deleting the module and it works, it is not working only in my code below.
Also, how can i rationalize the code, since i must enumerate 15 cases,in the code below i have mentioned only 2.
Anyway the followig code cannot delete and i do not know why

Public Function FEW()

Dim strBu As String
Dim StrVa As String
Dim appath As String
Dim db As DAO.Database
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0)

strBu = “C:BEUni.mdb”
StrVa = “C:BELewi.mdb”

If Dir(strBu) “” Then
appath = strBu
Set db = ws.OpenDatabase(appath, False, False, “MS Access;PWD=passwordt”)
Call KillObject(appath, 5, “OhMy”)

ElseIf Dir(StrVa) “” Then
appath = StrVa
Set db = ws.OpenDatabase(appath, False, False, “MS Access;PWD=passwordt”)
Call KillObject(appath, 5, “MdlOne”)
Else
‘no database found so
Exit Function
End If
End Function

I receive a message that i cannot delete

Public Sub KillObject(strDbName As String, acObjectType As Long, _
strObjectName As String)
‘AcObjectType: acTable = 0, acQuery=1, acForm=2, acReport=3, ‘acMacro=4, acModule = 5
‘ this is an example how can i call it from the OnClick event of a form:
‘Call KillObject(BEpath, 0, “products”)

Dim adb As Object
Set adb = CreateObject(“Access.Application”)
adb.OpenCurrentDatabase (strDbName)
adb.DoCmd.DeleteObject acObjectType, strObjectName
adb.CloseCurrentDatabase
Set adb = Nothing
End Sub

Thank you very much for your reply.My task is rather complicated since
it must delete modules in a remote database. I use a very efficient code for
deleting the module and it works, it is not working only in my code below.
Also, how can i rationalize the code, since i must enumerate 15 cases,in the code below i have mentioned only 2.
Anyway the followig code cannot delete and i do not know why

Public Function FEW()

Dim strBu As String
Dim StrVa As String
Dim appath As String
Dim db As DAO.Database
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0)

strBu = “C:BEUni.mdb”
StrVa = “C:BELewi.mdb”

If Dir(strBu) “” Then
appath = strBu
Set db = ws.OpenDatabase(appath, False, False, “MS Access;PWD=passwordt”)
Call KillObject(appath, 5, “OhMy”)

ElseIf Dir(StrVa) “” Then
appath = StrVa
Set db = ws.OpenDatabase(appath, False, False, “MS Access;PWD=passwordt”)
Call KillObject(appath, 5, “MdlOne”)
Else
‘no database found so
Exit Function
End If
End Function

I receive a message that i cannot delete

Public Sub KillObject(strDbName As String, acObjectType As Long, _
strObjectName As String)
‘AcObjectType: acTable = 0, acQuery=1, acForm=2, acReport=3, ‘acMacro=4, acModule = 5
‘ this is an example how can i call it from the OnClick event of a form:
‘Call KillObject(BEpath, 0, “products”)

Dim adb As Object
Set adb = CreateObject(“Access.Application”)
adb.OpenCurrentDatabase (strDbName)
adb.DoCmd.DeleteObject acObjectType, strObjectName
adb.CloseCurrentDatabase
Set adb = Nothing
End Sub