Recent content by MysticElaine

Thanks! That did it.

Isn't that what I have already...with the cancel=true? The form still closes. I have now tried this: Private Sub SaveAndClose_Click() On Error GoTo SaveErr DoCmd.Save DoCmd.Close acForm, "Case", acSaveNo Select Case Outcome Case "Interpretation" If IsNull([Date Provided]) Or...

I have a form that has some fields with validation rules, which are Not Is Null. I have a private function to validate records (here is a snipet) Private Function ValidateRecord() As Boolean ValidateRecord = False Select Case Outcome Case "Interpretation" If IsNull(Me.[Date...

Thanks for the reply. I tried it and it didn't work :( The msgbox still pops up after having the combo filled. Edit: It seems like my project is borked as I deleted the entire code for the combo and the project still acted as if the code was there and kept giving the msgbox message. Anyways, I...

Hello, I have this code If IsNull(Me.Providers) Then Cancel = True MsgBox "Enter a Provider!" End If in the beforeupdate event. I don't think it is working properly because it is a combo box, as I have the exact same code for a textbox that works fine. Even if I choose a name from...

I figured it out. I was looking at the macro for my button and came across the SetProperty... So in a round about way, Burrina, you helped me out, so thanks!

I do have a button, but it is a Macro. So I should convert it to vb and then do a lot of If...Then? That seems like a lot. To get an idea of my form, the top half has around 9 controls whose fields are set to required in the table. These fields are like an intake, they have the client's...

Hello, I have a form that has some controls whose properties are already listed as required in the table. However, it also has a combo box labeled "Outcome" that changes what textboxes are enabled depending on what is chosen in that combobox. What I would like to do, is make sure that whatever...

Ahh, okay. I normally do indent everything, but I was just trying the inserted recordset code this morning and so didn't want to indent everything if I was just going to have to pull the code out. I have been having so many issues with getting this button to do what I want. You should be glad I...

Thanks for your response! I thought tab-key did indent...what do you mean please?

I wanted it to find the record in which the First Name, Last Name, and DOB fields in the table are identical to what the user typed in the First Name, Last Name and DOB textboxs on the form. Is that not possible? Sorry, this is my first time trying to do a recordset.

I am trying to add a recordset to my button to see if a client exists. A client exists in the table Clients if all three fields (First Name, Last Name and DOB) are identical to what the user is typing into the text boxes (named the same) to add a client. My recordset comes up with the error...

So I now have this code Private Sub AddNewClient_Click() On Error GoTo AddNewErr If Me.First_Name <> "" And Me.Last_Name <> "" And Me.DOB <> "" Then Dim ClName As Variant Dim ClientID As Integer ClientID = Me.Client_ID.Value ClName = Me.Client_Name.Value DoCmd.Close acForm, "Client", acSaveYes...

Hello, I have a few questions that tie in together. I have a Main form, that when I click a button, a new Client form opens. On the Client form, I have 3 text boxes that users use to create a new client, first name, last name, and date of birth. I also have 2 invisible text boxes named Client...

Ok, so after much research on the Chr(34), I got the WHERE code to work, I believe ClientSearchQry = ClientSearchQry & " WHERE (Clients.[First Name] Like '" & Me.[First Name] & "*' AND Clients.[Last Name] Like " & Chr(34) & Me.[Last Name] & "*" & Chr(34) & ")" with the immediate window for ...