HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.324
- Office versie
- Office 365
Daar heb ik helaas niet naar gekeken.
Je werkt met 'activecell'; Ik met 'ArtCel'.
Verander de code zoals hier onder (dit is de bovenste code in het formulier).
Je werkt met 'activecell'; Ik met 'ArtCel'.
Verander de code zoals hier onder (dit is de bovenste code in het formulier).
Code:
Private ArtCel As Range
Private Sub cmb_Aanpassen_Click()
'r = MsgBox("Aanpassen van gegevens kunnen niet ongedaan gemaakt worden.", vbYesNo, "Aanpassen gegevens")
'If r = vbYes Then
ArtCel.Value = TextBox1.Value
ArtCel.Offset(0, 1) = TextBox2.Value
ArtCel.Offset(0, 2) = TextBox3.Value
ArtCel.Offset(0, 3) = TextBox4.Value
ArtCel.Offset(0, 4) = TextBox5.Value
ArtCel.Offset(0, 5) = TextBox6.Value
ArtCel.Offset(0, 6) = ComboBox7.Value
ArtCel.Offset(0, 7) = TextBox8.Value
cmbInvoer.RowSource = "Magazijn"
cmbInvoer = ""
'Else: Exit Sub
'End If
Frame3.Visible = False
Cmd_Verwijderen.Visible = False
cmb_Aanpassen.Visible = False
End Sub
Laatst bewerkt: