Solved: Database search returns the same values for all parts chosen

[Mbierce]

Hello all!

So, I've never really used VBA before but figured I'd try my hand at creating a database for work and used some websites and Youtube videos to guide me to create the tool. However, I'm having an issue where all parts that are searched return the same values. When opening the file, the user is given buttons to choose from. Right now the only two buttons are Infeed Conveyor Parts and Exit. When choosing Infeed Conveyor Parts, the user is then able to search for a part by description to get details on that part as well as the Oracle number and quantity needed. However, the way that I have this set up I can only get the values for Conveyor Length to return. (This happens regardless of what I choose.)

Any guidance would be appreciated!

Edit: I apologize for the not following rule #1. Thank you for pointing it out to me protonLeah. Hopefully I've fixed it sufficiently.

[protonLeah]

title updated

[BadlySpelledBuoy]

Hi,

Could you explain a little about what you want it to do if it's working properly?

If you click on "New" you want to add entered details to the bottom of the list?

What if you're searching for an item and there are more than one in the list? "Return Roller Cat Roller (Bolts)" for example is in there twice, so what happens in that situation?

BSB

[Mbierce]

Hello all,

I think I've fixed the rule violation and posted the subject line accordingly.

BadlySpelledBuoy, thank you for pointing out that items are listed multiple times. I didn't catch that before and am have changed this on my end. It did not change the search issue though.

[protonLeah]

Private Sub CmdSearch_Click()
    Dim SrchStr As String, _
        found As Variant
        
    blnNew = False
    txtPartDescription.Text = ""
    txtSpecifications.Text = ""
    txtPartNumber.Text = ""
    txtQuantity.Text = ""
    txtCompany.Text = ""
    txtTSIPO.Text = ""
    txtOracle.Text = ""
    
    SrchStr = ComboBox1.Value
    
    With Worksheets("Infeed Conveyor")
        TRows = .Range("A1").CurrentRegion.Rows.Count
        
        With .Range("A1:A" & TRows)
            Set found = .Find(SrchStr)
            If Not found Is Nothing Then
                With found
                    txtPartDescription.Text = .Value
                    txtCompany.Text = .Offset(0, 1).Value
                    txtPartNumber.Text = .Offset(0, 2).Value
                    txtSpecifications.Text = .Offset(0, 3).Value
                    txtQuantity.Text = .Offset(0, 4).Value
                    txtTSIPO.Text = .Offset(0, 5).Value
                    txtOracle.Text = .Offset(0, 6).Value
                End With    'copy data
            End If  'found the val
        End With    'col A search
    End With 'sheet
    
    If Trim(txtPartDescription.Text) = "" Then
        cmdSave.Enabled = False
        cmdDelete.Enabled = False
        Frame2.Enabled = False
    Else
        cmdSave.Enabled = True
        cmdDelete.Enabled = True
        Frame2.Enabled = True
    End If
End Sub

[Mbierce]

Thank you for your help! This solved the issue.