Microsoft Access How to create Stock Tracking System Part 2 SubtitlesEnglishHindiUrduothers

>> YOUR LINK HERE: ___ http://youtube.com/watch?v=W1XSf_pyBPY

This video will guide you on How to create Stock Tracking System . • This very helpful to manage stock in and stock out with Inventory transaction history and reports. • For your convenience I added Available Subtitles • (Click in video settings to select your language Subtitles) • English • Hindi • Urdu • Arabic • French • Bangla • Malay • Vietnamese • Urdu • #StockInStockOut #InventorySystem #TrackingDatabase • #StockInStockOut • #InventorySystem • #TrackingDatabase • #Stock In • #Stock Out • #Inventory System • #Tracking Database • #Inventory Management System • #Stock Monitoring System • #Stock Management System • • code: • Private Sub StockOut_AfterUpdate() • Dim strDescription As String • strDescription = Me.Description.Value • Dim db As DAO.Database • Dim rst As DAO.Recordset • Set db = CurrentDb • • Set rst = db.OpenRecordset( select Inv_Qty from Inventory where ItemCode= Me.ItemCode) • With rst • .Edit • !Inv_Qty = !Inv_Qty - Nz(Me.StockOut, 0) • • .Update • End With • Me.TrnsType = Stock Out • Me.TrnsDate = Now() • MsgBox rst.RecordCount Item strDescription deducted to current inventory , vbInformation, Deducted • DoCmd.Close • End Sub • • Unit =DLookUp( Unit , Inventory , ItemCode= [ItemCode]) • Current=DLookUp( Inv_Qty , Inventory , ItemCode= [ItemCode]) • Private Sub cboItem_AfterUpdate() • On Error GoTo Err_Handler: • Dim ctrl As Control • Set ctrl = Me.ActiveControl • Me.Description = ctrl.Column(2) • Me.TrackingNo = Format(Now(), yyyymmdd ) Me.TrasID • Exit_Here: • Exit Sub • Err_Handler: • MsgBox Err.Description, vbExclamation, Error • Resume Exit_Here • End Sub • Private Sub Form_Load() • 'Me.ItemCode.SetFocus • End Sub • • • • • • • • ✅ Recommended playlists: • Worksheet Basics • • Worksheet Basics • Microsoft Excel Essentials • • Microsoft Excel Essentials • Ms Access Fundamentals Series • • Ms Access Fundamentals Series • Microsoft Access Essentials • • Microsoft Access Essentials

#############################

New on site