problem z formularzem bazy danych

WItam serdecznie

Poniżej jest kod dwóch formularzy :

Formularza klientów:

Option Compare Database

Private Sub Form_Error(DataErr As Integer, Response As Integer)
MsgBox "Wypełnij wszystkie pola! Adres e-mail nie jest obowiązkowy."
Response = acDataErrContinue
End Sub

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Kombi27_Click()
Me!Tekst0.SetFocus
If Not IsNull(Me!Kombi27) Then
DoCmd.FindRecord Me!Kombi27
End If
End Sub

Private Sub Polecenie17_Click()
DoCmd.GoToRecord , , acFirst
End Sub

Private Sub Polecenie18_Click()
On Error GoTo Err_Polecenie18_Click
DoCmd.GoToRecord , , acPrevious

Exit_Polecenie18_Click:
Exit Sub

Err_Polecenie18_Click:
MsgBox "Przejście do poprzedniego rekordu nie jest możliwe!"
Resume Exit_Polecenie18_Click
End Sub

Private Sub Polecenie19_Click()
On Error GoTo Err_Polecenie19_Click
DoCmd.GoToRecord , , acNext

Exit_Polecenie19_Click:
Exit Sub

Err_Polecenie19_Click:
MsgBox "Przejście do następnego rekordu nie jest możliwe!"
Resume Exit_Polecenie19_Click
End Sub

Private Sub Polecenie20_Click()
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Polecenie21_Click()
On Error GoTo Err_Polecenie21_Click
DoCmd.GoToRecord , , acNewRec

Exit_Polecenie21_Click:
Exit Sub

Err_Polecenie21_Click:
MsgBox "Wypełnij wszystkie pola!Adres e-mail nie jest obowiązkowy"
Resume Exit_Polecenie21_Click
End Sub

Private Sub Polecenie26_Click()
DoCmd.Close acForm, "Klienci", acSaveNo
DoCmd.OpenForm "Naprawa"
End Sub

Private Sub Polecenie36_Click()
DoCmd.Close acForm, "Klienci", acSaveNo
DoCmd.OpenForm "Loguj"
End Sub

oraz formularz Naprawa :

Option Compare Database
Private Sub Form_Error(DataErr As Integer, Response As Integer)
MsgBox "Wypełnij wszystkie pola!"
Response = acDataErrContinue

End Sub

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Kombi38_Click()
Me!Tekst0.SetFocus
If Not IsNull(Me!Kombi38) Then
DoCmd.FindRecord Me!Kombi38
End If
End Sub

Private Sub Polecenie17_Click()
DoCmd.GoToRecord , , acFirst
End Sub

Private Sub Polecenie18_Click()
On Error GoTo Err_Polecenie18_Click
DoCmd.GoToRecord , , acPrevious

Exit_Polecenie18_Click:
Exit Sub

Err_Polecenie18_Click:
MsgBox "Przejście do poprzedniego rekordu nie jest możliwe!"
Resume Exit_Polecenie18_Click
End Sub

Private Sub Polecenie19_Click()
On Error GoTo Err_Polecenie19_Click
DoCmd.GoToRecord , , acNext

Exit_Polecenie19_Click:
Exit Sub

Err_Polecenie19_Click:
MsgBox "Przejście do następnego rekordu nie jest możliwe!"
Resume Exit_Polecenie19_Click
End Sub

Private Sub Polecenie20_Click()
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Polecenie21_Click()
On Error GoTo Err_Polecenie21_Click
DoCmd.GoToRecord , , acNewRec

Exit_Polecenie21_Click:
Exit Sub

Err_Polecenie21_Click:
MsgBox "Wypełnij wszystkie pola!"
Resume Exit_Polecenie21_Click

End Sub

Private Sub Polecenie36_Click()
DoCmd.Close acForm, "Naprawa", acSaveNo
DoCmd.OpenForm "Loguj"
End Sub

Private Sub Polecenie37_Click()
DoCmd.Close acForm, "Naprawa", acSaveNo
DoCmd.OpenForm "Klienci"
End Sub

Private Sub Polecenie40_Click()
DoCmd.Close acForm, "Naprawa", acSaveNo
DoCmd.OpenForm "Producenci"
End Sub

Private Sub Polecenie41_Click()
DoCmd.Close acForm, "Naprawa", acSaveNo
DoCmd.OpenForm "Produkty"
End Sub

W formularzu naprawa pole e-mail można pominąć a jak zrobić aby jakieś pole tekstowe pominąć w formularzu Naprawa aby nie było obowiązku jego wpisywania?