Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
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, 5522 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
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Code (2)

Frage von specialuser zum Thema VB for Applications ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Mac OS X

Apple hat macOS High Sierra veröffentlicht

(1)

Information von Frank zum Thema Mac OS X ...

Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

(4)

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(7)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

Heiß diskutierte Inhalte
Windows 10
gelöst Netzwerkkarte schaltet sich erst nach dem Logon ein (24)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (22)

Frage von Yaimael zum Thema Windows Server ...

Grafik
gelöst CAD Arbeitsplätze (17)

Frage von Diddi93 zum Thema Grafik ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (16)

Frage von Voiper zum Thema Weiterbildung ...