Vraag : Toegang 2003: Is het mogelijk om en een lijstengegeven uit te geven bij te werken die een recordset gebruiken

Mijn die code laadt momenteel de lijstgegevens op geselecteerde combovakje waarde worden gebaseerd. Het toont zijn waarde in een unbound vorm. Ik kan de gegevens veranderen, dan klik sparen knoop. Welke dan RecordSet opent op EmployeeID wordt gebaseerd toen schrapt het de bestaande Werknemer en redt dan de Werknemer, maar natuurlijk denkt de lijst dit een nieuwe ingang is zodat geeft het het een nieuwe EmployeeID die. Is er een manier om een bestaande werknemer zonder het moeten de werknemer van de lijst zijn bestaande waarden aan de nieuwe die op de vorm worden geleverd bijwerken schrappen en bij te werken? Hier is mijn code voor sparen knoop…

" codeBody "
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:
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:
van
Private SubbtnSave_Click ()
Op Fout GoTo Err_btnSave_Click

    'Cre�ër functionele variabelen
    Verduister strSQL als Koord
    Verduister bericht als Koord
        
    'Cre�ër variabelen voor inputgebieden.
    Verduister Werknemer als Geheel
    Verduister FName als Koord
    Verduister LName als Koord
    Verduister Titel als Koord
    Verduister Adres als Koord
    Verduister Stad als Koord
    Verduister Prov als Koord
    Verduister PCode als Koord
    Verduister Telefoon als Koord
    Verduister WorkEmail als Koord

    Als IsNull (cboEmployee.Value) = Vals toen
        'Wijs gebieden aan variabelen toe
        Werknemer = cboEmployee.Value
        FName = txtFName.Value
        LName = txtLName.Value
        Titel = txtTitle.Value
        Adres = txtAddress.Value
        Stad = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Telefoon = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Open het gegevensbestand
        Plaats db = CurrentDb ()
        
        'Open recordset
        Plaats rs = db.OpenRecordset („Werknemer“)
        
        'SQL verklaring om alle verslagen te schrappen die passende identiteitskaart van de Werknemer van de cboEmployeecontrole hebben
        strSQL = „SCHRAP * VAN [Werknemer] WAAR [EmployeeID] =“ & Werknemer
        
        DoCmd.SetWarnings Vals
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings Waar
        
        'Vul de lijst van de Werknemer met de waarden van de vormgebieden in
        rs.AddNew
        rs. Gebieden („FName“). Waarde = FName
        rs. Gebieden („LName“). Waarde = LName
        rs. Gebieden („Titel“). Waarde = Titel
        rs. Gebieden („Adres“). Waarde = Adres
        rs. Gebieden („Stad“). Waarde = Stad
        rs. Gebieden („Prov“). Waarde = Prov
        rs. Gebieden („PostalCode“). Waarde = PCode
        rs. Gebieden („Telefoon“). Waarde = Telefoon
        rs. Gebieden („WorkEmail“). Waarde = WorkEmail
        rs. Update
        
        'Sluit en stel db terug en recordset
        rs. Sluit
        Plaats rs = niets
        db. Sluit
        Plaats db = niets
        Toegevoegde de Werknemer van MsgBox „. “, vbInformation + vbOKOnly, „het Beheer van de Werknemer“
        
        'Verfris de werknemersdaling onderaan menu
        Me.cboEmployee.Requery
        
        'Duidelijke gebieden
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = verklaar nietig
        
    Anders
        'Wijs gebieden aan variabelen toe
        FName = txtFName.Value
        LName = txtLName.Value
        Titel = txtTitle.Value
        Adres = txtAddress.Value
        Stad = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Telefoon = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Open het gegevensbestand
        Plaats db = CurrentDb ()
        
        'Open recordset
        Plaats rs = db.OpenRecordset („Werknemer“)
        
        'SQL verklaring om alle verslagen te schrappen die passende identiteitskaart van de Werknemer van de cboEmployeecontrole hebben
        strSQL = „SCHRAP * VAN [Werknemer] WAAR [EmployeeID] =“ & Werknemer
        
        DoCmd.SetWarnings Vals
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings Waar
        
        'Vul de lijst van de Werknemer met de waarden van de vormgebieden in
        rs.AddNew
        rs. Gebieden („FName“). Waarde = FName
        rs. Gebieden („LName“). Waarde = LName
        rs. Gebieden („Titel“). Waarde = Titel
        rs. Gebieden („Adres“). Waarde = Adres
        rs. Gebieden („Stad“). Waarde = Stad
        rs. Gebieden („Prov“). Waarde = Prov
        rs. Gebieden („PostalCode“). Waarde = PCode
        rs. Gebieden („Telefoon“). Waarde = Telefoon
        rs. Gebieden („WorkEmail“). Waarde = WorkEmail
        rs. Update
        
        'Sluit en stel db terug en recordset
        rs. Sluit
        Plaats rs = niets
        db. Sluit
        Plaats db = niets
        Toegevoegde de Werknemer van MsgBox „. “, vbInformation + vbOKOnly, „het Beheer van de Werknemer“
        
        'Duidelijke gebieden
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = verklaar nietig
        
        'Verfris de werknemersdaling onderaan menu
        Me.cboEmployee.Requery
    Eind als
        
Exit_btnSave_Click:
    Sub van de uitgang
Err_btnSave_Click:
    MsgBox Err.Description
    Hervat Exit_btnSave_Click
Beëindig Sub

Antwoord : Toegang 2003: Is het mogelijk om en een lijstengegeven uit te geven bij te werken die een recordset gebruiken

Andere oplossingen  
 
programming4us programming4us