Recent content by darksniper

Hi, I am trying to figure out how to tell Macro tools builder to grab, the "RecordId" of the record that i clicked on, so that i can validate it, and then open form with that id in edit mode. Been googling that for past 3 hours and nothing.

Are there any updates. Just wonder if you were able to open the database. Thanks.

Hi, Here is simplified version of my database.

Private Sub Combo96_AfterUpdate() ' Find the record that matches the control. Dim rs As Object If Len(Combo96 & "") > 0 Then Set rs = Me.Recordset.Clone rs.FindFirst "[sdutentId] = " & Str(Nz(Me![Combo96], 0)) If rs.NoMatch Then MsgBox "No entry found" Else...

thank you. That code works for string searches. For numeric searches, for some reason if the number doesnt match it would go to the first record.

hi, I have the following code: Private Sub uiFindByIDComboBox_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[sdutentId] = " & Str(Nz(Me![uiFindByIDComboBox], 0)) If Not rs.EOF Then Me.Bookmark =...

Thank you for fast reply. I also found a solution to the other issue I had. Thank you again!

Hi, I have set break on all errors. Clicked Debug, compile. It doesn't show me anything wrong. Is there anything I can do to find the error in the code. Thanks.

Hi, I have added error handling code to my combo box. Private Sub searchName_AfterUpdate() ' Find the record that matches the control. Dim rs As Object On Error GoTo ERR_Handler Set rs = Me.Recordset.Clone rs.FindFirst "[sdutentId] = " & Str(Nz(Me![searchName], 0)) Exit Sub ERR_Handler...

I have been trying to found out why it isn't allowed to link .mdb file though odbc with another .mdb file. I tried Google an answer but could not find it.

I have just tryed that, I get an error, "unknown message receipients"

The onClick event work, to select items while clicking on them. To be precise I would like to merge the 2 scripts above. In other words, the "select all script" should return a "Me!txtSelected" with all of the items selected.

Hi, I have an on click event which adds selected items into a string Private Sub lstMailTo_Click() Dim varItem As Variant Dim strList As String With Me!lstMailTo If .MultiSelect = 0 Then Me!txtSelected = .Value Else For Each varItem In .ItemsSelected...

I get an error message cannot find macro "me" How do I fix that?

thanks, I will try it and let you know the outcome!!