Search results

Hello Access-Programmers, I am using the Access 2010 Web Browser Control in an attempt to display driving directions. I am working with both Bing and Google maps to see which works best. Also, the licensing terms are very different, if I understand the terms correctly, Bing appears more open...

Thank you JHB. That was in fact the issue, the contact records can be manipulated by the parent/child fields or the sql statement in the RecordSource property, not both as I had it. I set the subform parent/child properties to nothing and allowed the sql statement to do its thing. What I am...

Hello Access-Programmers, SQL statements were created using the built in Access SQL builder. In the attached database I created a split form named frmContact that uses the first sql statement below, in its RecordSource property. This causes the subform frmContacts_subform, imbedded in the...

The quotes "2" indicate that the field or combo box column is a string value. I tried converting the strings to a value making sure that both the record and the combo box column were the same. I also tried to convert them both to a String. Both string and value strategies result in the same issue.

This works for me in Access 2010 on a Windows 7 PC. Four Steps. First Step: In database's visual basic window, from the menu at the top, choose Insert > Module. Copy and paste the code below into the empty module, below the Option Compare Database and Option Explicit ststements. Save the...

I found this thread that may answer your question.

redalert, that is some sharp thinking!

Hello Access-Programmers, I would like to read the full name and various address fields from Outlook's contacts. I modified The code below from that found at http://www.vbaexpress.com/forum/showthread.php?27628-accessing-outlook-global-address-book. This accesses Outlooks address book, but it...

Thank you TJPoorman. This works flawlessly passing variables from the modal form to the main form. Main Form: Public Sub SetCombos(varEID As Variant, varCID As Variant) Debug.Print "varEID: " & varEID Debug.Print "varCID: " & varCID End Sub Modal Form: Private Sub...

Try something like this; expanding on missinglinq's post. This blocks users from accessing the table Private Sub Form_Load() Me.RecordSource = "" End Sub After the user enters a date in an unbound text box, named txtDate, formatted as date, this code will allow the form to connect to...

Hello Access Programmers, I have a form that has a button that opens a modal form on top allowing the user to perform a task, when done the modal form closes, returning the user to the underlying form to continue their work. That modal form creates some information that I would like to...

Thanks for looking at this. I tried leaving acFirst out of the line and still get the record with ContactID #1, and yes it is the first record in the recordset. I also found this: http://msdn.microsoft.com/en-us/library/office/ff836254.aspx in my search for a solution which seems to indicate...

Hello Access-Programmers, I am passing the variables varEmployerID and varContactID into a form. The variables are coming into the form fine. The If/Then catches them perfectly. The combo boxes fill flawlessly. As I step through the statement below all seems OK. varComboContact passes to...

pbaldy, you are the man! Problem solved with about 1/10th the code my solution took. Thank you! Set rstContact = db.OpenRecordset("SELECT * FROM tblContact WHERE [CEmployerID] = " & Me.cboFindEmployer.Column(0)) Me.cboContact = rstContact.Fields("ContactID") rstContact.Close Set...

CJ London, Is this what you had in mind? Set rstContact = db.OpenRecordset("SELECT * FROM 'tblContact' ORDER BY ContactID") rstContact.FindFirst "[CEmployerID] = " & Str(cboFindEmployer.Column(0)) Me.cboContact = rstContact.Fields("ContactID") rstContact.Close Set rstContact =...

Here is the whole subroutine with the info I think all of you are looking for. It works in a long winded way. Public Sub FindUnkCon() On Error GoTo FindUnkCon_Err Dim rstContact As DAO.Recordset varConFlag = 0 Set db = CurrentDb Set rstContact = db.OpenRecordset("tblContact"...

Hello Access-Programmers, I have a table (tblContact) with an auto number key field that is numbered sequentially (1-8) there are no deletions, each new record is appended. I wrote a simple FindFirst line to locate a record that is the first record in the table. The FindFirst failed to find...

That is brilliant and does exactly what is supposed to do! It provides a level of control over Outlook I did not realize was possible. Without working too hard do you think there is a way to minimize and restore the main Outlook window and the email window with VBA. That should resolve any other...

Hello Access Programmers, This issue has come up here before, under slightly different circumstances, but I do not recall seeing it solved. http://www.access-programmers.co.uk/forums/showthread.php?t=159151 http://www.access-programmers.co.uk/forums/showthread.php?t=249217 I have an Access...

Private Sub btnTestCode_Click() On Error GoTo btnTestCode_Click_Err DoCmd.RunCommand acCmdVisualBasicEditor btnTestCode_Click_Exit: Exit Sub btnTestCode_Click_Err: MsgBox "Private Sub: btnTestCode_Click" & Chr$(13) & _ "Error number: " & Err.Number & Chr$(13) & _...