Hej there,
I'm on this forum for about 2 weeks now.
Busy with Excel Userform trying to get it done!
And thanks to the people here it looks lovely and it works..
But... I have a problem!
When 2 or more people simultaneously open my Useform, fill it in.
And then save it, it will give errors because the files are different because of the data that is filled in..
If it is possible I can add the .xls file if thats nice to have.
This is my entire code:
I'm on this forum for about 2 weeks now.
Busy with Excel Userform trying to get it done!
And thanks to the people here it looks lovely and it works..
But... I have a problem!
When 2 or more people simultaneously open my Useform, fill it in.
And then save it, it will give errors because the files are different because of the data that is filled in..
What i want to achieve is the following:
About 500 people should be able to fill in the form at all time without getting "can't save the file" errors.
I was wondering...About 500 people should be able to fill in the form at all time without getting "can't save the file" errors.
Did I make a mistake by using Excel?
Or should I make an form in Acces that automaticly imports the Data from Excel? ( If that is possible. )
Or should I make the form in Acces?
Thanks in advance for any tips/tricks etc! ( PS. Using Excel and Acces 2003 )Or should I make an form in Acces that automaticly imports the Data from Excel? ( If that is possible. )
Or should I make the form in Acces?
If it is possible I can add the .xls file if thats nice to have.
This is my entire code:
Code:
Private Sub checkAnders_Click()
If checkAnders.Value = True Then
TextAnders.Enabled = True
TextAnders.Visible = True
Else
TextAnders.Enabled = False
End If
End Sub
Private Sub UserForm_Activate()
TextAnders.Visible = False
End Sub
Private Sub cmdinvullen_Click()
If Me.TxtNaam.Value = "" Then
MsgBox "Vul alsjeblieft je naam in.", vbExclamation, "Invulformulier Ideeën Bord"
Me.TxtNaam.SetFocus
Exit Sub
End If
If Me.txtidee.Value = "" Then
MsgBox "Vul alsjeblieft je idee in.", vbExclamation, "Invulformulier Ideeën Bord"
Me.txtidee.SetFocus
Exit Sub
End If
If Me.ComboBox1.Value = "" Then
MsgBox "Vul alsjeblieft je team in.", vbExclamation, "Invulformulier Ideeën Bord"
Me.ComboBox1.SetFocus
Exit Sub
End If
If Datum.Value = "" Then
MsgBox "Vul alsjeblieft een datum in."
Exit Sub
End If
If Not IsDate(Datum.Value) Then
MsgBox "Ongeldige datum ingevoerd."
Exit Sub
End If
If DateValue(Datum.Value) <= Date Then
MsgBox "Datum dient in de toekomst te liggen."
Exit Sub
End If
Dim Resp As Variant
Resp = MsgBox("Je hebt de volgende informatie ingevoerd, klopt dit? " & vbNewLine & "Naam : " & Me.TxtNaam.Value & vbNewLine & "Team : " & Me.ComboBox1.Value & vbNewLine & "Idee : " & Me.txtidee.Value, vbYesNo + vbQuestion)
If Resp = vbNo Then
Exit Sub
Else
MsgBox "Idee ingevoerd!"
End If
RowCount = Worksheets("Archief").Range("B1").CurrentRegion.Rows.Count
With Worksheets("Archief").Range("B1")
.Offset(RowCount, 14).Value = Me.TxtNaam.Value
.Offset(RowCount, 0).Value = Me.txtidee.Value
.Offset(RowCount, 15).Value = Me.ComboBox1.Value
.Offset(RowCount, 25).Value = Me.TextAnders.Value
If Me.chkTijd.Value = True Then
.Offset(RowCount, 19).Value = "X"
Else
.Offset(RowCount, 19).Value = ""
End If
If Me.chkGeld.Value = True Then
.Offset(RowCount, 20).Value = "X"
Else
.Offset(RowCount, 20).Value = ""
End If
If Me.chkCollegas.Value = True Then
.Offset(RowCount, 21).Value = "X"
Else
.Offset(RowCount, 21).Value = ""
End If
If Me.chkToestemming.Value = True Then
.Offset(RowCount, 22).Value = "X"
Else
.Offset(RowCount, 22).Value = ""
End If
If Me.chkRuimte.Value = True Then
.Offset(RowCount, 23).Value = "X"
Else
.Offset(RowCount, 23).Value = ""
End If
If Me.checkAnders.Value = True Then
.Offset(RowCount, 24).Value = "X"
Else
.Offset(RowCount, 24).Value = ""
End If
If Me.chkAchmeaVitale.Value = True Then
.Offset(RowCount, 1).Value = "X"
Else
.Offset(RowCount, 1).Value = ""
End If
If Me.chkKeuringen.Value = True Then
.Offset(RowCount, 2).Value = "X"
Else
.Offset(RowCount, 2).Value = ""
End If
If Me.chkKlantenservice.Value = True Then
.Offset(RowCount, 3).Value = "X"
Else
.Offset(RowCount, 3).Value = ""
End If
If Me.chkFrontoffice.Value = True Then
.Offset(RowCount, 4).Value = "X"
Else
.Offset(RowCount, 4).Value = ""
End If
If Me.chkExoten.Value = True Then
.Offset(RowCount, 5).Value = "X"
Else
.Offset(RowCount, 5).Value = ""
End If
If Me.chkMKB.Value = True Then
.Offset(RowCount, 6).Value = "X"
Else
.Offset(RowCount, 6).Value = ""
End If
If Me.chkDAM.Value = True Then
.Offset(RowCount, 7).Value = "X"
Else
.Offset(RowCount, 7).Value = ""
End If
If Me.chkBA.Value = True Then
.Offset(RowCount, 8).Value = "X"
Else
.Offset(RowCount, 8).Value = ""
End If
If Me.chkRAM.Value = True Then
.Offset(RowCount, 9).Value = "X"
Else
.Offset(RowCount, 9).Value = ""
End If
If Me.chkSAM.Value = True Then
.Offset(RowCount, 10).Value = "X"
Else
.Offset(RowCount, 10).Value = ""
End If
If Me.chkAMI.Value = True Then
.Offset(RowCount, 11).Value = "X"
Else
.Offset(RowCount, 11).Value = ""
End If
If Me.chkGMAT5.Value = True Then
.Offset(RowCount, 12).Value = "X"
Else
.Offset(RowCount, 12).Value = ""
End If
If Me.chkICO.Value = True Then
.Offset(RowCount, 13).Value = "X"
Else
.Offset(RowCount, 13).Value = ""
.Offset(RowCount, 16).Value = Format(Now, "dd/mm/yyyy hh:nn")
End If
.Offset(RowCount, 17).Value = DateValue(Datum.Text)
End With
Unload Me
End Sub
Private Sub cmdsluiten_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub