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

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, 2986 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
EXCEL VBA Termindaten aus Tabelle Filtern

Frage von t3jxbus zum Thema Microsoft Office ...

VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...