Search results

When a value is entered in both Me.txtAddCateg and Me.txtAddTheme fields, those values are entered within the appropriate tables (from the Docmd.RunSQL statements)

Just any Typed text

Hello, Here is my code: Private Sub cmdAddNewField_Click() Dim strAddFolderNoPath As String Dim strAddFolderAndPath As String Dim strAddCateg As String Dim strAddTheme As String strAddFolderNoPath = "INSERT INTO TblPhotosFolders(FolderName)VALUES('" & Me.txtAddFolder.Value & "')"...

Yes that and Private Sub cmdSearchFolder_Click() DoCmd.OpenForm "FrmSearchByFolder", , , "FolderID=" & Me.cboFolders.Column(0) & "" End Sub That was pretty easy. Thanks for the help

Hello, Here is my code Private Sub cmdSearchFolder_Click() DoCmd.OpenForm "FrmSearchByFolder", , , "[FolderID]= & Me.cboFolders.column(0) & " End Sub but I get error 3075 Syntax error (missing operator) in query expression... FolderID is a number cbo and me.cboFolders' first column(0) is...

Hi theDBguy, Thank you, I changed that piece already but do you have any idea what is going with the previous question I've asked arnelgp. Why is it skipping the next line. I commented out "On Error Resume Next" and the code states that "DoCmd.SendObject" was cancelled so it skips the first...

Ok but why is it skipping the next line. I commented out "On Error Resume Next" and the code states that "DoCmd.SendObject" was cancelled so it skips the first line and then returns the 2nd, skips the 3rd, returns the 4th. Why is it doing that? Private Sub cmdEmail_Click() Dim db As DAO.Database...

Question arnelgp? Why did you use? Can you comment them out so I see what you did, please? If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Do Until rs.EOF If Trim(rs!Email.Value & "") <> "" Then rs.MoveNext And not if rs.RecordCount > 0 Then rs.MoveFirst Do...

Yes arnelgp, it's a text and I made the revision and now it opens properly BUT I now placed a Recordset in my code to get it to email each person from the query with their own personal report. However, when I run the program, it keeps opening a new outlook window with the 1st email, over and...

Thank you theDBguy . that worked without the previous error but it not opening the pdf with my condition. This piece DoCmd.OpenReport varObjName, acViewPreview, , "Employee = " & rs!Employee & "" Any idea why it would do this? Thanks again

Hello Guys, I am trying to send emails with the DoCmd.SendObject method. I understand the concept but would like to know how I can tweak it a little. Here is my code: Code: Private Sub cmdEmail_Click() Dim db As DAO.Database Dim rs As Recordset Dim varObjName As Variant Set db = CurrentDb Set...

Yes Sorry...It was meant as Thank you Guys!

Now it shows: UPDATE Tbl_CorporateLicDpt SET OnlineRenewal = True WHERE LicNum = '160003938' Meaning it is now reading everything propertly :D

Thank you Guy! It worked with concatenation and I had some type mismatched in there as well that I fixed. The final code is: Private Sub cmdUpdate_Click() Dim strUpdate As String Dim strTblName As String Dim strField1 As String strTblName = Me.txttblName.Value strField1 = Me.txtField1 strUpdate...

isladogs: From the debug line, it seems it is not reading the value entered. Now it is giving me error 3078 - The Microsoft Access database engine cannot find the input table or query strTblName…" - It is reading some of my values entered I changed the code a little: Private Sub...

Hi isladogs, I did and I am getting: UPDATE me.txttblName.value SET txtField1.value = 'True' WHERE txtConditionField = '160003938' Hi arnelgp, I wrapped my field earlier and was still getting the error message. I tried again am still getting the same

Hi Guys, I am trying to create a form with a button that will run a SQL query based on designated field, but I get error code Runtime Error 3024. When I went to check on it, it is telling me to add the dbSQLPassThrough option to the OpenRecordset method, but again I have no idea what that is...

Hello Guys I got it to work. I change my Recordset to: strSQL = "SELECT Cert FROM Tbl_EngineerLic WHERE LicNum = '" & Me.ListBoxStateLic.Column(1) & "' AND Cert IS NULL" So here is the full code. ' Add a new certificate filepath Private Sub cmdViewCert_Click() Dim objCert As Object Dim strSQL...

I have a form with a textbox where I can type the name of a person and it generates 4 fields (with one hidden) about that person stored in listbox1. When you select one row from listbox1 it generates a row in listbox2 which is associated with the [Cert] field. If that field is blank I would like...

It says "Object required"