ms-access-2010

In the following code, I would like to join ADODB record set 'rs3' to table 'tblValueChain10' and update 3 different columns based on the values extracted in the ADODB record set 'rs3'. Currently, the update query is not returning anything. Dim st_Sql3 As String Dim rs3 As ADODB.Recordset Set rs3 = New ADODB.Recordset Dim Max3 As Integer rs3.Open "SELECT tblRisk05Holding.IDMacroProcesso01, tblRisk05Holding.Level01Risk, Max(tblRisk05Holding.ManualityStatus) AS MaxDiManualityStatus, Max(tblRisk05Holding.RiskProbabilityStatus) AS MaxDiRiskProbabilityStatus, Max(tblRisk05Holding.RiskExposureStatus

I want to link the result of a query to a Textbox but I get this error: here is my code: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND Name='" & List2.Value & "')") Text10.Text = rst!XValue //error in this line It should be return c.a 20 record Why do I get this error and how can I solve it? One possible reason for the error is that Name is a reserved word in Access, so you should use ... & " AND [Name]='" & ... You could also test for rst.EOF before trying to use rst!XValue . That is, to

Embarrassingly simple question but I can't work it out or find the answer via google. Got something like this with two colums But when selected it only displays one column, making the information much harder to read/ understand. Tried changing properties in property sheet (such as column number) but to no apparent effect. It depends to a certain extent on what you are doing, often something like this suits: SELECT Id, Surname & ", " & Forename from Table In other words, the bound column is a unique ID and the selection column includes both the surname and forename in a single column. EDIT

Fairly simple question. I have a text field in a form that I would like the default value to be set to the result of a query. This particular query returns a default tax rate for a small invoicing system I am setting up in Access. The query (qrySettingsDefaultTaxRate) looks like this and returns one row with the decimal equivalent of the tax rate I would like to set as the default in this form: SELECT CDbl([value]) AS default_tax_rate FROM settings WHERE (((settings.key_name)="default_tax_rate")); I have tried setting the default value of my text field to: =[qrySettingsDefaultTaxRate]![default

I have a table RR_info which hold following fields RR_ID, HR_ID, No_of_Beds, Room_Category. Now i want that through VBA code with Form_load event I should populate textboxes for all these table fields. For this I wrote a query which get certain records according to hotel_id as a criteria but code is not working. Private Sub Form_Load() Dim SQL As String Dim db As Database Dim rs As DAO.Recordset SQL = "select * from RR_info where hr_id = " & Forms![hhrrr]![List38] & ";" Set db = CurrentDb Set rs = db.OpenRecordset(SQL) Me.RR_ID.Text = rs!RR_ID Me.HR_ID.Text = rs!HR_ID Me.Room_No.Text = rs!

I have a form to input records to a table. I would like it to open on an empty add (New) instead of displaying the first record of the table. To be used by a Navigation Form which opens the input form from a button. You can use acFormAdd (value = 0) as the optional DataMode argument to OpenForm . Access' help describes acFormAdd as "The user can add new records but can't edit existing records." And actually, not only does that prevent editing of existing records, they are not even displayed in the form with that option. DoCmd.OpenForm "frmaw_save",,,,acFormAdd If you want to always use the

I need to let users filter a continuous form using values the user enters into a textbox. And the continuous form is also nested within a couple levels of navigation subforms. This sounds easy enough, but all the examples I find on the web use macros instead of vba. I set up the structure and wrote an AfterUpdate procedure for a textbox txtFilter as follows: Private Sub txtFilter_AfterUpdate() Dim filterval As String filterval = txtFilter.Value With Forms!Main!NavigationSubform.Form!NavigationSubform.Form .Filter = "LastName Like " & filterval .FilterOn = True End With End Sub I have played

I'm creating a Microsoft Access 2010 database that will be part of a small web site for a client. I've debugged it with message boxes and I'm able to accept the data with the VBScript (client's choice as they are willing to update/maintain the web site contents), I'm able to call the sub that sends the data to the database, but I can't get past the connection to the database. Here's what I have: Sub InsertIntoDatabase(FullName) Dim strSQL, strConnect, strSQL2, i Dim conn Set conn = CreateObject("ADODB.Connection") strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\userID