Tuti.

Felbuzdulv a dolgon próbáltam én is betenni egy piros feliratú mezőt, mely szerint írja ki, ha már ki lett vételezve a termék. Mondanom sem kell, nem jött össze

Option Compare Database

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Címke23.Visible = False
End Sub


Private Sub Parancsgomb16_Click()
DoCmd.Close acForm, ''Vágat kivételezés'', acSaveYes
End Sub

Private Sub Parancsgomb19_Click()
If kiadva.Value = False Then
kiadva.Value = True
Parancsgomb19.Caption = ''A termék kiadva''
Else
kiadva.Value = False
Parancsgomb19.Caption = ''Termék kiadása''
End If
DoCmd.Close acForm, ''Vágat kivételezés'', acSaveYes
End Sub

Private Sub Parancsgomb2_Click()
DoCmd.GoToRecord , , acNewRec

If IsNull(Szöveg0.Value) Then
MsgBox (''Keresés előtt kötelező a mező kitöltése'')
Szöveg0.SetFocus
Szöveg0.BackColor = 11053311
Else
vagatkod.SetFocus
DoCmd.FindRecord Szöveg0.Value, acEntire, False, acSearchAll, , acCurrent, True
Szöveg0.BackColor = 16777215
If foglalas.Value = False Then
Címke23.Visible = True
Parancsgomb19.Caption = ''Termék kiadása''
Parancsgomb19.Enabled = False
Else
Címke23.Visible = False
If kiadva.Value = True Then
Címke27.Visible = True
Parancsgomb19.Caption = ''A termék kiadva''
Parancsgomb19.Enabled = False
Else
Címke27.Visible = False
Parancsgomb19.Caption = ''Termék kiadása''
Parancsgomb19.Enabled = True
End If
End If
End If
End Sub


Private Sub Szöveg0_BeforeUpdate(Cancel As Integer)

End Sub
Private Sub Parancsgomb18_Click()
On Error GoTo Err_Parancsgomb18_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Parancsgomb18_Click:
Exit Sub

Err_Parancsgomb18_Click:
MsgBox Err.Description
Resume Exit_Parancsgomb18_Click

End Sub

Csak egy ember hiányzik, és máris üres a világ!