record dubbel weggeschreven in spreadsheet.

[benniehulshof]

Ik heb een raar probleem.
Ik heb een soort database ontwikkeld.
Dit werkt aanzich prima.
Het is voor een vereniging en de kleding wordt hier in weggeschreven.
De kleding heeft een uniek nummer en wordt gekoppeld aan een speler dus trainingstop 58 is voor speler test tester.
hier heb ik een zoekfunctie opgebouwd dus ik geef het nummer op in de zoekfunctie en dan geeft hij de speler weer die deze traingstop heeft (met name handig voor kleding die gevonden is).
Echter kinderen groeien en daardoor krijgen ze soms per seizoen een andere traingstop en dus ook een ander nummer.
Ik doe dit als volgt ik zoek de speler op en klik dan dubbel (om de speler te selecteren.
Ik verander dan het nummer van de trainingstop en klik op update. echter komt het dan regelmatig voor dat naam van de speler gewijzigd wordt en nog en keer bij ingezet word.
Dus dat ik dan de record er 2 keer in heb staan. Ik kan niet ontdekken waar de fout inzit.
De record hoeft alleen bewaard te worden meer niet eigelijk.
Ik gebruik de volgende VBA code :

Private Sub cmdUpdate_Click()
Dim Product_id As String
Product_id = Trim(txtVoornaam.Text)
lastrow = Worksheets("leden").Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To lastrow
If Worksheets("leden").Cells(i, 1).Value = Product_id Then
Worksheets("leden").Cells(i, 1).Value = txtVoornaam.Text
Worksheets("leden").Cells(i, 2).Value = txtachternaam.Text
Worksheets("leden").Cells(i, 6).Value = txttt.Text
Worksheets("leden").Cells(i, 7).Value = txtbroek.Text
Worksheets("leden").Cells(i, 4).Value = txtteam.Text
Worksheets("leden").Cells(i, 5).Value = txtsponsor.Text
Worksheets("leden").Cells(i, 3).Value = txttelefoon.Text
Worksheets("leden").Cells(i, 8).Value = txtbond.Text
Worksheets("leden").Cells(i, 9).Value = IIf(CheckBox1, "ja", "nee")
Worksheets("leden").Cells(i, 10).Value = IIf(CheckBox2, "ja", "nee")
Worksheets("leden").Cells(i, 11).Value = IIf(CheckBox3, "ja", "nee")
MsgBox "informatie is gewijzigigd", vbInformation
TextBox1.SetFocus



End If
Next
End Sub

Wellicht staat hierin iets niet goed ?

 

[edmoor]

Je kan beter je document plaatsen.
Zonder persoonsinformatie uiteraard.

 

[benniehulshof]

Zo gebruiken wij het (ik heb uiteraard de persoonsgegevens eruit gehaald ivm avg )