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:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
|
Option vergleichen Datenbank
Privates VorcboLotNo_Change ()
Schwache rs als Recordset
'den Inhalt des listbox ändern, das basiert auf, welchem Los gewählt wird
Wenn Me.optLot = dann ausrichten
Rs = CurrentDb () .OpenRecordset („auserwähltes dbo_Prospects.ProspectID, dbo_Prospects.FN1, dbo_Prospects.MN1, dbo_Prospects.LN1, dbo_Prospects.CCity, dbo_Prospects.CState, dbo_Prospects.CZip, dbo_Prospects.Home, dbo_Prospects.Cell, dbo_Prospects.SalesPerson einstellen von den dbo_Prospects, WO Los = '“ u. Me.cboLotNo u. „'Auftrag durch dbo_Prospects.LN1“, dbOpenDynaset, dbSeeChanges)
lstProspects.RowSource = ""
Tun während nicht rs.EOF
lstProspects.AddItem rs („ProspectID“) u.“; „u. rs („LN1“) u.“; „u. rs („FN1“) u.“; „u. rs („MN1“) u.“; „u. rs („CCity“) u.“; „u. rs („CState“) u.“; „u. rs („CZip“) u.“; „u. rs („Haupt“) u.“; „u. rs („Zelle“) u.“; „u. rs („Verkäufer“)
rs.MoveNext
Schleife
Beenden wenn
Me.lstProspects.Requery
'Naher Datensatz
rs. Abschluss
Enden-Unterseeboot
Privates VorcboLotNo_Click ()
Schwache rs als Recordset
Wenn Me.optLot = dann ausrichten
Rs = CurrentDb () .OpenRecordset einstellen („* vom dbo_Location“, vom dbOpenDynaset, von den dbSeeChanges VORWÄHLEN)
Me.cboLotNo.RowSource = ""
Tun während nicht rs.EOF
cboLotNo.AddItem rs („LotNo“)
rs.MoveNext
Schleife
Beenden wenn
Me.cboLotNo.Requery
'naher Datensatz
rs. Abschluss
Enden-Unterseeboot
Privates VorcboTradeInDeal_Click ()
Wenn Me.cboTradeInDeal.Value = „ja“ dann
DoCmd.OpenForm „frmTradeIn“, acNormal
Formen! frmTradeIn! txtOrderID.Value = Me.txt OrderID.Value
Me.chkTradeInFinancing.Value = richten aus
Beenden wenn
Unterseeboot beenden
Privates VorcmdComments_Click ()
DoCmd.OpenForm „frmComments“, acNormal
Enden-Unterseeboot
Privates VorcmdOptEquip_Click ()
DoCmd.OpenForm „frmOptEquip“, acNormal
Enden-Unterseeboot
Privates VorcmdRealEstate_Click ()
DoCmd.OpenForm „frmRealEstate“, acNormal
Enden-Unterseeboot
Privates VorcmdSameAddress_Click ()
Me.txt DelSt.Value = Me.txt CurrSt.Value
Me.txt DelLot.Value = Me.txt CurrLot.Value
Me.txt DelCity.Value = Me.txt CurrCity.Value
Me.cboDelState.Value = Me.cboCurrState.Value
Me.txt DelZip.Value = Me.txt CurrZip.Value
Me.txt DelCounty.Value = Me.txt CurrCounty.Value
Enden-Unterseeboot
Privates VorcmdSaveBuyer_Click ()
'schreibt eingegebene Daten zur Datenbank
'Wenn addNew = dann ausrichten
'Anruf InsertRecord (Form, „Abkommen“)
'Anruf InsertRecord (Form, „Aussichten“)
'Sonst
'Anruf UpdateRecord (Form, „Abkommen“)
'Anruf UpdateRecord (Form, „Aussichten“)
'Beenden wenn
Unterseeboot beenden
Privates VorcmdSiteWork_Click ()
DoCmd.OpenForm „frmSiteWork“, acNormal
Enden-Unterseeboot
Privates VorForm_Current ()
Schwache rs als Recordset
Schwaches rs2 als Recordset
'in Terminalserverbenutzernummer holen
Rs = CurrentDb () .OpenRecordset („AUSERWÄHLTES dbo_SalesPerson.Username, dbo_SalesPerson.Manager, dbo_Prospects.ProspectID, dbo_Prospects.FN1, dbo_Prospects.MN1, dbo_Prospects.LN1, dbo_Prospects.CCity, dbo_Prospects.CState, dbo_Prospects.CZip, dbo_Prospects.Home, dbo_Prospects.Cell einstellen, SCHLIESSEN sich dbo_Prospects.SalesPerson von den INNEREN dbo_Prospects dbo_SalesPerson AUF dbo_Prospects.SalesPerson = dbo_SalesPerson.SalesPerson WO an (((dbo_SalesPerson.Username) = '“ u. [Formen]! [Schalttafel]! [txtUserID] u. „'))“, dbOpenDynaset, dbSeeChanges)
'Kontrollen einstellen, um Terminalserveridentifikation zu schützen
Me.txt Salesperson.Value = Formen! Schalttafel! txtSalesPersonID.Value
Me.txt Salesperson.Locked = richten aus
Me.txt LotNo.Value = Formen! Schalttafel! txtLotNo.Value
Me.txt LotNo.Locked = richten aus
'Privilegien für Superbenutzer einstellen--alle Lose und auf alle Verkäufer zurückgreifen
Wenn rs („Manager“) = dann „Sup“
Me.cboSalesperson.Enabled = richten aus
Me.cboLotNo.Enabled = richten aus
Me.optLot.Enabled = richten aus
Me.optSalesperson.Enabled = richten aus
Beenden wenn
„Privilegien für Manager-Benutzer einstellen--zu allen Verkäufern“ auf Daten bezüglich dessen zurückgreifen Los der Manager
Wenn rs („Manager“) = „ja“ dann
Me.cboSalesperson.Enabled = richten aus
Me.cboLotNo.Enabled = falsch
Me.optLot.Enabled = falsch
Me.optSalesperson.Enabled = richten aus
Beenden wenn
'priveldges für Verkäufer-Benutzer einstellen--zu eigenen Verkäufen nur auf Daten zurückgreifen
Wenn rs („Manager“) = „nicht“ dann
Me.cboSalesperson.Enabled = falsch
Me.cboLotNo.Enabled = falsch
Me.optLot.Enabled = falsch
Me.optSalesperson.Enabled = falsch
Beenden wenn
„Einstellen rs2 = CurrentDb () .OpenRecordset („auserwähltes dbo_Prospects.ProspectID, dbo_Prospects.FN1, dbo_Prospects.MN1, dbo_Prospects.LN1, dbo_Prospects.CCity, dbo_Prospects.CState, dbo_Prospects.CZip, dbo_Prospects.Home, dbo_Prospects.Cell, dbo_Prospects.SalesPerson von den dbo_Prospects, WO Verkäufer =“ „u. Me.cboSalesperson u.“ „UND Los =““ u. Me.cboLotNo u. „'“ Auftrag durch dbo_Prospects.LN1, dbOpenDynaset, dbSeeChanges)
Einstellen rs2 = CurrentDb () .OpenRecordset („auserwähltes dbo_Prospects.ProspectID, dbo_Prospects.FN1, dbo_Prospects.MN1, dbo_Prospects.LN1, dbo_Prospects.CCity, dbo_Prospects.CState, dbo_Prospects.CZip, dbo_Prospects.Home, dbo_Prospects.Cell, dbo_Prospects.SalesPerson von den dbo_Prospects, WO Verkäufer = „“ u. Me.txt-Verkäufer u. „“ UND Los = ' „u. Me.txt LotNo u.“ 'Auftrag durch dbo_Prospects.LN1 ", dbOpenDynaset, dbSeeChanges)
lstProspects.RowSource = ""
Tun während nicht rs2.EOF
lstProspects.AddItem rs2 („ProspectID“) u.“; „u. rs2 („LN1“) u.“; „u. rs2 („FN1“) u.“; „u. rs2 („MN1“) u.“; „u. rs2 („CCity“) u.“; „u. rs2 („CState“) u.“; „u. rs2 („CZip“) u.“; „u. rs2 („Haupt“) u.“; „u. rs2 („Zelle“) u.“; „u. rs2 („Verkäufer“)
rs2.MoveNext
Schleife
'nahe Datensätze
rs. Abschluss
rs2.Close
Enden-Unterseeboot
Privates VorForm_Load ()
Me.cboSalesperson.Value = Formen! Schalttafel! txtSalesPersonID.Value
Me.cboLotNo.Value = Formen! Schalttafel! txtLotNo.Value
'Wenn addNew = falsch dann
'Schwache rs als Recordset
'Schwaches rs2 als Recordset
'Schwaches rs3 als Recordset
'Schwaches rs4 als Recordset
'Schwaches rs5 als Recordset
'Rs = CurrentDb () .OpenRecordset einstellen („* von den dbo_Prospects vorwählen“)
'Einstellen rs2 = CurrentDb () .OpenRecordset („* von den dbo_Deals vorwählen“)
'Einstellen rs3 = CurrentDb () .OpenRecordset („* vom dbo_DPFinance vorwählen“)
'Einstellen rs4 = CurrentDb () .OpenRecordset („* von dbo_DPInventory vorwählen“)
'Einstellen rs5 = CurrentDb () .OpenRecordset („* vom dbo_DPInsurance vorwählen“)
'Einstellen rs6 = CurrentDb () .OpenRecordset („* vom dbo_SalesPerson vorwählen“)
„rs. Geöffnet „* von den dbo_Prospects vorwählen in denen ProspectID =“ „u. Formen! frmDealPkgMain! txtProspectID u.“ '„, oconn, adLockOptimistic
„rs2.Open „* von den dbo_Deals in denen OrderNo=““ u. Formen vorwählen! frmDealPkgMain! txtOrderID u. „'“, occon, adLockOptimistic
„rs3.Open „* vom dbo_DPFinance in dem OrderNo=““ u. Formen vorwählen! frmDealPkgMain! txtOrderID u. „'“, occon, adLockOptimistic
„rs4.Open „wählen * von dbo_DPInventory wo OrderNo=““ u. Formen vor! frmDealPkgMain! txtOrderID u. „'“, occon, adLockOptimistic
„rs5.Open „* vom dbo_DPInsurance in dem OrderNo=““ u. Formen vorwählen! frmDealPkgMain! txtOrderID u. „'“, occon, adLockOptimistic
'Felder bevölkern
'Wenn nicht rs.EOF dann
'Me.txtProspectID.Value = rs („ProspectID“)
'Me.txtOrderID.Value = rs2 („OrderNo“)
'Me.txtEntryDate = rs („InputDate“)
'Me.txtFN1 = rs („FN1“)
'Me.txtFN2 = rs („FN2“)
'Me.txtFN3 = rs („FN3“)
'Me.txtFN4 = rs („FN4“)
'Me.txtMN1 = rs („MN1“)
'Me.txtMN2 = rs („MN2“)
'Me.txtMN3 = rs („MN3“)
'Me.txtMN4 = rs („MN4“)
'Me.txtLN1 = rs („LN1“)
'Me.txtLN2 = rs („LN2“)
'Me.txtLN3 = rs („LN3“)
'Me.txtLN4 = rs („LN4“)
'Me.txtHome = rs („Haupt“)
'Me.txtCell = rs („Zelle“)
'Me.txtOffice = rs („Büro“)
'Me.txtEmail = rs („eMail“)
'Me.txtCurrSt = rs („CAddress“)
'Me.txtCurrLot = rs („CLotNo“)
'Me.txtCurrCity = rs („CCity“)
'Me.cboCurrState = rs („CState“)
'Me.txtCurrZip = rs („CZip“)
'Me.txtCurrCounty = rs („CCounty“)
'Me.txtDelSt = rs („DAddress“)
'Me.txtDelLot = rs („DLotNo“)
'Me.txtDelCity = rs („DCity“)
'Me.cboDelState = rs („DState“)
'Me.txtDelZip = rs („DZip“)
'Me.txtBuy1DOB = rs („Buyer1DOB“)
'Me.txtBuy2DOB = rs („Buyer2DOB“)
'Me.txtBuy3DOB = rs („Buyer3DOB“)
'Me.txtBuy4DOB = rs („Buyer4DOB“)
'Me.txtBuy1SSN = rs („SSN1“)
'Me.txtBuy2SSN = rs („SSN2“)
'Me.txtBuy3SSN = rs („SSN3“)
'Me.txtBuy4SSN = rs („SSN4“)
'Me.txtCurrRes = rs („CurrRes“)
'Me.txtOccupation = rs („Besetzung“)
'Me.txtMaritalStatus = rs („Ehe“)
'Me.txtHomeUse = rs („HomeUse“)
'Me.chkSpecialOrder = rs2 („Special“)
'Me.cboStk = rs („STK1“)
'Me.txtHomeInfoNo = rs („NUMERISCH“)
'Me.txtHomeInfoSerialNo = rs2 („SerialNo“)
'Me.txtNUR = rs2 („NUR“)
'Me.txtSDT = rs2 („SDT“)
'Me.txtHomeInfoManufacturer = rs2 („MfgName“)
'Me.txtHomeInfoModel = rs2 („Modell“)
'Me.txtCarpet = rs2 („Teppich“)
'Me.txtSiding = rs2 („Vinyl“)
'Me.txtYear = rs2 („Jahr“)
'Me.txtBR = rs2 („Brno“)
'Me.txtBA = rs2 („BANo“)
'Me.txtFloorW = rs2 („FW“)
'Me.txtFloorL = rs2 („Florida“)
'Me.txtHitchW = rs2 („HW“)
'Me.txtHitchL = rs2 („HL“)
'Me.txt2ASiteWorkTotal = rs2 („SiteSTotal“)
'Me.txt2BOptEquipTotal = rs2 („OptEQTotal“)
'Me.cboTaxableDeal = rs2 („steuerpflichtig“)
'Me.txtTradeAllowance = rs2 („TradeOver“)
'Me.txt3ACCTax = rs2 („CandCTax“)
'Me.txt3BDocFees = rs2 („DocFee“)
'Me.txt7ALocalTax = rs2 („LocalTax“)
'Me.txt7BInstallPermit = rs2 („AncorPermit“)
'Me.txt7CTitleFees = rs2 („TitleFee“)
'Me.txt7DUCCFees = rs2 („UCCFee“)
'Me.txt8BClosingCosts = rs2 („REClosing“)
'Me.txt8CNontaxImprove = rs2 („RENonTax“)
'Me.txt8DFinanceFees = rs2 („FinFee“)
'Me.txtBasePrice = rs („Price1“)
'Me.txtSalesTaxHomeInfo = rs2 („SalesTax“)
'Me.txtRealEstateHomeInfo = rs2 („RealEstate“)
'Me.txtInsuranceHomeInfo = rs2 („InsTotal“)
'Me.txtTotalPurchaseHomeInfo = rs2 („TotalPurchase“)
'Me.cboDealType = rs3 („DealType“)
'Me.cboOwnProperty = rs3 („OwnProp“)
'Me.txtDownPayment = rs3 („DownPay“)
'Me.chkTradeInFinancing = rs3 („TradeIn“)
'Me.txtTradeAllowanceFinancing = rs3 („TotalAllow“)
'Me.txtBalanceDueFinancing = rs3 („BalDue“)
'Me.txtEquityFinancing = rs3 („SiteAllow“)
'Me.txtOtherCredits1F = rs3 („CreditOther1“)
'Me.txtOtherCr1Total = rs3 („crOtherAmt1“)
'Me.txtOtherCredits2F = rs3 („CreditOther2“)
'Me.txtOtherCr2Total = rs3 („crOtherAmt2“)
'Me.cboLienholder = rs3 („Leinholder“)
'Me.cboSubdivision = rs3 („Unterteilung“)
'Me.cboLender = rs3 („kreditgebende Stelle“)
'Me.txtRateFinancing = rs3 („Rate“)
'Me.txtLotNoFinancing = rs3 („LotNo“)
'Me.txtTermsFinancing = rs3 („NumTerms“)
'Me.cboTermsFinancing = rs3 („Ausdruck“)
'Me.txtGoodThroughFinancing = rs3 („GoodThru“)
'Me.cboRangeMfg = rs4 („RangeMfg“)
'Me.cboRangeSize = rs4 („RangeSize“)
'Me.txtRangeSerial = rs4 („RangeSerial“)
'Me.cboRefMfg = rs4 („RefMfg“)
'Me.cboRefSize = rs4 („RefSize“)
'Me.txtRefSerial = rs4 („RefSerial“)
'Me.cboDishwasherMfg = rs4 („DishMfg“)
'Me.cboDishSize = rs4 („DishSize“)
'Me.txtDishSerial = rs4 („DishSerial“)
'Me.cboMicrowaveMfg = rs4 („MicroMfg“)
'Me.cboMicrowaveSize = rs4 („MicroSize“)
'Me.txtMicrowaveSerial = rs4 („MicroSerial“)
'Me.cboWasherMfg = rs4 („WashMfg“)
'Me.cboWasherSize = rs4 („WashSize“)
'Me.txtWasherSerial = rs4 („WashSerial“)
'Me.cboDryerMfg = rs4 („DryerMfg“)
'Me.cboDryerSize = rs4 („DryerSize“)
'Me.txtDryerSerial = rs4 („DryerSerial“)
'Me.cboAirUnitMfg = rs4 („ACMfg“)
'Me.cboAirUnitSize = rs4 („ACSize“)
'Me.txtAirUnitSerial = rs4 („ACSerial“)
'Me.txtOtherDesc1 = rs4 („Other1Desc“)
'Me.cboOtherMfg1 = rs4 („Other1Mfg“)
'Me.cboOtherSize1 = rs4 („Other1Size“)
'Me.txtOtherSerial1 = rs4 („Other1Serial“)
'Me.txtOtherDesc2 = rs4 („Other2Desc“)
'Me.cboOtherMfg2 = rs4 („Other2Mfg“)
'Me.cboOtherSize2 = rs4 („Other2Size“)
'Me.txtOtherSerial2 = rs4 („Other2Serial“)
'Me.txtFireMiles = rs5 („FireMiles“)
'Me.chk25less = rs5 („TwentyFiveLess“)
'Me.chk26to50 = rs5 („TwentySixFifty“)
'Me.chk50to100 = rs5 („FiftyOneHundred“)
'Me.chk101orMore = rs5 („OneHundredOne“)
'Me.chkNotInPark = rs5 („NotInPark“)
'Me.chkUnknown = rs5 („UnknownLocation“)
'Me.chkPermFoundQ = rs5 („PermFound“)
'Me.chkOwnedClientQ = rs5 („ClientOwned“)
'Me.chkCompositeRoofQ = rs5 („CompositeRoof“)
'Me.chkProtSidingQ = rs5 („ProtSiding“)
'Me.chkCityLimitsQ = rs5 („InCityLimits“)
'Me.chkTiedDownQ = rs5 („TiedDown“)
'Me.chkPrevTitledQ = rs5 („PrevTitled“)
'Me.chkModHomeQ = rs5 („ModHome“)
'Me.chkOnePay = rs5 („OnePay“)
'Me.chkFourPay = rs5 („FourPay“)
'Me.chkTenPay = rs5 („TenPay“)
'Me.chkEZPay = rs5 („EZPay“)
'Me.txtDwellLimit = rs5 („DwellLimit“)
'Me.txtTerritory = rs5 („Gegend“)
'Me.txtDwellCode = rs5 („DwellCode“)
'Me.txtDwellLOL = rs5 („DwellLOL“)
'Me.txtDwellPrem = rs5 („DwellPrem“)
'Me.txtPersPropCode = rs5 („PerProCode“)
'Me.txtPersPropLOL = rs5 („PerProLOL“)
'Me.txtPersPropPrem = rs5 („PerProPrem“)
'Me.txtAdjCode = rs5 („AdjStrucCode“)
'Me.txtAdjLOL = rs5 („AdjStrucLOL“)
'Me.txtAdjPrem = rs5 („AdjStrucPrem“)
'Me.txtPerLPLCode = rs5 („PerLiabCode“)
'Me.txtPersLPLLOL = rs5 („PerLiabLOL“)
'Me.txtPersLPLPrem = rs5 („PerLiabPrem“)
'Me.txtOther1DescIns = rs5 („InsO1Name“)
'Me.txtOther1CodeIns = rs5 („InsO1Code“)
'Me.txtOther1LOLIns = rs5 („InsO1LOL“)
'Me.txtOther1PremIns = rs5 („InsO1Prem“)
'Me.txtOther2DesIns = rs5 („InsO2Name“)
'Me.txtOther2CodeIns = rs5 („InsO2Code“)
'Me.txtOther2LOLIns = rs5 („InsO2LOL“)
'Me.txtOther2PremIns = rs5 („InsO2Prem“)
'Me.txtOther3DescIns = rs5 („InsO3Name“)
'Me.txtOther3CodeIns = rs5 („InsO3Code“)
'Me.txtOtherLOL3Ins = rs5 („InsO3LOL“)
'Me.txtOther3PremIns = rs5 („InsO3Prem“)
'Me.cboCardTypeIns = rs5 („CreditCard“)
'Me.txtCardNoIns = rs5 („CCNumber“)
'Me.txtExpDateIns = rs5 („CCExpDate“)
'Me.txtAmtChargedIns = rs5 („AmtCharged“)
'Me.txtNameOnCardIns = rs5 („NameCard“)
'Me.chkSuppHeatQ = rs5 („SuppHeat“)
'Me.chkSHInstalledOtherQ = rs5 („SuppHeatInstalled“)
'Me.chkDangerousPetsQ = rs5 („ViciousPets“)
'Me.chkLocatedIslandQ = rs5 („ThousandFtWater“)
'Me.chkAttachedStructuresQ = rs5 („AttachedStructure“)
'Me.chkIncomeFarmQ = rs5 („FarmIncome“)
'Me.chkPriorBrushfiresQ = rs5 („PriorFireFloodLandslide“)
'Me.chkTwoOrMoreTheftQ = rs5 („TwoMoreFiresTheft“)
'Me.txtSalesperson = rs („Verkäufer“)
'Beenden wenn
'Beenden wenn
Unterseeboot beenden
Privates VoroptLot_Click ()
'Schwache rs als Recordset
'Wenn Me.optLot = dann ausrichten
'Me.optSalesperson = falsch
„Rs = CurrentDb () .OpenRecordset einstellen („* vom dbo_SalesPerson vorwählen, WO LotNo =““ u. Me.cboLotNo u. „'“, dbOpenDynaset, dbSeeChanges)
'Me.cboSalesperson.RowSource = ""
'Tun während nicht rs.EOF
'cboSalesperson.AddItem rs („Verkäufer“)
'rs.MoveNext
'Schleife
'Beenden wenn
'rs. Abschluss
Enden-Unterseeboot
Privates VoroptSalesperson_Click ()
'Schwache rs als Recordset
'Wenn Me.optSalesperson = dann ausrichten
'Me.optLot = falsch
„Rs = CurrentDb () .OpenRecordset einstellen („* vom dbo_SalesPerson vorwählen, WO Verkäufer =““ u. Me.cboSalesperson u. „'“, dbOpenDynaset, dbSeeChanges)
'Me.cboLotNo.RowSource = ""
'Tun während nicht rs.EOF
'cboLotNo.Value = rs („LotNo“)
'Me.cboLotNo.Requery
'Schleife
'Beenden wenn
'rs. Abschluss
Enden-Unterseeboot
Privates VortxtTotalPurchaseHomeInfo_AfterUpdate ()
'Me.txtTotalPurchaseFinancing.Value = Me.txt TotalPurchaseHomeInfo.Value
Enden-Unterseeboot
Privates VortxtTotalPurchaseHomeInfo_Enter ()
'Me.txtTotalPurchaseFinancing.Value = Me.txt TotalPurchaseHomeInfo.Value
Enden-Unterseeboot
|
