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

Access 2007 VBA Code Umbauen

Frage Microsoft Microsoft Office

Mitglied: Marlon81

Marlon81 (Level 1) - Jetzt verbinden

21.05.2009, aktualisiert 22:36 Uhr, 5505 Aufrufe

Guten Abend Experten,
vielleicht könnt Ihr mir weiter Helfen.

Ich habe hier ein VBA Code der eine Dubletten Prüfung macht, der Code Funktioniert so das wenn 15 Zahlen erreicht sind das der Datensatz automatisch gespeichert wird. Ist eine Dublette vorhanden wird das Textfeld gelöscht und es erscheint eine Meldung das die Nr bereits vorhanden ist.

Bis dahin alles Super, ich möchte jetzt nur noch eine Prüfung mit einbauen. Die Nr. soll mit einer Soll-Tabelle abgeglichen werden.
Ich stelle es mir so vor. Die Mitarbeiter Tragen die Nr. in eine Ist-Tabelle ein, Die Nr. soll dann mit der Soll-Tabelle abgeglichen werden. Ist die Nr. in der Soll-Tabelle vorhanden, darf die Nr. ind die Ist Tabelle gespeichert werden.

Der Dubletten Code ist in der Ist-Tabelle, der Funktioniert auch einwandfrei, muss jetzt halt noch die Prüfung mit einbauen, hier komm ich nicht weiter, da ich nicht so viel Ahnung von VBA habe, vielleicht seit Ihr so nett und Hilft mir dabei.

Anbei der Code:

01.
' Dubletten check 
02.
Private Sub txtIst-Nummer_Change() 
03.
Dim rst As DAO.Recordset 
04.
If Len("" & Me.Ist-Nummer.Text) = 15 Then 
05.
    'Volle Nummer erreicht 
06.
    Set rst = Me.RecordsetClone 
07.
 
08.
 
09.
rst.FindFirst "Ist-Nummer = " & Me.txtIst-Nummer.Text 
10.
    If rst.NoMatch Then 
11.
        'Noch nicht vorhanden. Übernehmen und neuer Satz. 
12.
        DoCmd.GoToRecord acActiveDataObject, , acNewRec 
13.
    Else 
14.
        'Bereits vorhanden, abbrechen und Textfeld leeren 
15.
         MsgBox "Nummer bereits vorhanden!" 
16.
        
17.
        Me.Undo 
18.
    End If 
19.
    rst.Close 
20.
    Set rst = Nothing 
21.
Else 
22.
    'Nummer noch nicht 15 Zeichen lang. 
23.
     
24.
End If 
25.
 
26.
End Sub


Vorab vielen Dank für eure Hilfe
Marlon
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Microsoft Office
Kreuztabelle Access + VBA Code (7)

Frage von Dr.Cornwallis zum Thema Microsoft Office ...

Microsoft Office
gelöst Access 2007 (2)

Frage von Everest zum Thema Microsoft Office ...

Datenbanken
gelöst Access mit VBA vorgefertigte Texte an Datensatz anfügen (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (9)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...