Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Web Apps: Bilder in Berichten?
  • Lorenz15.04.13 10:32
       └ RE: Web Apps: Bilder in Berichten? PeterDoering20.04.13 16:46
          └ RE: Web Apps: Bilder in Berichten? Lorenz22.04.13 20:52
             └ RE: Web Apps: Bilder in Berichten? PeterDoering22.04.13 22:32
                └ RE: Web Apps: Bilder in Berichten? yjk23.04.13 09:33
                   └ RE: Web Apps: Bilder in Berichten? PeterDoering23.04.13 11:35
                      └ RE: Web Apps: Bilder in Berichten? yjk23.04.13 14:30
                └ RE: Web Apps: Bilder in Berichten? Lorenz26.04.13 12:14
                   └ RE: Web Apps: Bilder in Berichten? PeterDoering26.04.13 23:21
  • Webformular in Desktopdatenbank bringen
  • Ralf524.04.13 15:01
       └ RE: Webformular in Desktopdatenbank bringen PeterDoering26.04.13 10:24
  • Probleme bei italienischer Landeseinstellung
  • Burkhard10.04.13 09:45
       └ RE: Probleme bei italienischer Landeseinstellung PeterDoering10.04.13 12:07
          └ RE: Probleme bei italienischer Landeseinstellung Burkhard11.04.13 11:40
             └ RE: Probleme bei italienischer Landeseinstel... PeterDoering12.04.13 12:48
  • Checkliste II
  • mat6510.04.13 19:18
       └ RE: Checkliste II mat6510.04.13 20:47
       └ RE: Checkliste II mat6510.04.13 20:48
  • Probleme im Netzwerkbetrieb
  • bhausu09.04.13 08:45
       └ RE: Probleme im Netzwerkbetrieb Karl Donaubauer09.04.13 09:44
          └ RE: Probleme im Netzwerkbetrieb bhausu10.04.13 19:04
  • OpenReport
  • Schröder08.04.13 12:26
       └ RE: OpenReport Karl Donaubauer08.04.13 13:04
          └ RE: OpenReport Schröder08.04.13 16:59
  • Access Stammtisch München am 11.04.2013 (Do)
  • StefanWirrer08.04.13 09:52
  • Sparklines via VBA erzeugen
  • Greiff20.03.13 14:43
       └ RE: Sparklines via VBA erzeugen PeterDoering21.03.13 00:09
          └ RE: Sparklines via VBA erzeugen Greiff03.04.13 16:26
             └ RE: Sparklines via VBA erzeugen Karl Donaubauer03.04.13 17:21
          └ RE: Sparklines via VBA erzeugen Greiff03.04.13 19:21
             └ RE: Sparklines via VBA erzeugen PeterDoering04.04.13 12:16
  • Access - Dateianhang aus Datensatzabfrage per Mail...
  • Philipp_K21.03.13 18:21
       └ RE: Access - Dateianhang aus Datensatzabfrage pe... StefanWirrer22.03.13 10:55
          └ RE: Access - Dateianhang aus Datensatzabfrage ... Philipp_K29.03.13 11:08
             └ RE: Access - Dateianhang aus Datensatzabfrag... Karl Donaubauer29.03.13 12:13
  • Office2010 Windows7 Serielle Kommunikation
  • tim26.03.13 10:36
       └ RE: Office2010 Windows7 Serielle Kommunikation PeterDoering26.03.13 23:52
          └ RE: Office2010 Windows7 Serielle Kommunikation tim27.03.13 08:21
             └ RE: Office2010 Windows7 Serielle Kommunikation PeterDoering27.03.13 14:55
                └ RE: Office2010 Windows7 Serielle Kommunikation tim27.03.13 17:03
                   └ RE: Office2010 Windows7 Serielle Kommuni... PeterDoering27.03.13 19:38
  • Zugriff auf QuellCode in Access 2010
  • Jaki_Hergerson27.03.13 13:34
       └ RE: Zugriff auf QuellCode in Access 2010 PeterDoering27.03.13 14:57
  • Access hängt nach VBA Code
  • Coyote21.03.13 15:06
       └ RE: Access hängt nach VBA Code Karl Donaubauer21.03.13 18:49
          └ RE: Access hängt nach VBA Code Coyote22.03.13 10:50
  • listenfeld mit detailfeldern in abhängigkeit von k...
  • Josef16.02.13 19:21
       └ RE: listenfeld mit detailfeldern in abhängigkeit... Karl Donaubauer17.02.13 19:01
          └ RE: listenfeld mit detailfeldern in abhängigke... Josef18.02.13 19:36
             └ RE: listenfeld mit detailfeldern in abhängig... Josef22.02.13 16:50
                └ RE: listenfeld mit detailfeldern in abhäng... Karl Donaubauer22.02.13 18:00
                   └ RE: listenfeld mit detailfeldern in abhä... Josef22.02.13 19:37
                      └ RE: listenfeld mit detailfeldern in ab... PeterDoering24.02.13 08:08
                         └ RE: listenfeld mit detailfeldern in ... Josef25.02.13 14:23
                   └ RE: listenfeld mit detailfeldern in abhä... Josef01.03.13 21:18
                      └ RE: listenfeld mit detailfeldern in ab... Karl Donaubauer01.03.13 23:42
                         └ RE: listenfeld mit detailfeldern in ... Josef03.03.13 13:25
                            └ RE: listenfeld mit detailfeldern i... Karl Donaubauer03.03.13 21:31
                               └ RE: listenfeld mit detailfeldern... Josef15.03.13 18:43
  • Access Änderungen
  • Hansruedir14.03.13 18:43
       └ RE: Access Änderungen StefanWirrer15.03.13 09:40
       └ RE: Access Änderungen PeterDoering15.03.13 11:41
  • Multiple Choice auswertung
  • BetzMartin12.03.13 10:44
       └ RE: Multiple Choice auswertung Karl Donaubauer13.03.13 17:46
          └ RE: Multiple Choice auswertung BetzMartin14.03.13 15:39
    Coyote
    Gesendet: 21.03.13 15:06
    Betreff: Access hängt nach VBA Code


    Hallo Allerseits, hab das Problem das nach ausführen von folgendem Code sich das Access 2010 nicht mehr bedienen lässt.
    Hab ich was übersehen?
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Sub KdNrAendern()

    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset

    Dim SuchKriterium As String
    Dim Zaehler1 As Integer
    Dim alteKdNr As String
    Dim neueKDnr As String

    Set db = CurrentDb

    'Tabelle öffnen die die zu erledigenden Aufgaben enthält
    Set rs1 = db.OpenRecordset("SELECT kdnr_alt, kdnr_neu FROM T_KdNrChange WHERE do = -1 AND ready = 0")

    If rs1.BOF And rs1.EOF Then 'Überprüfung ob Recordset überhaupt Werte enthält
    MsgBox "Keine Kundennummern zu ändern!", vbInformation, "Keine Änderung"
    Else 'OK Datensätze vorhanden. Weiter

    'Tabelle "public_T_Kundenstammdaten" öffnen
    Set rs2 = db.OpenRecordset("public_T_Kundenstammdaten", dbOpenDynaset, dbSeeChanges)

    If rs2.BOF And rs2.EOF Then 'Überprüfung ob Recordset überhaupt Werte enthält
    MsgBox "Keine Kunden vorhanden!", vbInformation, "Keine Kunden"
    Else 'OK Datensätze vorhanden. Weiter

    rs1.MoveFirst
    Zaehler1 = 1
    Do While Not rs1.EOF 'Solange noch zu erledigende Änderungen vorhanden
    rs2.MoveFirst
    'Anzeige welcher Datensatz behandelt wird
    DoCmd.Echo False, "Datensatz: " & Zähler1
    Zaehler1 = Zaehler1 + 1
    'Alte und Neue Kundenummer in Variablen ablegen
    alteKdNr = rs1!kdnr_alt
    neueKDnr = rs1!kdnr_neu
    SuchKriterium = "[Kundennummer]='" & alteKdNr & "'" 'Suchkriterium festlegen
    rs2.FindFirst (SuchKriterium) 'Zu ändernder Datensatz in "public_T_Kundenstammdaten" suchen
    If rs2.NoMatch Then 'Wenn Kundennumemr nicht vorhanden dann
    MsgBox ("Folgende Kundennummer nicht vorhanden: " & alteKdNr)
    Else 'Kundennummer vorhanden. Weiter

    'Bereich um die Kundennummer zu ändern
    MsgBox ("Kundennummer wird geändert")

    End If
    rs1.MoveNext
    Loop
    End If
    End If

    'Alle Objekte schließen
    rs1.Close
    rs2.Close
    db.Close

    End Sub
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Wäre super wenn mir hierbei jemand weiterhelfen könnte.

    Grüße Markus
    Top of the page Bottom of the page


    Seite: < 59 60 61 62 63 64 ... 65 66 67 68 69 70 71 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)