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, 5507 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
Off Topic

"Ich habe nichts zu verbergen"

(1)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Microsoft Office
gelöst Access 2007 (2)

Frage von Everest zum Thema Microsoft Office ...

Datenbanken
gelöst Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA) (7)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Access 2010 - Filter für Datum funkioniert nicht VBA (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (32)

Frage von Winuser zum Thema Hyper-V ...

Linux Netzwerk
gelöst DHCP vergibt keine Adressen (30)

Frage von Maik82 zum Thema Linux Netzwerk ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...