Date Error with Windows 7
in [General]
|
Prev: Icons in tab pages
Next: Save Button
From: Douglas J. Steele on 6 May 2010 06:52 Unfortunately, it's not just a global change. You're going to have to change how you instantiate each recordset manually, using a technique such as I showed in the example I gave you. -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele (no e-mails, please!) "Bob Vance" <rjvance(a)ihug.co.nz> wrote in message news:uJYZ76N7KHA.2240(a)TK2MSFTNGP06.phx.gbl... > Thanks Dougles, but I just did a search on ADODB.Recordset in my db and > have 174 entries, how do I go about changing them all to DAO.Recordset? > Thanks for your help..........Bob
From: David W. Fenton on 6 May 2010 13:27 "Bob Vance" <rjvance(a)ihug.co.nz> wrote in news:uJYZ76N7KHA.2240(a)TK2MSFTNGP06.phx.gbl: > I just did a search on ADODB.Recordset in my db and have > 174 entries, how do I go about changing them all to DAO.Recordset? Perhaps it would make more sense to remove DAO? -- David W. Fenton http://www.dfenton.com/ usenet at dfenton dot com http://www.dfenton.com/DFA/
From: Bob Vance on 6 May 2010 14:18 Thanks Douglas, Where do I start reading up about changing to DAO? Seem to have trouble with "New Record" or New Regards Bob "Douglas J. Steele" <NOSPAM_djsteele(a)NOSPAM_gmail.com> wrote in message news:O0xGKpQ7KHA.5708(a)TK2MSFTNGP02.phx.gbl... > Unfortunately, it's not just a global change. You're going to have to > change how you instantiate each recordset manually, using a technique such > as I showed in the example I gave you. > > -- > Doug Steele, Microsoft Access MVP > http://www.AccessMVP.com/DJSteele > (no e-mails, please!) > > "Bob Vance" <rjvance(a)ihug.co.nz> wrote in message > news:uJYZ76N7KHA.2240(a)TK2MSFTNGP06.phx.gbl...
From: Bob Vance on 6 May 2010 14:28 Thanks David, But I do have a DAO Script in my db a Security feature from KeyedAccess How big a job would it be to change? Most of them are repeated codes? like this Regards Bob ----------------------- Dim recInvoiceItmdt As New ADODB.Recordset recInvoiceItmdt.Open "SELECT IntermediateID FROM tblInvoice_Itmdt WHERE dtDate BETWEEN #" _ & Format(Forms!frmModify!lstModify.Column(0), "mm/dd/yyyy") & "# AND #" _ & Format(Forms!frmModify!lstModify.Column(1), "mm/dd/yyyy") & "# AND HorseID=" _ & val(Forms!frmModify!lstModify.Column(2)) & " ORDER BY IntermediateID", CurrentProject.Connection, adOpenDynamic, adLockOptimistic Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim lngRecCount As Long Set dbs = CurrentDb() Set rst = dbs.OpenRecordset(pstrTableOrQueryName, dbOpenForwardOnly) lngRecCount = 0 Do While Not rst.EOF lngRecCount = lngRecCount + 1 If lngRecCount > lngRecCountToCheck Then intRtn = True Exit Do End If rst.MoveNext ------------------------------------------- Private Sub cbDailyCharge4_AfterUpdate() Dim recRate As New ADODB.Recordset Set recRate = CurrentProject.Connection.Execute("SELECT Rate FROM tblServiceInfo WHERE ServiceInfo LIKE '" & cbDailyCharge4.value & "'") tbDailyChargeRate4.value = recRate.Fields("Rate") tbDailyChargeRate4_AfterUpdate End Sub "David W. Fenton" <XXXusenet(a)dfenton.com.invalid> wrote in message news:Xns9D6FE5056EF5Ff99a49ed1d0c49c5bbb2(a)74.209.136.91... > "Bob Vance" <rjvance(a)ihug.co.nz> wrote in > news:OK4Oo6H7KHA.5848(a)TK2MSFTNGP06.phx.gbl: > >> So now I must re code my funGetHorse as its ADODB? > > There is nothing in either of those functions that depends on any > functionality of ADO that is unique to ADO. Why did you implement it > in ADO instead of just keeping with DAO? > > -- > David W. Fenton http://www.dfenton.com/ > usenet at dfenton dot com http://www.dfenton.com/DFA/
From: Douglas J. Steele on 6 May 2010 15:45
What's the code that's failing, and what's it supposed to do? -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele (no e-mails, please!) "Bob Vance" <rjvance(a)ihug.co.nz> wrote in message news:uXLVGiU7KHA.3964(a)TK2MSFTNGP05.phx.gbl... > Thanks Douglas, Where do I start reading up about changing to DAO? > Seem to have trouble with "New Record" or New > Regards Bob > > "Douglas J. Steele" <NOSPAM_djsteele(a)NOSPAM_gmail.com> wrote in message > news:O0xGKpQ7KHA.5708(a)TK2MSFTNGP02.phx.gbl... >> Unfortunately, it's not just a global change. You're going to have to >> change how you instantiate each recordset manually, using a technique >> such as I showed in the example I gave you. >> >> -- >> Doug Steele, Microsoft Access MVP >> http://www.AccessMVP.com/DJSteele >> (no e-mails, please!) >> >> "Bob Vance" <rjvance(a)ihug.co.nz> wrote in message >> news:uJYZ76N7KHA.2240(a)TK2MSFTNGP06.phx.gbl... > > |