Új hozzászólás Aktív témák
-
sszever
őstag
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 SubCsak egy ember hiányzik, és máris üres a világ!
Új hozzászólás Aktív témák
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Milyen monitort vegyek?
- gban: Ingyen kellene, de tegnapra
- Elektromos rásegítésű kerékpárok
- Gaming notebook topik
- Milyen okostelefont vegyek?
- Fával ékesíti magát a Jonsbo Mini-ITX gépháza
- Milyen házat vegyek?
- Megérkezett a Razer DeathAdder V3 Hyperspeed verziója
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Vírusirtó, Antivirus VPN kulcsok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül