Search results

Well the snippet I posted basically is some sort of GoToRecord thing.. I think I know what's up, the RS is set to a Recordsetclone _before_ you set the new Recordsource so it has already changed when you do the FindFirst on it. Try this: Set RS = Me.RecordsetClone RS.FindFirst "[Last...

You didn't name the module "MailFindAndSend" right?

Weird. Maybe try using RS.FindFirst "[Last Name] LIKE '" & Me.txtSearchLast.value & "'" since thats what you do in your recordsource..

Change strCriteria = "[MonthAvailable]=" & Forms!filter("txtMonth" & intMonth) & _ " AND [ResourceID]" = Forms!filter("txtResourceID" & intRow) to strCriteria = "[MonthAvailable]=" & Forms!filter("txtMonth" & intMonth) & _ " AND [ResourceID]=" &...

Did you place that line in some test sub? Like: Public Sub test() Call MailFindAndSend("The subject") End Sub orr..... are you trying to launch the sub from some other module? Or a form? In that case you have to add "Public" before "Sub", I forgot to do that ;)

Check my post, I edited it :)

Looks fine at a first glance. May I ask where you placed this code? edit: Ah! How could I miss this. strCriteria = "[MonthAvailable]=" & Forms!filter("txtMonth" & intMonth) & _ " AND [ResourceID]" = Forms!filter("txtResourceID" & intRow)

You have to add a reference to "Microsoft Outlook 11.0 Object Library" (Extra->References)

Change DoCmd.GoToRecord , , "[Last Name] = '" & Me.txtSearchLast.Value & "'" To RS.FindFirst "[Last Name] = '" & Me.txtSearchLast.value & "'" If Not RS.NoMatch Then Me.Bookmark = RS.Bookmark End If

MySQL has a tool called "MySQL Migration Toolkit", it does all the work for you (creates the tables in MySQL, transfers data from MS Access to MySQL etc.) :D

All the buttons in your optiongroup have a value (you can change the values in the properties of the buttons), usually 1, 2, 3 etc. In the After Update event of your optiongroup you can have a code like this: Private Sub Your_Option_Group_AfterUpdate() Select Case Your_Option_Group.Value...

First thing I noticed is you have If vbYes Then which should be If iAnswer = vbYes Then

Since you didn't specify any outlook folders in which to search in, the following code searches through all folders and mailboxes you have in your outlook :). Usage: Call MailFindAndSend("The subject") Sub MailFindAndSend(strSubject As String) Dim olApp As Outlook.Application Dim...

If MsgBox("Yes or no?", vbYesNo, "Some title") = vbYes Then MsgBox "Clicked yes!" Else MsgBox "Clicked no!" End If or just If MsgBox("Yes or no?", vbYesNo, "Some title") = vbYes Then MsgBox "Clicked yes!" End If since you don't really have to handle the no...

try: Private Sub Form_Resize() box.Left = 0 ' box.Top = 0 'just to make sure box.Width = Me.InsideWidth box.Height = Me.InsideHeight End Sub

In that case you're gonna have to save the value in a table. Create a table with the field, link the table to the form and use the field in the table as Control Source for your textbox. The default value can be set in the properties of the field in the table. Hope you understood what I just...

Oh after reading your post again I realised the only difference is the one time your form is on Data Entry mode and the other time it isn't. So the following should suffice: If Me.DataEntry = True Then '(or False) SomeTextbox.Visible = False End If

Sure. Just add the Your_Control_Name.Visible = False (or True) code in the "On Open" or "On Load" event of the form and use the OpenArgs to specify what controls should be visible. For example.. One button has this code to open the form: DoCmd.OpenForm "your form name", , , , , , "a" and the...

Aha! That is indeed the problem. Control Source should not be used this way, try setting the "Default Value" property :)

Could you show me the code behind your button? I created your exact situation (I think) and it works for me. As a test I used: If Me.text33 = "1st" Then Me.text33 = "2nd" End If like you said in your post.. works for me.