Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Telefonnummer kürzen NEU
zurück: Kriterien aus nem Formular die mich fertig machen!!! weiter: Zeiträume berechnen ohne "Datum" Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
l-bing
Gast


Verfasst am:
24. Aug 2004, 12:35
Rufname:

Telefonnummer kürzen NEU - Telefonnummer kürzen NEU

Nach oben
       

Hallo,

noch kurz zu unten:
http://www.office-loesung.de/viewtopic.php?t=15512&sid=addd99fadb388ceb169dfcdeb04edbb1

- der Vorschlag ist super, aber ich möchte jetzt nur bestimmte Nummern kürzen (z.B. Handynummern nicht)

???


Gruß l-bing
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 13:45
Rufname:


AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hallo i-bing,
es kommt ein bisschen darauf an, wie du deine handy-nummern gespeichert hast. erkennst du sie nur an der vorwahl? stehen sie in einem eigenen feld? sind sie durch ein 1stelliges kennzeichen ("H", "P" o.ä.) gekennzeichnet?
wenn sie in einem textfeld stehen, hier ein ansatz:
Code:
Option Compare Database
Option Explicit

Public Function tel()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim v_tel As String
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("t_adressen", dbOpenDynaset)
    rs.MoveFirst
    Do Until rs.EOF
        Select Case Left(rs!Handy, 4)       'die ersten 4 stellen abfragen
          Case "0177" Or "0172" Or "0179" Or "0160"
            v_tel = Right(rs!Handy, 4)        'nur die letzten 4 stellen übernehmen
        End Select
        rs.MoveNext
    Loop
End Function

diese coder ändert noch nicht in der tabelle, sondern speichert die gekürzte nr. in der variablen v_tel.
kommst du damit ein stück weiter?
ansonsten noch mal ein paar details mehr rübergeben.
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
l-bing
Gast


Verfasst am:
24. Aug 2004, 14:02
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

Noch ein Bsp zum verdeutlichen.

Bei allen Nummern aus Erfurt sollen nur die letzten 4 Zahlen herauskommen.

--> Nummer alt: +49 (0361) 22 4444
--> Nummer neu: 4444
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 14:17
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hi i-bing,
für erfurt könnte der mittlere teil der funktion dann so ausshene:
Code:
    '...
    Select Case Left(rs!Handy, 10)
      Case "+49 (0361)"
        v_tel = Right(rs!Handy, 4)
    End Select
    '...

kommst du damit weiter?
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Gast



Verfasst am:
24. Aug 2004, 14:21
Rufname:


AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

könntest du mal kurz alle Stellen markieren, die ich anpassen muss, klappt nämlich immer noch nicht
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 14:28
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hi i.bing,
versuchen wirs mal. hier der code:
Code:
Option Compare Database
Option Explicit

Public Function tel()       'dies ist der name der funktion, die aufgerufen wird, ist frei wählbar
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim v_tel As String
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("t_adressen", dbOpenDynaset)  't_adressen ersetzen durch deine tabelle
    rs.MoveFirst
    Do Until rs.EOF
        Select Case Left(rs!Handy, 10)      'Handy ersetzen durch deinen feldnamen
          Case "+49 (0361)"
            v_tel = Right(rs!Handy, 4)       'hier auch
            'hier käme die routine für die echte änderung der tabelle rein oder wo soll die kürzung sichtbar werden?
        End Select
        rs.MoveNext
    Loop
End Function

wieder ein stück weiter?
was noch fehlt, ist die info, wo die gekürzten tel-nr. erscheinen sollen. im formular? im bericht?direkt in der tabelle?
gib die info noch mal rüber bitte
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
l-bing
Gast


Verfasst am:
24. Aug 2004, 14:33
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

kurz gesagt: in der selben Tabelle

--> alte Nummer nehmen/ löschen
--> neue Nummer an die Stelle der Alten
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 14:47
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hi i-bing,
so solte s gehen für Erfurt:
Code:
Option Compare Database
Option Explicit

Public Function tel()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim v_tel As String
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("t_adressen", dbOpenDynaset)
    rs.MoveFirst
    Do Until rs.EOF
        Select Case Left(rs!Handy, 10)
          Case "+49 (0361)"
            v_tel = Right(rs!Handy, 4)    'hier wird gekürzte tel-nr. zwischengespeichert, Haltepunkt setzen für tests
            rs.Edit                       'Änderung in tab vorbereiten
            rs![FeldTel] = v_tel          '[FeldTel] ersetzen durch den namen deines tab-feldes
            rs.Update                     'Änderung in tab durchführen
        End Select
        rs.MoveNext
    Loop
End Function

ein paar tipps:
1. tabelle vorher sichern (kopieren/einfügen)
2. haltepunkt bei v_tel = ... setzen und über direktfenster mit
?v_tel {enter} auswerten
3. direktfenster kannst du über ansicht/direktfenster ein-/ausschalten
viele erfolg wünscht
borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Gast



Verfasst am:
24. Aug 2004, 15:00
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

ok, probiere es.
Nur so als Anmerkung, die v_tel wurde nicht erzeugt.
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 15:05
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hi i-bing,
der code geht davoc aus, dass zwischen +49 und ( ein leerzeichen steht, wenn dem nicht so ist, musst du auf left(..,9) andern und bei case die leerstelle löschen vor (.
ist das die erklärung?
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Gast



Verfasst am:
24. Aug 2004, 15:26
Rufname:

AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

es funkt

Danke, Danke, Danke
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Aug 2004, 15:27
Rufname:


AW: Telefonnummer kürzen NEU - AW: Telefonnummer kürzen NEU

Nach oben
       

hi i-bing,
glückwunsch.
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Nur Besucher die im letzten Jahr neu waren anzeigen 7 stephan_b 106 13. Jan 2014, 19:37
Gast Nur Besucher die im letzten Jahr neu waren anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Neu erstellter Spalte Datentyp Währung zuweisen 6 Marx 310 24. Sep 2012, 11:51
Marx Neu erstellter Spalte Datentyp Währung zuweisen
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage, Parameterwerte jedes Mal neu einstellen :( 1 marsihh 200 01. Jun 2011, 18:43
KlausMz Anfügeabfrage, Parameterwerte jedes Mal neu einstellen :(
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbank neu aufsetzen mit gleicher Struktur 5 Marsi 201 13. Jan 2011, 19:47
Charliebraun Datenbank neu aufsetzen mit gleicher Struktur
Keine neuen Beiträge Access Tabellen & Abfragen: Mit Aktualisierungsabfrage Werte neu berechnen 6 spinpoint 805 20. Jul 2010, 12:43
MissPh! Mit Aktualisierungsabfrage Werte neu berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage kürzen 2 payne80 301 26. Mai 2010, 12:14
payne80 Abfrage kürzen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz suchen und ggf neu anlegen 8 Gast091004 292 04. Nov 2009, 15:38
Gast091004 Datensatz suchen und ggf neu anlegen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage ob alt oder neu 18 sonixxl 1415 05. März 2008, 16:20
Willi Wipp Abfrage ob alt oder neu
Keine neuen Beiträge Access Tabellen & Abfragen: Problem beim Kürzen von Zeichenketten 1 Silly14 399 12. Nov 2007, 18:13
derArb Problem beim Kürzen von Zeichenketten
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle bzw Abfrage neu nummerieren? A03 4 Gast 1004 19. Jul 2006, 11:03
Willi Wipp Tabelle bzw Abfrage neu nummerieren? A03
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle neu zusammenstellen 0 DipplInsch 913 27. März 2006, 13:00
DipplInsch Tabelle neu zusammenstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Index neu definieren 9 ElBonitotoo 2836 16. Dez 2005, 13:07
Willi Wipp Index neu definieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen