Search results

Looks like the BE is MySQL.

Yay, go Access! 😖

Trim(), LTrim(), RTrim()

My guess is that you do not have Option Explicit declared at the top of every code module, and you have somewhere declared another variable named recordset (lowercase)

Perhaps safer to: ' ... GenreList = Split(!DelimitedEmployees, ",") ' Split on the comma only For x = LBound(GenreList) To UBound(GenreList) rs_out.AddNew rs_out!EmpConvertDelimited = Trim(GenreList(x)) ' Trim any preceding/trailing...

Put something like this in your form's Current event: Private Sub Form_Current() With Me If .Recordset.BOF Or .Recordset.EOF Then ' Set focus to another control to avoid error disabling a control that has focus .txtXofY.SetFocus End If .cmdPrev.Enabled = Not...

Why are you looping at all? First, you need a module level variable to store the count. Then, your AfterUpdate event increments it Your reset button click event will set it to 0 again Option Explicit Option Compare Database Private m_iCount As Integer ' Defaults to 0 Private Sub Private...

Yet another construct: Dim PkgID as String ... PkgID = Left(Me.PackageID, 1) Select Case PkgID Case "S", "M", "G" 'do nothing Case Else Me.PackageID = Null Cancel = TRUE MsgBox "Entered data is not valid for this field." End Select ...

First, which form's code module are you running the code from? Second, beware that you must refer to the subform control which, depending on how you added the subform, may be named differently (eg: 'Child0') from the form it uses as its SourceObject. To find the name of the subform control...

OK (y)

Going solely on the SQL and not considering whether what you are attempting is a valid operation, try: Private Sub btnUpdate_Click() Dim DetailsID As Integer, strSQL As String DetailsID = Me.ID_ArticleDetails strSQL = "UPDATE MainOrdersEntries SET ID_Article = " & Me.ID_Article & "...

The problem still exists with your solution - Me.Well_ID is not valid when the DLookup() is used in a fom control's ControlSource expression. You just need to use [Well_ID] on its own. Of course, when you use the DLookup() in VBA then Me is valid within the context of the form's Class module.

Try it like this: Private Sub Form_Current() Dim blVisible As Boolean With Me blVisible = .OpenCSOrdersFromMenuRegistration.Form.RecordCount = 0 AND IsNull(.Registration) .OpenCSOrdersFromMenuRegistration.Visible = blVisible .StatusBtn.Visible = blVisible End With End Sub

What is OpenCSOrdersFromMenuRegistration ? A subform of StatusRegFilter subform ?

It looks like Me.StatusBtn is on the subform. Which form are you running this code from? The main form's Current event? The subform's Current event? Describe your forms/subforms. Is [StatusRegFilter] also a subform?

I always thought that form control expressions had no concept of Me. Happy to be wrong about that though.

You haven't put the quotes round the field name and table name. =DLookUp("APN","Access_Agreement","Well_ID = '" & [Well_ID] & "'")

:coffee:

=DLookUp("APN","Access_Agreement","Well_ID = '" & [Well_ID] & "'")

Probably cos you made a typo! :ROFLMAO: I think you meant '... can't use ...'