Я новичок в базе данных, и это не мой курс, но мне нравится программирование.
Я создал простую базу данных, где клиент будет использовать ее для запроса образцов.
Моя проблемаЯ не могу заставить работать базу данных, когда два пользователя добавляют новые записи.
Вот мой код, когда они нажимают кнопку Отправить.
DoCmd.SendObject acSendNoObject, , , _
"michael.manalo@yahoo.com;", _
, , _
"Sample Request from " & [Location], "Dear RCM Project Engineering, " & Chr$(13) & Chr$(13) & _
"I would like to request for samples to be shipped to:" & Chr$(13) & Chr$(13) & _
[Contact] & Chr$(13) & [Shipping Address] & Chr$(13) & Chr$(13) & _
"Details of my request were recorded in SRN " _
& [SRN] & Chr$(13) & Chr$(13) & _
"The customer is requesting for:" & Chr$(13) & Chr$(13) & _
[QTY1] & " " & [PN1] & ", " & [Des1] & Chr$(13) & _
[QTY2] & " " & [PN2] & ", " & [Des2] & Chr$(13) & _
[QTY3] & " " & [PN3] & ", " & [Des3] & Chr$(13) & _
[QTY4] & " " & [PN4] & ", " & [Des4] & Chr$(13) & _
[QTY5] & " " & [PN5] & ", " & [Des5] & Chr$(13) & _
[QTY6] & " " & [PN6] & ", " & [Des6] & Chr$(13) & _
[QTY7] & " " & [PN7] & ", " & [Des7] & Chr$(13) & _
[QTY8] & " " & [PN8] & ", " & [Des8] & Chr$(13) & Chr$(13) & _
"Please note of the following: " & Chr$(13) & Chr$(13) & _
[Remarks] & Chr$(13) & Chr$(13) & _
"Expected Delivery Date is on: " & [Requested Delivery Date] & Chr$(13) & Chr$(13) & _
"Thank You!" & Chr$(13) & Chr$(13) & Form_Choose.user & Chr$(13) & [Position]
DoCmd.Save acForm, "Sample_Requisition"
[Requestor] = Form_Choose.user
Поле [Requestor] является обязательным иЯ заблокировал их для редактирования пользователями, потому что хотел, чтобы клиент успешно отправил запрос по электронной почте, прежде чем запись будет сохранена.Если они успешно отправили запрос по электронной почте, текущий пользователь (из формы Выбрать) будет автоматически записан в поле запроса.