(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:
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 Porównywać Baza danych
Intymny Okręt podwodny cboLotNo_Change ()
Ciemnawy rs Jako Recordset
'zmieniać the zawartość the listbox opierać się na który udział wybierać
Jeżeli Me.optLot = Prawdziwy Wtedy
Ustalony rs = CurrentDb () .OpenRecordset ("Wybrany 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 od dbo_Prospects DOKĄD Udział = '" & Me.cboLotNo & "'Rozkaz Dbo_Prospects.LN1", dbOpenDynaset, dbSeeChanges)
lstProspects.RowSource = ""
Robić Podczas Gdy Nie rs.EOF
lstProspects.AddItem rs ("ProspectID") &"; "& rs ("LN1") &"; "& rs ("FN1") &"; "& rs ("MN1") &"; "& rs ("CCity") &"; "& rs ("CState") &"; "& rs ("CZip") &"; "& rs ("Domowy") &"; "& rs ("Komórka") &"; "& rs ("Sprzedawca")
rs.MoveNext
Pętla
Kończyć Jeżeli
Me.lstProspects.Requery
'Zamykać dataset
rs. Zakończenie
Końcówka Okręt podwodny
Intymny Okręt podwodny cboLotNo_Click ()
Ciemnawy rs Jako Recordset
Jeżeli Me.optLot = Prawdziwy Wtedy
Ustalony rs = CurrentDb () .OpenRecordset ("WYBIÓRKA * OD dbo_Location", dbOpenDynaset, dbSeeChanges)
Me.cboLotNo.RowSource = ""
Robić Podczas Gdy Nie rs.EOF
cboLotNo.AddItem rs ("LotNo")
rs.MoveNext
Pętla
Kończyć Jeżeli
Me.cboLotNo.Requery
'zamykać dataset
rs. Zakończenie
Końcówka Okręt podwodny
Intymny Okręt podwodny cboTradeInDeal_Click ()
Jeżeli Me.cboTradeInDeal.Value = "Tak" Wtedy
DoCmd.OpenForm "frmTradeIn", acNormal
Forma! frmTradeIn! txtOrderID.Value = Me.txt OrderID.Value
Me.chkTradeInFinancing.Value = Prawdziwy
Kończyć Jeżeli
Kończyć Okręt podwodny
Intymny Okręt podwodny cmdComments_Click ()
DoCmd.OpenForm "frmComments", acNormal
Końcówka Okręt podwodny
Intymny Okręt podwodny cmdOptEquip_Click ()
DoCmd.OpenForm "frmOptEquip", acNormal
Końcówka Okręt podwodny
Intymny Okręt podwodny cmdRealEstate_Click ()
DoCmd.OpenForm "frmRealEstate", acNormal
Końcówka Okręt podwodny
Intymny Okręt podwodny cmdSameAddress_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
Końcówka Okręt podwodny
Intymny Okręt podwodny cmdSaveBuyer_Click ()
'pisać wchodzić do dane baza danych
'Jeżeli addNew = Prawdziwy Wtedy
'Wywoławczy InsertRecord (Formularzowy, "Transakcja")
'Wywoławczy InsertRecord (Formularzowy, "Perspektywa")
'Inny
'Wywoławczy UpdateRecord (Formularzowy, "Transakcja")
'Wywoławczy UpdateRecord (Formularzowy, "Perspektywa")
'Kończyć Jeżeli
Kończyć Okręt podwodny
Intymny Okręt podwodny cmdSiteWork_Click ()
DoCmd.OpenForm "frmSiteWork", acNormal
Końcówka Okręt podwodny
Intymny Okręt podwodny Form_Current ()
Ciemnawy rs Jako Recordset
Ciemnawy rs2 Jako Recordset
'przynosić w śmiertelnie serwer użytkownik - id
Ustawiać rs = CurrentDb () .OpenRecordset ("WYBRANY 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, dbo_Prospects.SalesPerson OD dbo_Prospects WEWNĘTRZNY ŁĄCZYĆ dbo_SalesPerson NA dbo_Prospects.SalesPerson = dbo_SalesPerson.SalesPerson DOKĄD (((dbo_SalesPerson.Username) = '" & [Forma]! [Switchboard]! [txtUserID] & "'))", dbOpenDynaset, dbSeeChanges)
'set kontrola śmiertelnie serwer id
Me.txt Salesperson.Value = Forma! Switchboard! txtSalesPersonID.Value
Me.txt Salesperson.Locked = Prawdziwy
Me.txt LotNo.Value = Forma! Switchboard! txtLotNo.Value
Me.txt LotNo.Locked = Prawdziwy
'set przywilej dla Super Użytkownik--przystępować wszystkie udział i wszystkie sprzedawca
Jeżeli rs ("Kierownik") = "Sup" Wtedy
Me.cboSalesperson.Enabled = Prawdziwy
Me.cboLotNo.Enabled = Prawdziwy
Me.optLot.Enabled = Prawdziwy
Me.optSalesperson.Enabled = Prawdziwy
Kończyć Jeżeli
"set przywilej dla Kierownik Użytkownik--przystępować wszystkie sprzedawca dane na udział kierownik udział
Jeżeli rs ("Kierownik") = "Tak" Wtedy
Me.cboSalesperson.Enabled = Prawdziwy
Me.cboLotNo.Enabled = Fałszywy
Me.optLot.Enabled = Fałszywy
Me.optSalesperson.Enabled = Prawdziwy
Kończyć Jeżeli
'set priveldges dla Sprzedawca Użytkownik--przystępować swój sprzedaż dane tylko
Jeżeli rs ("Kierownik") = "Nie" Wtedy
Me.cboSalesperson.Enabled = Fałszywy
Me.cboLotNo.Enabled = Fałszywy
Me.optLot.Enabled = Fałszywy
Me.optSalesperson.Enabled = Fałszywy
Kończyć Jeżeli
"Set rs2 = CurrentDb () .OpenRecordset ("Wybrany 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 od dbo_Prospects DOKĄD Sprzedawca =" "& Me.cboSalesperson &" "I Udział ="" & Me.cboLotNo & "'" Rozkaz Dbo_Prospects.LN1, dbOpenDynaset, dbSeeChanges)
Set rs2 = CurrentDb () .OpenRecordset ("Wybrany 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 od dbo_Prospects DOKĄD Sprzedawca = "" & Me.txt Sprzedawca & "" I Udział = ' "& Me.txt LotNo &" 'Rozkaz Dbo_Prospects.LN1 ", dbOpenDynaset, dbSeeChanges)
lstProspects.RowSource = ""
Robić Podczas Gdy Nie rs2.EOF
lstProspects.AddItem rs2 ("ProspectID") &"; "& rs2 ("LN1") &"; "& rs2 ("FN1") &"; "& rs2 ("MN1") &"; "& rs2 ("CCity") &"; "& rs2 ("CState") &"; "& rs2 ("CZip") &"; "& rs2 ("Domowy") &"; "& rs2 ("Komórka") &"; "& rs2 ("Sprzedawca")
rs2.MoveNext
Pętla
'zamknięty datasets
rs. Zakończenie
rs2.Close
Końcówka Okręt podwodny
Intymny Okręt podwodny Form_Load ()
Me.cboSalesperson.Value = Forma! Switchboard! txtSalesPersonID.Value
Me.cboLotNo.Value = Forma! Switchboard! txtLotNo.Value
'Jeżeli addNew = Fałszywy Wtedy
'Ciemnawy rs Jako Recordset
'Ciemnawy rs2 Jako Recordset
'Ciemnawy rs3 Jako Recordset
'Ciemnawy rs4 jako Recordset
'Ciemnawy rs5 Jako Recordset
'Set rs = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_Prospects")
'Set rs2 = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_Deals")
'Set rs3 = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_DPFinance")
'Set rs4 = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_DPInventory")
'Set rs5 = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_DPInsurance")
'Set rs6 = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_SalesPerson")
"rs. Otwarty "wybiórka * od dbo_Prospects dokąd ProspectID =" "& Forma! frmDealPkgMain! txtProspectID &" '", oconn, adLockOptimistic
"rs2.Open "wybiórka * od dbo_Deals dokąd OrderNo="" & Forma! frmDealPkgMain! txtOrderID & "'", occon, adLockOptimistic
"rs3.Open "wybiórka * od dbo_DPFinance dokąd OrderNo="" & Forma! frmDealPkgMain! txtOrderID & "'", occon, adLockOptimistic
"rs4.Open "wybiórka * od dbo_DPInventory dokąd OrderNo="" & Forma! frmDealPkgMain! txtOrderID & "'", occon, adLockOptimistic
"rs5.Open "wybiórka * od dbo_DPInsurance dokąd OrderNo="" & Forma! frmDealPkgMain! txtOrderID & "'", occon, adLockOptimistic
'zaludniać pole
'Jeśli nie rs.EOF Wtedy
'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 ("Domowy")
'Me.txtCell = rs ("Komórka")
'Me.txtOffice = rs ("Biuro")
'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 ("Zajęcie")
'Me.txtMaritalStatus = rs ("Małżeński")
'Me.txtHomeUse = rs ("HomeUse")
'Me.chkSpecialOrder = rs2 ("Dodatek specjalny")
'Me.cboStk = rs ("STK1")
'Me.txtHomeInfoNo = rs ("RS")
'Me.txtHomeInfoSerialNo = rs2 ("SerialNo")
'Me.txtNUR = rs2 ("NUR")
'Me.txtSDT = rs2 ("SDT")
'Me.txtHomeInfoManufacturer = rs2 ("MfgName")
'Me.txtHomeInfoModel = rs2 ("Model")
'Me.txtCarpet = rs2 ("Dywan")
'Me.txtSiding = rs2 ("Winyl")
'Me.txtYear = rs2 ("Rok")
'Me.txtBR = rs2 ("BRNo")
'Me.txtBA = rs2 ("BANo")
'Me.txtFloorW = rs2 ("FW")
'Me.txtFloorL = rs2 ("FL")
'Me.txtHitchW = rs2 ("HW")
'Me.txtHitchL = rs2 ("HL")
'Me.txt2ASiteWorkTotal = rs2 ("SiteSTotal")
'Me.txt2BOptEquipTotal = rs2 ("OptEQTotal")
'Me.cboTaxableDeal = rs2 ("Rs2")
'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 ("Rs2")
'Me.txt8CNontaxImprove = rs2 ("RENonTax")
'Me.txt8DFinanceFees = rs2 ("FinFee")
'Me.txtBasePrice = rs ("Price1")
'Me.txtSalesTaxHomeInfo = rs2 ("SalesTax")
'Me.txtRealEstateHomeInfo = rs2 ("Rs2")
'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 ("Poddział")
'Me.cboLender = rs3 ("Pożyczkodawca")
'Me.txtRateFinancing = rs3 ("Tempo")
'Me.txtLotNoFinancing = rs3 ("LotNo")
'Me.txtTermsFinancing = rs3 ("NumTerms")
'Me.cboTermsFinancing = rs3 ("Termin")
'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 ("Terytorium")
'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 ("Rs5")
'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 ("Sprzedawca")
'Kończyć Jeżeli
'Kończyć Jeżeli
Kończyć Okręt podwodny
Intymny Okręt podwodny optLot_Click ()
'Ciemnawy rs Jako Recordset
'Jeżeli Me.optLot = Prawdziwy Wtedy
'Me.optSalesperson = Fałszywy
"Set rs = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_SalesPerson DOKĄD LotNo ="" & Me.cboLotNo & "'", dbOpenDynaset, dbSeeChanges)
'Me.cboSalesperson.RowSource = ""
'Robić Podczas Gdy Nie rs.EOF
'cboSalesperson.AddItem rs ("Sprzedawca")
'rs.MoveNext
'Pętla
'Kończyć Jeżeli
'rs. Zakończenie
Końcówka Okręt podwodny
Intymny Okręt podwodny optSalesperson_Click ()
'Ciemnawy rs Jako Recordset
'Jeżeli Me.optSalesperson = Prawdziwy Wtedy
'Me.optLot = Fałszywy
"Set rs = CurrentDb () .OpenRecordset ("Wybiórka * od dbo_SalesPerson DOKĄD Sprzedawca ="" & Me.cboSalesperson & "'", dbOpenDynaset, dbSeeChanges)
'Me.cboLotNo.RowSource = ""
'Robić Podczas Gdy Nie rs.EOF
'cboLotNo.Value = rs ("LotNo")
'Me.cboLotNo.Requery
'Pętla
'Kończyć Jeżeli
'rs. Zakończenie
Końcówka Okręt podwodny
Intymny Okręt podwodny txtTotalPurchaseHomeInfo_AfterUpdate ()
'Me.txtTotalPurchaseFinancing.Value = Me.txt TotalPurchaseHomeInfo.Value
Końcówka Okręt podwodny
Intymny Okręt podwodny txtTotalPurchaseHomeInfo_Enter ()
'Me.txtTotalPurchaseFinancing.Value = Me.txt TotalPurchaseHomeInfo.Value
Końcówka Okręt podwodny
|
