ms-access

问题 I've tried odbc_prepare() + odbc_execute() to update a record in an Access file but I always get an SQL state 07001 error message about incorrect column count (actually, the message is in Spanglish and doesn't make much sense): <?php $items = array(); $items[100] = 'Foo'; $items[200] = 'Bar'; $sql = 'UPDATE street SET name=? WHERE street_id=?'; $stmt = odbc_prepare($conection, $sql); if( $stmt===FALSE ){ die(odbc_errormsg()); } foreach($items as $cod => $name){ if( !odbc_execute($stmt, array(

问题 I've tried odbc_prepare() + odbc_execute() to update a record in an Access file but I always get an SQL state 07001 error message about incorrect column count (actually, the message is in Spanglish and doesn't make much sense): <?php $items = array(); $items[100] = 'Foo'; $items[200] = 'Bar'; $sql = 'UPDATE street SET name=? WHERE street_id=?'; $stmt = odbc_prepare($conection, $sql); if( $stmt===FALSE ){ die(odbc_errormsg()); } foreach($items as $cod => $name){ if( !odbc_execute($stmt, array(

问题 I have loads of experience using VBA in Excel but very little experience using VBA in Access 2010. I'm trying to delete records from a recordset where one of the fields ends in "_X". When I use a wildcard the comparison fails. When I use a specific string, the comparison works as expected. Here is the Code that I am using. Dim db As Database: Set db = CurrentDb Dim tbl As Recordset: Set tbl = db.OpenRecordset("WRITEON") With tbl Do Until .EOF If ![ACOD] = "*_X" Then '"$ICP_X" works Debug

问题 In VBA, I am setting a field in a form equal to a string like so: tmpNum=1 me.field="DD" & Format(DATE, "mmddyy") & tmpNum For today I would want me.field to be DD0428151 but instead the whole Format(DATE, "mmddyy") statement seemingly does nothing and I get DD1 in the form. Does anyone understand why the date isn't appearing in my string and how to fix it? 回答1: Strange things like this can happen if you have a field named Date in your table and/or a control named Date on your form. They will

问题 I've got a little ACCESS tool where I want to read a linked table and update the local one. Import new entries works like a charm but when I try to update an existing one it always throws an exception (runtime error 3073). This is my code Sub UpdateBLPNR() With CurrentDb Set tdf = .CreateTableDef("ext_BEL_PLZ") tdf.Connect = "ODBC;DSN=EasyProd PPS;DataDirectory=PATH;SERVER=NotTheServer;Compression= ;DefaultType=FoxPro;Rows=False;Language=OEM;AdvantageLocking=ON;Locking=Record;MemoBlockSize=64

问题 I am trying to write a simple function to resize a text field in MS Access 64 bit version under Windows 7. It fails with the error 3420, object invalid or no longer set. Why is this? Can't you alter a table in code anymore under MS Access 64bit version? Here is the code: Private Function ResizeSingleTextField(sTableName As String, _ sFieldName As String, _ iLength As Integer) ResizeSingleTextField = False Dim sSQL As String sSQL = "ALTER TABLE " & sTableName & " " _ & "ALTER COLUMN " &

问题 What's the syntax in MS Access 2010 for limiting the results of a query to the first 1,000? I've tried this SELECT tblGL.[Cost Centre Code] FROM tblGL LIMIT 1000; but I get the error 'Syntax error in FROM clause'. I've also tried setting the Max Records property but it doesn't seem to do anything - I still get 7,000+ results regardless of what value I enter into the Max Records field. I also want to have a 2nd query which selects the next 25,000, starting from the 1,001st. Something like:

问题 I have three textboxes and I get their value like this: Dim X, Y, W As Double X = DLookup("Summ", "tblPlatej", "ID= " & Form_frmPlatej!ID) Y = DLookup("Deposit_before", "tblPlatej", "ID= " & Form_frmPlatej!ID) W = DLookup("Monthly_payment", "tblPlatej", "ID= " & Form_frmPlatej!ID) But when I change the value of textbox like this Form_frmPlatej.Deposit_before = X - W + Y I get a Type mismatch error. All textboxes are currency. How do I calculate new record and put that number in the "Deposit

问题 How do I remove the header on the last page of Access report? 回答1: Add a Group to your report, grouping on the expression =True . That will create a group that includes all records in the report. Give that group a Group Header, then move the column heading labels from the Page Header to the Group Header. In the Properties for the Group Header, set Repeat Section to Yes so the column headings appear on each page of the group. When the report prints the Report Footer (with the totals) it has

问题 In the follow post it shows how one can use VBA, create a instance of the CLR and thus call/use/consume .net COM objects without having to register such objects. Side-By-Side COM Interop with C# and VBA I looking to replace this code: Dim Host As mscoree.CorRuntimeHost Set Host = New CorRuntimeHost With Set Host = createObject("mscoree.CorRunTimeHost") I am unable to find the "class" name. In other words, I want to late bind the CLR. Does anyone know if it is possible to use VBA CreateObject(