Database en handscanner

[NajKwin]

Hallo,


Ik heb op het net een eenvoudige worksheet gevonden met een invoer en update functie met VBA. Welke we willen gaan gebruiken voor de registratie van de Chromebooks van de streepjescode op het apparaat

Nu ben ik er een beetje mee aan het stoeien geweest om deze uit te breiden. Het invoeren gaat goed alleen als ik in de database een wijziging wil doorvoeren en de streepjescode scan hij een fout melding geeft.

Zou iemand er even zijn of haar blik op willen werken om het werkend te krijgen? mijn kennis is nog van VBA is nog niet van dien aard dat me dit lukt

GR Naj

 

[edmoor]

Maak er eens dit van in Update_Record_frm:

Private Sub ComboBox2_Change()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Data")
    Dim i As Long
        
    If Me.ComboBox2.Value <> "" Then
[COLOR="#FF0000"]        If IsError(Application.Match(Me.ComboBox2.Value, Range("A:A"), 0)) Then
            MsgBox "Record Not found for this EMP ID", vbCritical
            Exit Sub
        Else
            i = Application.Match(Me.ComboBox2.Value, Range("A:A"), 0)
        End If[/COLOR]
        
        Me.TextBox2.Value = sh.Range("B" & i).Value
        
        If sh.Range("C" & i).Value = "Male" Then Me.OptionButton1.Value = True
        If sh.Range("C" & i).Value = "Female" Then Me.OptionButton2.Value = True
        
        Me.ComboBox1.Value = sh.Range("D" & i).Value
        Me.ComboBox3.Value = sh.Range("C" & i).Value
        Me.TextBox3.Value = sh.Range("E" & i).Value
        Me.TextBox4.Value = sh.Range("F" & i).Value
    Else
        
        Me.TextBox2.Value = ""
        Me.TextBox3.Value = ""
        Me.TextBox3.Value = ""
        Me.OptionButton1.Value = False
        Me.OptionButton2.Value = False
        
        Me.ComboBox1.Value = ""
        Me.ComboBox3.Value = ""
        
    End If
End Sub

Voor een eventueel volgende vraag, als je zegt een foutmelding te krijgen, vermeld er dan ook bij welke dat precies is.

 

[NajKwin]

Dankje Edmoor,

Werkt perfect nu

 

[NajKwin]

Hallo Edmoor,

Ik loop nu tegen een ander probleem aan moet ik een nieuwe vraag stellen of mag dat hier op doorgaan

 

[edmoor]

Daar zal geen nieuwe vraag voor nodig zijn verwacht ik.
Dus gewoon hier stellen.

 

[NajKwin]

Hallo Edmoor,

Op het moment dat ik een wijziging wil doorvoeren krijg ik op onderstaande regel een foutmelding.

n = Application.Match(VBA.CLng(Me.ComboBox2.Value), sh.Range("A:A"), 0)

 

[edmoor]

Dat probleem is hetzelfde.
Wijzig die regel in zoals ik het heb gedaan.
Er wordt geprobeerd een tekst string met cijfers en letters via CLng te converteren naar een Long.
Dat kan uiteraard niet.

 

[NajKwin]

Top Aangepast en nu doet hij het