beste leden,
hier ben ik weer, met uiteraard een probleem waar ik blijf over kijken.
ik krijg de volgende foutmelding: Fout 13 tijdens uitvoering, type komen niet met elkaar overeen.
ik voeg hierbij de code die ik heb en het testbestandje zelf zodat het duidelijk is.
hopelijk zien jullie de oplossing wel.
bedankt alvast!
hier ben ik weer, met uiteraard een probleem waar ik blijf over kijken.
ik krijg de volgende foutmelding: Fout 13 tijdens uitvoering, type komen niet met elkaar overeen.
ik voeg hierbij de code die ik heb en het testbestandje zelf zodat het duidelijk is.
hopelijk zien jullie de oplossing wel.
bedankt alvast!
Code:
Sub Reset()
Dim iRow As Long
iRow = [Counta (Database!A:A)] 'Indentificeer de laatse rij
With frmform
.txtSPELER.Value = ""
.optKHALID.Value = False
.optAKIM.Value = False
.cmbPOSITIE.Clear
.cmbPOSITIE.AddItem "1"
.cmbPOSITIE.AddItem "2"
.cmbPOSITIE.AddItem "3"
.cmbPOSITIE.AddItem "4"
.cmbPOSITIE.AddItem "5"
.cmbPOSITIE.AddItem "6"
.cmbPOSITIE.AddItem "7"
.cmbPOSITIE.AddItem "8"
.cmbPOSITIE.AddItem "9"
.cmbPOSITIE.AddItem "10"
.cmbPOSITIE.AddItem "11"
.cmbFORMAAT.Clear
.cmbFORMAAT.AddItem "5V5"
.cmbFORMAAT.AddItem "8V8"
.cmbFORMAAT.AddItem "11V11"
.cmbTYPE.Clear
.cmbTYPE.AddItem "7 1/2 MIN"
.cmbTYPE.AddItem "15 MIN"
.cmbTYPE.AddItem "20 MIN"
.cmbTYPE.AddItem "30 MIN"
.cmbTYPE.AddItem "40 MIN"
.cmbTYPE.AddItem "45 MIN"
.cmbTYPE.AddItem "60 MIN"
.cmbTYPE.AddItem "80 MIN"
.cmbTYPE.AddItem "90 MIN"
.lstDATABASE.ColumnCount = 8 'Aantal kolommen in de Database
.lstDATABASE.ColumnHeads = True
.lstDATABASE.ColumnWidths = "30,60,75,40,60,45,55,70,70" 'is als je de kolommen een breedte wilt geven.
If iRow > 1 Then
.lstDATABASE.RowSource = "Database!A2:H" & iRow
Else
.lstDATABASE.RowSource = "Database!A2:H2"
End If
End With
End Sub
Sub Submit()
Dim sh As Worksheet
Dim iRow As Long
Set sh = ThisWorkbook.Sheets("Database")
iRow = [Counta(Database!A:A] + 1
With sh
.Cells(iRow, 1) = iRow - 1
.Cells(iRow, 2) = frmform.txtSPELER.Value
.Cells(iRow, 3) = IIf(frmform.optKHALID.Value = True, "Khalid", "Akim")
.Cells(iRow, 4) = frmform.cmbPOSITIE.Value
.Cells(iRow, 5) = frmform.cmbFORMAAT.Value
.Cells(iRow, 6) = frmform.cmbTYPE.Value
.Cells(iRow, 7) = Application.UserName
.Cells(iRow, 8) = [Text(Now(), "DD-MM-YYYY HH:MM:SS")]
End With
End Sub
Sub Show_Form()
frmform.Show
End Sub