Top-Themen

Aktuelle Themen (A bis Z)

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

VBA Vergleiche Lokale Tabelle mit anderer Access Tabelle und wenn andere Tabelle neuer dann X sonst Y

Frage Entwicklung VB for Applications

Mitglied: christiankarl

christiankarl (Level 1) - Jetzt verbinden

22.11.2013, aktualisiert 14:41 Uhr, 3309 Aufrufe, 5 Kommentare

Hallo,
ich habe eine Zentrale Access Datei,
in welcher eine Tabelle Version vorhanden ist
In dieser steht nur eine Zeile, wo das akuelle Datum eingetragen wird.

Ich habe eine Lokale Access Datei in dieser ist ebenfalls diese Tabelle vorhanden.

Nun möchte ich per VBA die Tabellen vergleichen und wenn die Zentrale Tabelle, dort das Datum aktueller ist als die Lokale Datei dann soll
X passieren sonst Y,

Irgendwie bekomme ich dieses nicht hin,

Vielleicht kann mir hier jemand helfen.
Mitglied: SlainteMhath
22.11.2013 um 14:43 Uhr
Moin,

Irgendwie bekomme ich dieses nicht hin,
Im Prinzip würde so vorgehen:
1. Tabelle per ODBC Verknüpfen
2. Werte aus beiden Tabellen per Query oder dlookup auslesen
3. X oder Y machen
4. Verknüpfung wieder lösten

Wo genau hängst's?

lg,
Slainte
Bitte warten ..
Mitglied: christiankarl
22.11.2013, aktualisiert um 15:19 Uhr
Hallo Slainte,

danke für die Rückmeldung,
eigentlich hängt es am gesamten VBA.
bin da nicht wirklich Fit drin.

versuch

01.
DoCmd.TransferDatabase acLink, "Microsoft Access", _  
02.
                           "q:\test.accdb", _  
03.
                           acTable, "Version", "TempVersion", False 
04.
 
05.
'Hier fehlt der verlgeich zwischen den tabellen 
06.
 
07.
On Error Resume Next  
08.
    DoCmd.DeleteObject acTable, "TempVersion"  
09.
    On Error GoTo 0 
10.
 
Gruß
Christian
Bitte warten ..
Mitglied: SlainteMhath
22.11.2013 um 15:24 Uhr
eigentlich hängt es am gesamten VBA.
bin da nicht wirklich Fit drin.
damit wirst du dich aber ein bisschen beschäftigen müssen.

- Tabellen Verknüpfen z.b. hier: http://technet.microsoft.com/en-us/library/cc722917.aspx (ab: To link an external table)
- Werte auslesen geht per dlookup oder Query/QueryDef
- "X oder Y" machen geht mit "if...then...else"
Bitte warten ..
Mitglied: colinardo
23.11.2013, aktualisiert 24.11.2013
Hallo Christian,
der Vergleich zwischen zwei Tabellen und der Zurückgabe des aktuelleren Datums jeder Zeile, lässt sich auch ohne VBA in Access mit einer SQL-Abfrage folgender Art realisieren:
Im Beispiel heißen die Tabellen "table1" und "table2", die Datums-Spalten der Tabellen:"version" und die Primärindex-Spalte: "ID"
SELECT Switch([table1].[version]>[table2].[version],[table1].[version],True,[table2].[version]) AS [Neueste Version] 
FROM table1 INNER JOIN table2 ON table1.ID = table2.ID;
Das Ergebnis dieser Abfrage ist eine Tabelle mit einer Spalte namens "Neueste Version".
Hinweis: Diese SQL-Abfrage mit Switch() funktioniert nur unter MS Access.

Grüße Uwe
Bitte warten ..
Mitglied: SlainteMhath
25.11.2013 um 08:13 Uhr
Sieht ja schonmal gar nicht so übel aus

'Hier fehlt der verlgeich zwischen den tabellen
Schau dir doch bitte mal die dlookup-Funktion an
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
ACCESS Tabellen vergleichen
gelöst Frage von abuelitoMicrosoft Office4 Kommentare

Hallo, ich habe eine ACCESS 2003 Datenbank mit 2 Tabellen. Jede Tabelle hat nur eine Spalte. Tabelle1 hat ca. ...

VB for Applications
Excel VBA .csv Import in Tabelle x, ab Spalte y
gelöst Frage von drimrimVB for Applications

Hallo, für meine Datenbank benutze ich ein Makro, um die Datensätze aus einer *.csv Datei in meine Tabelle zu ...

Datenbanken
Access Tabellen vergleichen, Abweichungen ausgeben
gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ist es mit einer Access Abfrage möglich, den Unterschied zweier Tabellen auszugeben(ohne VBA Code)? Ich hätte jetzt ...

VB for Applications
VBA Access: Synchronisation zwischen Recordset und Access Tabelle
Frage von qwertz1VB for Applications2 Kommentare

Hallo, Ich habe in Access ein VBA-Skript programmiert. Das Skript holt sich Daten von einer MySQL Server. Das geht ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 10 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 17 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 19 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 22 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...