Обновление баз данных пользовательской формы
У меня есть лист Excel, содержащий пользовательскую форму, которую студенты будут заполнять, чтобы заполнить мои базы данных. Я печатаю их входные данные в общий файл (мастер), а затем в другие файлы в зависимости от их ввода. Учитывая частную природу контента, я защищаю паролем свои базы данных (поэтому только я могу получить доступ ко всем этим). Тем не менее, студентам иногда нужно обновить свои материалы, и я сталкиваюсь с двумя проблемами.
1) Если я вручную обновлю свой мастер-лист для каждого учащегося, ни один из остальных листов не будет обновлен. 2) Я бы предпочел, чтобы студенты обновляли свои собственные записи, не имея доступа к базам данных, поскольку мне было бы утомительно выполнять все их обновления. Я думал о создании другой формы для обновления баз, но я не уверен, как это реализовать.
Любые советы о том, как я могу попытаться реализовать решения?
Вот пример моего кода:
studentName.Value=""
studentID.Value=""
With status
.AddItem "Full Time"
.AddItem "Part Time"
End With
Private Sub cmdSubmit_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Master")
'find first empty row in database
irow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'Populate Master
With ws
.Cells(irow, 1).Value = Me.studentName.Value
.Cells(irow, 2).Value = Me.studentID.Value
.Cells(irow, 3).Value = Me.status.Value
End With
'if the student is full time print his info into the full time sheet
If Me.status.Value = "Full Time" Then
Dim ws1 As Worksheet
Set ws1 = Worksheets("Full Time")
'find first empty row in database
irow = ws1.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'Populate Full Time
With ws1
.Cells(irow, 1).Value = Me.studentName.Value
.Cells(irow, 2).Value = Me.studentID.Value
End ws1