Search results

Doesn't the CLng function change the value to an integer? I don't believe this will work because the number be arbitrary. If the field on the Access form (bound to a number) displays text; and the user enters text, isn't there a way to capture/copy data, from another form, into the form?

I have a table that has a field [UnitID], which is a number field, that is relatedto a table [UnitID], that lists various unit information (UnitName, UnitPOC, UnitPhone, etc.). On my form the unit field is bound by UnitID but displays the name of the unit. Periodically I import an Excel...

I have one user when using a form will knock him out of the database. I have no problems with other users. I've looked at all the event processes of the form and fields (nothing unusual). I've recreated the form. The form closes with a click (outside of a field). Again, no problems with...

Thank you very much that fixed it!!

That was helpful. Tools/Options/General/BreakonAllErrors This is the line I'm getting the error. I checked the query name (ok). I checked the email field (ok). What could cause the Type Mismatch Error? Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryCritiques1")

I'm sorry. I used the variable. I pasted the wrong test. Here's the whole code. Not sure what line is causing the problem. Private Sub Command594_Click() On Error GoTo Error_Handler Dim rs As Recordset Dim vRecipientList As String Dim vMsg As String Dim vSubject As String...

I keep getting a "type mismatch" error. I initially thought it was because of a bad email address but after deleting all the records but two (good email addresses), I still get the error. What could be causing this? Dim rs As Recordset Dim vRecipientList As String Set rs =...

I have a tabbed form. I have an AfterUpdate command to check to see if SubjectEmail is blank on the first tab (Individual). I can move to the tab but I cannot move to the SubjectEmail field. I get an error, that the field doesn't exist in the record. I'm apparently referring to the field...

Found the problem. Designer placed a null statement where it didn't belong.

I have a form with an option group (different queries of the form). Everything works fine. I have a TechID (combo box). The number field is linked to another table (linked to col 1 (number); but shows col 2 (text)). Column count: 2; Column width: 0"; 1" Again, no problem. The problem...

I'm trying to send an Outlook Calendar Invite. I cannot identify the email of the recipient in the "To" field. Despite referring to the field I want, the request always populates my e-mail address (the sender). How do I fix? I've looked and looked without success. Dim OutApp As...

I spoke to soon. I want to send the Calendar Invite to an e-mail address in a field [SubjectEmail] o the form. If I manually type in an e-mail address, then the code works but if I refer to the field, then my e-mail address appears as the invitee. Not sure what's going on here. On Error...

Found problem ... use .RequiredAttendees = "afb@us.af.mil"

I'm trying to send an Outlook Calendar Invite. The following VBA works but I cannot specify the recipient of the e-mail. I tried .to = "ABC" without success. Any ideas? On Error GoTo StartError Dim objOutlook As Outlook.Application Dim objItem As Object Set objOutlook =...

I have a simple one form in db1. The form size is 5x5 inches. Form is fine. PopUp: No Modal: No Border: Thin Center: No Fit to Screen: Yes When application is open it's perfect. One form by itself. However, when I open another db, the screen size of the recently opened database (db2) is...

Error 3021. Any help is appreciated. On Error GoTo Error_Handler Dim db As DAO.Database Set db = CurrentDb() Dim rs As Object Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryLessThan60DaysUNITPOCs") Dim iCount As Integer Dim rsEmail As DAO.Recordset Dim vRecipientList As String Dim...

Yes ... so it's locked in

I don't understand. Do I place these in my declarative statements, like ... Dim db As DAO.Database Dim rs As Object Dim iCount As Integer Dim rsEmail As DAO.Recordset Dim vRecipientList As String Dim vRecipientList2 As String vRecipientList = vRecipientList & (rs!SubjectEMail + ";")...

This too doesn't work unless the fields have data. If rs.RecordCount > 0 Then rs.MoveFirst Do If Not IsNull(rs!CCF_EMail) Then vRecipientList = vRecipientList & rs!CCF_EMail & ";"...

I'm trying to build a list of e-mail addresses; however some of the fields are blank. If all the fields are filled in, no problem; however, if one of the fields is blank the process stops. I'm using the following code to cycle thru the records without success. If rs.RecordCount >...