|
Hallo liebes VBA-Forum!
Ich hab folgendes Problem:
Ich möchte einen Button erstellen, der nicht nur den Explorer öffnet, sondern gleich einen speziellen Ordner ansteuert z.B.: G:\group\20011\angebote.
Weiters brauche ich die Ansteuerung verschiedener Ordner, je nach Bereichsnummer (z.B.: Bereich 1 = Kunden, Bereich 2 = Partner), ich schätz mal am Besten mit einer If-Anweisung...
Mein bisheriger Code sieht so aus:
Private Sub txt_Kalkulation_Click()
Dim pfad As String
'On Error Resume Next
' Daten aktualisieren
Me.Refresh
pfad = DateiOeffnen("Datei öffnen", "Microsoft Excel Dateien" & Chr$(0) & "*.xls") 'Dialog aus Modul öffnen um Datei zu importieren
If pfad = "" Or Null Then
MsgBox "Bitte wählen Sie eine Excel-Datei aus", vbInformation, "Fehler"
Exit Sub
End If
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Kalk_Detail_Tab", pfad, False, "A16:AV100" 'Importieren
Dim nummer As String
nummer = Me!ProjektID
Dim angebot_nummer As Long
angebot_nummer = [AngebotsSendID]
Dim null_null As Long
null_null = 0
[Kalk_übertragen] = True
Me![txt_Kalkulation].FormatConditions(1).Enabled = True
Me.Refresh
DoCmd.SetWarnings False
'DoCmd.DeleteObject acTable, "_Importfehler"
DoCmd.SetWarnings True
Dim strSQL As String
strSQL = "UPDATE Kalk_Detail_Tab SET AngebotsSendID = '" & angebot_nummer & "' where AngebotsSendID like '" & null_null & "'" 'AngebotsSendID in die Tabelle übertragen
DoCmd.RunSQL (strSQL)
End Sub
Kann mir jemand helfen oder Tipps geben?
|