Value = m_oEmployee.ID
.Cells(m_lngNewRowNum, 2).Value = m_oEmployee.FName
.Cells(m_lngNewRowNum, 3).Value = m_oEmployee.MidInit
.Cells(m_lngNewRowNum, 4).Value = m_oEmployee.LName
.Cells(m_lngNewRowNum, 5).Value = m_oEmployee.DOB
.Cells(m_lngNewRowNum, 6).Value = m_oEmployee.SSN
.Cells(m_lngNewRowNum, 7).Value = m_oEmployee.JobTitle
.Cells(m_lngNewRowNum, 8).Value = m_oEmployee.Department
.Cells(m_lngNewRowNum, 9).Value = m_oEmployee.Email
End With
End Sub
Private Sub SaveAddressData()
With m_oWorksheet
.Cells(m_lngNewRowNum, 10).Value = m_oEmployee.Address.StreetAddress
.Cells(m_lngNewRowNum, 11).Value = m_oEmployee.Address.StreetAddress2
.Cells(m_lngNewRowNum, 12).Value = m_oEmployee.Address.City
.Cells(m_lngNewRowNum, 13).Value = m_oEmployee.Address.State
.Cells(m_lngNewRowNum, 14).Value = m_oEmployee.Address.ZipCode
.Cells(m_lngNewRowNum, 15).Value = m_oEmployee.Address.PhoneNumber
.Cells(m_lngNewRowNum, 16).Value = m_oEmployee.Address.CellPhone
End With
End Sub
Private Sub SaveEquipmentData()
With m_oWorksheet
.Cells(m_lngNewRowNum, 17).Value = m_oEmployee.Equipment.PCType
.Cells(m_lngNewRowNum, 18).Value = m_oEmployee.Equipment.PhoneType
.Cells(m_lngNewRowNum, 19).Value = m_oEmployee.Equipment.Location
.Cells(m_lngNewRowNum, 20).Value = m_oEmployee.Equipment.FaxYN
End With
End Sub
CHAPTER 4 n USERFORMS 171
Private Sub SaveAccessData()
With m_oWorksheet
.Cells(m_lngNewRowNum, 21).Value = m_oEmployee.Access.Building
.Cells(m_lngNewRowNum, 22).
Pages:
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180