Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Dynamische Änderung des ersten Datensatzes einer Abfrage per VBA

Frage Microsoft Microsoft Office

Mitglied: stevensqwe

stevensqwe (Level 1) - Jetzt verbinden

23.03.2010, aktualisiert 22:48 Uhr, 7610 Aufrufe, 3 Kommentare

Hi!
Habe gerade Schwierigkeiten, eine Abfrage von mir zur Anzeige als Pivot Chart vorzubereiten. Durch meine Abfrage habe ich bereits die Daten für eine Wochenperiode herausgefiltert, muss allerdings noch den Aufsatzpunkt auf den Wochenanfang beziehen und nicht auf den vorherigen Datenpunkt, wofür ich den ersten Datensatz ändern muss, Leider bekomme ich einen Laufzeitfehler 3027, Aktulaisierennicht möglich, Datenbank oder Objekt schreibgeschützt. Könnt Ihr mir helfen?

Abfrageergebnis von Q_PivotRowNum:

RowNum StartDate StartTime EndDate EndTime PhaseLength LyoTasks
1 17.01.2010 23:00 18.01.2010 02:50 3:50 Waiting
2 18.01.2010 02:50 18.01.2010 06:00 3:10 Phase1
3 ...

Nun versuche ich, das StartDate auf den 18.01.2010 und die StartTime auf 00:00 zu setzen ud entsprechend die PhaseLength auf 2:50h...

Sub Q_PivotRowNum_change()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String


Set db = Application.CurrentDb
strSQL = "SELECT * FROM Q_PivotRowNum"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst

If rst.NoMatch = True Then
MsgBox "K nicht gefunden"

Else

rst.Edit
rst.Fields("StartDate") = "18.01.2010"
rst.Fields("StartTime") = "00:00"
rst.Fields("PhaseLength") = "02:50"
rst.Update

End If

rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Warum bekomme ich hier den Laufzeitfehler 3027 und wie kann ich die Abfrage oder den Code ändern, um den ersten Datensatz zu ändern (und dann die Abfrage als PivotChart ausgeben zu können)?

Für Eure Hilfe wäre ich sehr dankbar!

Schönen Gruß,
stevens
Mitglied: SlainteMhath
24.03.2010 um 08:13 Uhr
Moin,

was Laufzeitfehler 3027 genau aussagt weis ich jetzt zwar nicht (bissl text wäre noch schön gewesen *g*), aber ich nehme an, das dein Recordset nicht "Updateable" ist.

Um das zu umgehen, musst Du

1) den zu ändernden Datensatz eindeutig identifizieren (Primary Key)
und
2) dann den Satz in der Original TABELLE ändern.

Abgesehn davon würde ich aus
01.
SELECT * FROM Q_PivotRowNum
ein
01.
SELECT TOP 1 * FROM Q_PivotRowNum ORDER BY ... DESC/ASC
machen.

lg,
Slainte
Bitte warten ..
Mitglied: 76109
24.03.2010 um 08:15 Uhr
Hallo stevensqwe!

Also, nach meinem Verständnis kann eine Abfrage-Tabelle die bereits anhand bestimmter Kriterien erstellt wurde, nicht überschrieben werden. Von daher, würde ich die Abfrage in eine neue normale Tabelle kopieren und diese Tabelle entsprechend bearbeiten.

Gruß Dieter
Bitte warten ..
Mitglied: stevensqwe
24.03.2010 um 11:57 Uhr
Herzlichen Dank Euch beiden!

Werde dies bei zukünftigen Datenmanipulationen per VBA dann auch so machen!

Für mein Problem hier habe ich festgestellt, dass ich versuche mit Kanonen auf Spatzen zu schießen: Hab eine Lösung gefunden, das gleiche über eine Abfrage zu erreichen:
Modifiziere hiermit den Aufsatzpunkt des ersten Datensatzes und belasse den Rest der Tabelle gleich...

SELECT T.RowNum, #01/18/2010# AS StartDate, #00:00# as StartTime, T.EndDate, T.EndTime, CDbl(T.EndDate+T.EndTime-StartDate-StartTime)*24 AS PhaseLength,T.LyoTasks,T.LotNumber, T.LyoNr
FROM Q_PivotRowNum AS T
WHERE T.StartDate < #01/18/2010#
UNION SELECT *
FROM Q_PivotRowNum AS T
WHERE T.StartDate >= #01/18/2010#;

Schönen Gruß und Danke für Eure Hilfe!
stevens
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (19)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...