Frage : Zugang 2003: Ist er möglich, Tabellendaten using ein recordset zu redigieren und zu aktualisieren

Mein Code lädt z.Z. die Tabellendaten, die auf vorgewähltem Wert des kombinierten Kastens basieren. Er anzeigt seinen Wert in einer ungebundenen Form n. Ich kann die Daten ändern, dann anklicke den Sicherungsknopf -. Welches dann das RecordSet öffnet, das auf dem EmployeeID basiert, dann, das es den vorhandenen Angestellten löscht und dann den Angestellten speichert, aber selbstverständlich die Tabelle denkt, dass dieses eine neue Eintragung also ist, gibt es ihm ein neues EmployeeID. Gibt es eine Weise, einen vorhandenen Angestellten zu aktualisieren, ohne zu müssen, den Angestellten aus der Tabelle zu löschen und seine vorhandenen Werte zu den Neuen zu aktualisieren, die auf der Form geliefert? Ist hier mein Code für das Sicherungsknopf… 

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:

Private VorbtnSave_Click ()
Auf Störung Goto- Err_btnSave_Click

    'Funktionsvariablen verursachen
    strSQL als Schnur verdunkeln
    Mitteilung als Schnur verdunkeln
        
    'Variablen für Eingangsfelder verursachen.
    Angestellten als ganze Zahl verdunkeln
    FName als Schnur verdunkeln
    LName als Schnur verdunkeln
    Titel als Schnur verdunkeln
    Adresse als Schnur verdunkeln
    Stadt als Schnur verdunkeln
    Prov als Schnur verdunkeln
    PCode als Schnur verdunkeln
    Telefon als Schnur verdunkeln
    WorkEmail als Schnur verdunkeln

    Wenn IsNull (cboEmployee.Value) = falsch dann
        'Felder Variablen zuweisen
        Angestellter = cboEmployee.Value
        FName = txtFName.Value
        LName = txtLName.Value
        Titel = txtTitle.Value
        Adresse = txtAddress.Value
        Stadt = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Telefon = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Die Datenbank öffnen
        Einstellen DB = CurrentDb ()
        
        'Das recordset öffnen
        Rs = db.OpenRecordset („Angestellten“) einstellen
        
        'die SQL-alle Aussage zum Löschen notiert, die die zusammenpassende Angestellter Identifikation von der cboEmployee Steuerung haben
        strSQL = „LÖSCHUNG * VON [Angestellter] WO [EmployeeID] =“ u. Angestellter
        
        DoCmd.SetWarnings falsch
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings zutreffend
        
        'Die Angestellttabelle mit den Werten von den Formfeldern ausfüllen
        rs.AddNew
        rs. Felder („FName“). Wert = FName
        rs. Felder („LName“). Wert = LName
        rs. Felder („Titel“). Wert = Titel
        rs. Felder („Adresse“). Wert = Adresse
        rs. Felder („Stadt“). Wert = Stadt
        rs. Felder („Prov“). Wert = Prov
        rs. Felder („PostalCode“). Wert = PCode
        rs. Felder („Telefon“). Wert = Telefon
        rs. Felder („WorkEmail“). Wert = WorkEmail
        rs. Update
        
        'Nahes und zurückgestelltes DB und recordset
        rs. Abschluss
        Rs einstellen = nichts
        DB. Schließen
        Einstellen DB = nichts
        MsgBox „Angestellter addiert. “, vbInformation + vbOKOnly, „Angestellt-Management“
        
        'Den Angestellten erneuern fallenlassen unten Menü
        Me.cboEmployee.Requery
        
        'Freie Felder
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = Null
        
    Sonst
        'Felder Variablen zuweisen
        FName = txtFName.Value
        LName = txtLName.Value
        Titel = txtTitle.Value
        Adresse = txtAddress.Value
        Stadt = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Telefon = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Die Datenbank öffnen
        Einstellen DB = CurrentDb ()
        
        'Das recordset öffnen
        Rs = db.OpenRecordset („Angestellten“) einstellen
        
        'die SQL-alle Aussage zum Löschen notiert, die die zusammenpassende Angestellter Identifikation von der cboEmployee Steuerung haben
        strSQL = „LÖSCHUNG * VON [Angestellter] WO [EmployeeID] =“ u. Angestellter
        
        DoCmd.SetWarnings falsch
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings zutreffend
        
        'Die Angestellttabelle mit den Werten von den Formfeldern ausfüllen
        rs.AddNew
        rs. Felder („FName“). Wert = FName
        rs. Felder („LName“). Wert = LName
        rs. Felder („Titel“). Wert = Titel
        rs. Felder („Adresse“). Wert = Adresse
        rs. Felder („Stadt“). Wert = Stadt
        rs. Felder („Prov“). Wert = Prov
        rs. Felder („PostalCode“). Wert = PCode
        rs. Felder („Telefon“). Wert = Telefon
        rs. Felder („WorkEmail“). Wert = WorkEmail
        rs. Update
        
        'Nahes und zurückgestelltes DB und recordset
        rs. Abschluss
        Rs einstellen = nichts
        DB. Schließen
        Einstellen DB = nichts
        MsgBox „Angestellter addiert. “, vbInformation + vbOKOnly, „Angestellt-Management“
        
        'Freie Felder
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = Null
        
        'Den Angestellten erneuern fallenlassen unten Menü
        Me.cboEmployee.Requery
    Beenden wenn
        
Exit_btnSave_Click:
    Unterseeboot herausnehmen
Err_btnSave_Click:
    MsgBox Err.Description
    Zusammenfassung Exit_btnSave_Click
Enden-Unterseeboot

Antwort : Zugang 2003: Ist er möglich, Tabellendaten using ein recordset zu redigieren und zu aktualisieren

Das folgende überprüfen
http://msexchangeteam.com/archive/2007/02/19/435472.aspx
http://technet.microsoft.com/en-us/library/bb851505(EXCHG.80).aspx
Weitere Lösungen  
 
programming4us programming4us