Laufzeitfehler Typenkonflikt (User Form)
04.09.2014 16:41:24
Burak
ich lese schon seit einiger Zeit im Forum mit und konnte bisher die meisten VBA Probleme mit eurer Hilfe/den Beiträgen lösen.
Nun steh ich vor einem Problem, dass mich schon seit Stunden beschäftigt.. ich komme nicht mehr weiter und fand im Forum nichts was mir hilft.
Es geht um einen VBA Code, der eine User Form öffnen soll. Programmiert wurde es von meinem Vorgänger im Büro. Wenn ich den Code ausführe, erscheint Laufzeitfehler, Typenkonflikt und wenn ich auf Debuggen klicke erscheint:
Private Sub CommandButton2_Click()
menu.Hide
Company.Show
Private Sub UserForm_Initialize()
'Dim dbpwd As String
Dim i As Integer
Me.StartUpPosition = 2
'Set window title
With Company
If MenuAdmin.admin = True Then
.Caption = .Caption & " - ADMIN MODE "
.CommandButton2.Visible = True
ElseIf MenuAdmin.admin = False Then
.Caption = .Caption & " - USER MODE "
End If
End With
'dbpwd = "2013"
TextBox1.Value = 1
Durationbox.Value = "Months"
'Connection with Acces DB
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0;"
.ConnectionString = "Data source=" & ThisWorkbook.Path & "\FDE_MV_DB.accdb" & " ; Jet _
OLEDB:Database password = " & dbpwd & ";"
.Open
End With
'Ajout liste companies
SQLcommand = "Select Distinct Name From fde_mv " '######## need index
Set rs = cn.Execute(SQLcommand)
Do While Not rs.EOF
Companybox.AddItem UCase(rs!name)
rs.MoveNext
Loop
rs.Close
cn.Close
Companybox.List = ListSort(Companybox.List)
'Ajout list options FDE
With Optionsbox
.AddItem "Share Price"
.AddItem "Average FDE(sector within country)"
.AddItem "Average FDE (sector globally)"
.AddItem "Volatility"
End With
'Definition scrollbar defaut
ScrollBar1.min = 41420
ScrollBar1.max = CLng(DateAdd("d", -1, Date))
'Ajout list duration
With Durationbox
.AddItem "Days"
.AddItem "Weeks"
.AddItem "Months"
.AddItem "Years"
End With
'Update
'TextBox2.Value = CDate(ScrollBar1.min)
End Sub
Anzeige