Thema Datum  Von Nutzer Rating
Antwort
16.02.2014 20:43:29 Jens
NotSolved
Blau Erstellung einer neuen Kundennummer
 16.02.2014 22:22:31 Gast83913
Solved

Ansicht des Beitrags:
Von:
Gast83913		 Datum:
16.02.2014 22:22:31		 Views:
789		 Rating:
     
Antwort:
 Nein
Thema:
Erstellung einer neuen Kundennummer

Hi Jens,

< hier meine Lösungsansatz der nicht funktioniert

> kein Wunder ;)

Gruß H27

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
'**********************************************************
Rem schreib bitte immer diese  Anweisung in die erste Zeile
Option Explicit
Rem dann mault VBA die div. Tippfehler sofort an
'**********************************************************
 
 Private Sub KdNr_Enter() 'Erstellung einer neuen Kundennummer
' neue KDNR soll bestehen aus:
' ersten 4 Buchstaben des Firmennamens dann ein /
 ' den ersten 4 Buchstaben des Ortes  dann en  -
'und der PLZ
 
'diese neue KDNR soll beim betreten des Feld KdNr eingefügt werde
  
Dim strkdnr As String
Dim strFirma As String
'********************************************************
Rem dim strFrimaneu und im Code strFirmaneu
Dim strFirmaneu As String
'********************************************************
Dim strOrt As String
Dim strOrtneu As String
Dim strPlz As String
 
strFirma = Me.Firma.Value
strFirmaneu = Left(strFirma, 4)
strOrt = Me.Ort.Value
strOrtneu = Left(strOrt, 4)
strPlz = Me.PLZ.Value
 
'********************************************************
Rem wie viele Schreibweisen von Firma gibt es ?
'strkdnr = strFimaneu & "/" & strOrtneu & "-" & strPlz
strkdnr = strFirmaneu & "/" & strOrtneu & "-" & strPlz
'********************************************************
 
'********************************************************
Rem dreh es um un schreib die Variable richtig
'strkndr = Me.KdNr  'net so sondern
Me.KdNr = strkdnr
'********************************************************
 
 
 
'**********************************************************************
Rem alternativ geht der ganze Code ohne dim und dam auch in einer Zeile
 
Me.KdNr = Left(Me.Firma, 4) & "/" & Left(Me.Ort, 4) & "-" & Me.PLZ
 
'**********************************************************************
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2014 20:43:29 Jens
NotSolved
Blau Erstellung einer neuen Kundennummer
 16.02.2014 22:22:31 Gast83913
Solved