Springen naar inhoud


- - - - -
VS 2015

Iets Met Forms En Database

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 PeElAnKa

PeElAnKa

    Junior Developer

  • Leden
  • PipPip
  • 92 berichten
    Laatst bezocht 01 nov 2018 21:28

Geplaatst op 04 oktober 2018 - 19:36

Beste,

Ik heb een form gemaakt om met een scanner te werken zodat hij artikels gaat zoeken via streepjescode in de database en die in of uit stock te zetten,
ik open mijn programma en open het tablad scannen en dan werkt hij perfect, nu zal je merken in de code dat hij altijd opnieuw gaat beginnen of je iets in of uit wil scannen,
dus ik heb een stop ingebracht om naar het einde te gaan van de form load en zo het scherm pas te voorschijn komt met de laatste acties, zodat ik dat verlopig met een button kan sluiten,
normaal zou ik deze gewoon willen sluiten met code en het scherm van deze frmscannen hoef ik niet te zien,
maar als ik daarna het scannen terug open en ik wil terug een artikel gaan zoeken op streepjes code werkt hij niet meer, zowel bij in en uit (bij in gaat hij zoeken bij artikels en bij uit gaat hij zoeken in stock)

iemand een idee hoe dit komt,

deze form word met code opgeroepen,

Visual Basic Code:
Private Sub ScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ScannenToolStripMenuItem.Click
frmSCANNEN.ShowDialog()
End Sub

code van form frmSCANNEN

Visual Basic Code:
Public Class frmSCANNEN
Private Sub cmdSLUITEN_Click(sender As Object, e As EventArgs) Handles cmdSLUITEN.Click
Me.Close()
End Sub

Private Sub frmSCANNEN_Load(sender As Object, e As EventArgs) Handles Me.Load
'TODO: This line of code loads data into the 'InventarisDataSet.InStock' table. You can move, or remove it, as needed.
Me.InStockTableAdapter.Fill(Me.InventarisDataSet.InStock)
'TODO: This line of code loads data into the 'InventarisDataSet.Artikels' table. You can move, or remove it, as needed.
Me.ArtikelsTableAdapter.Fill(Me.InventarisDataSet.Artikels)
Dim ArtikelCount
BeginScannen:
ArtikelCount = 1
lblINUIT.Text = ""
lblAANTAL.Text = ""
lblSTREEPJESCODE.Text = ""
lblPLAATS.Text = ""
lblSCHUIFLADE.Text = ""
lblDATUM.Text = ""

lblINUIT.Text = InputBox("In/Uit", "Scannen")
If lblINUIT.Text = "Fout" Then
GoTo BeginScannen
ElseIf lblINUIT.Text = "Stop" Then
GoTo StopScannen
End If
lblAANTAL.Text = InputBox("Aantal", "Scannen")
If lblAANTAL.Text = "Fout" Then
GoTo BeginScannen
ElseIf lblAANTAL.Text = "Stop" Then
GoTo StopScannen
End If
lblSTREEPJESCODE.Text = InputBox("StreepjesCode", "Scannen")
If lblSTREEPJESCODE.Text = "Fout" Then
GoTo BeginScannen
ElseIf lblSTREEPJESCODE.Text = "Stop" Then
GoTo StopScannen
Else
If lblINUIT.Text = "in" Then
ArtikelsBindingSource.MoveFirst()
For I = 1 To ArtikelsBindingSource.Count
If lblSTREEPJESCODE.Text = ArtikelStreepjeCodeTextBox.Text Then

Else
ArtikelsBindingSource.MoveNext()
ArtikelCount = ArtikelCount + 1
If ArtikelCount > ArtikelsBindingSource.Count Then
GoTo StopScannen
End If
End If
Next
ElseIf lblINUIT.Text = "uit" Then
InStockBindingSource.MoveFirst()
For I = 1 To InStockBindingSource.Count
If lblSTREEPJESCODE.Text = StockStreepjeCodeTextBox.Text Then

Else
InStockBindingSource.MoveNext()
ArtikelCount = ArtikelCount + 1
If ArtikelCount > InStockBindingSource.Count Then
GoTo StopScannen
End If
End If
Next
Label1.Text = ArtikelCount
GoTo UitScannen
End If
End If
lblPLAATS.Text = InputBox("Plaats", "Scannen")
If lblPLAATS.Text = "Fout" Then
GoTo BeginScannen
ElseIf lblPLAATS.Text = "Stop" Then
GoTo StopScannen
End If
lblSCHUIFLADE.Text = InputBox("Schuif-Lade", "Scannen")
If lblSCHUIFLADE.Text = "Fout" Then
GoTo BeginScannen
ElseIf lblSCHUIFLADE.Text = "Stop" Then
GoTo StopScannen
End If

lblDATUM.Text = Format(Now, "dd/MM/yyyy")
UitScannen:
If lblINUIT.Text = "in" Then
Me.InStockBindingSource.AddNew()
StockAantalTextBox.Text = lblAANTAL.Text
StockStreepjeCodeTextBox.Text = lblSTREEPJESCODE.Text
StockMerkTextBox.Text = ArtikelMerkTextBox.Text
StockOmschrijvingTextBox.Text = ArtikelOmschrijvingTextBox.Text
StockHoeveelheidTextBox.Text = ArtikelHoeveelheidTextBox.Text
StockPlaatsTextBox.Text = lblPLAATS.Text
StockSchuif_LadeTextBox.Text = lblSCHUIFLADE.Text
StockDatumTextBox.Text = lblDATUM.Text
Me.InStockBindingSource.EndEdit()
Me.InStockTableAdapter.Update(Me.InventarisDataSet.InStock)
ElseIf lblINUIT.Text = "uit" Then
If lblAANTAL.Text = StockAantalTextBox.Text Then
Me.InStockBindingSource.RemoveCurrent()
ElseIf lblAANTAL.Text < StockAantalTextBox.Text Then
StockAantalTextBox.Text = StockAantalTextBox.Text - lblAANTAL.Text
ElseIf lblAANTAL.Text > StockAantalTextBox.Text Then
GoTo StopScannen
End If
Me.InStockBindingSource.EndEdit()
Me.InStockTableAdapter.Update(Me.InventarisDataSet.InStock)
End If
GoTo BeginScannen
StopScannen:
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
frmINVENTARIS.InStockTableAdapter.Update(frmINVENTARIS.InventarisDataSet.InStock)
frmINVENTARIS.InStockTableAdapter.Fill(frmINVENTARIS.InventarisDataSet.InStock)
End Sub
End Class

alvast bedankt,

PeElAnKA

#2 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1092 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 05 oktober 2018 - 14:46

Bericht bekijkenPeElAnKa, op 04 oktober 2018 - 19:36, zei:

code van form frmSCANNEN

Visual Basic Code:
Public Class frmSCANNEN
End Class

Deze laat ik passeren. :D

#3 PeElAnKa

PeElAnKa

    Junior Developer

  • Leden
  • PipPip
  • 92 berichten
    Laatst bezocht 01 nov 2018 21:28

Geplaatst op 06 oktober 2018 - 06:08

Beste Dirk,

hoe bedoel je aub,

mvg,

PeElAnKa

#4 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1092 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 06 oktober 2018 - 11:36

Bericht bekijkenPeElAnKa, op 06 oktober 2018 - 06:08, zei:


hoe bedoel je aub,


Sorry hoor, dat was niet slecht bedoeld.

Dit is gewoon een soort code waar ik weinig voeling mee heb.
Ik hoop dat iemand anders hier er wat mee kan en je probleem kan verhelpen.

#5 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 14 oktober 2018 - 12:53

Begin eens met alles op te splitsen in sub/functies. Dit lijkt me nog iets uit BASIC ofzo

Waarschijnlijk gaat er ergens iets mis met het laden van je dataset





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)