Hello, I am working on my first database with Access and am new to VBA. Until now I have been able to make most of my items work with Macros. I am now running into a point where I try to make a button do a large amount of work and Macros just wont cut it.
The database I am working on is to keep track of employees and the devices they are assigned (Laptop, Phone, Fax#, and Mifi). When an employee is terminated I need to set the device status from In-Use to Waiting On Return. I created a pseudo code of what I am trying to do and put it below. I need to search the tables and find matching records and edit the data. It is possible that the employee might have more than one of each device assigned (ex: two Laptops).
TL
R - I need to search 4 tables for matching records and edit data in them. I have created a pseudo code of what i'm trying to do but I don't know VBA enough to implement it properly. I may be able to use queries but unsure how.
Thank you to anyone who helps. I greatly appreciate it as I have searched all over with no luck.
The database I am working on is to keep track of employees and the devices they are assigned (Laptop, Phone, Fax#, and Mifi). When an employee is terminated I need to set the device status from In-Use to Waiting On Return. I created a pseudo code of what I am trying to do and put it below. I need to search the tables and find matching records and edit the data. It is possible that the employee might have more than one of each device assigned (ex: two Laptops).
TL
R - I need to search 4 tables for matching records and edit data in them. I have created a pseudo code of what i'm trying to do but I don't know VBA enough to implement it properly. I may be able to use queries but unsure how.
Code:
Search LaptopT{
If ([LaptopOwner_FK] = [tmpContactID]){
Me.[LaptopStatus_FK] = “5”
}
}
Search CellT {
If ([CellOwner_FK] = [tmpContactID]){
Me.[CellStatus_FK] = “5”
}
}
Search MifiT {
If ([MifiOwner_FK] = [tmpContactID]){
Me.[MifiStatus_FK] = “5”
}
}
Search FaxT {
If ([FaxOwner_FK] = [tmpContactID]){
Me.[FaxStatus_FK] = “1”
Me.[FaxOwner_FK] = “(Number for Open Fax)”
Me.[FaxADUsername_FK] = “(Number for Open Fax Username)”
Me.[FaxDepartment_FK] = “”
Me.[FaxUsername] = “”
Me.[FaxPassword] = “”
CreateNewRecord in DeviceHistoryT (“”,””,””,””,[tmpContactID], “”, Date(), [FaxNumber])
}
}Thank you to anyone who helps. I greatly appreciate it as I have searched all over with no luck.
