Search results

An update the only way i could get it to work is to use the DoCmd.Openform twice Private Sub cmdSearch_Click() If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!" Me![txtSearch].SetFocus Exit...

Seq_Number is a text field. Records are all stored already......For some reason when I click the search button on frmSearch form its just opening a blank record of ActionPlan form. Now if I Click the Search button again on the frmSearch form then ActionPlan form that is already opened get...

pbaldy This what I have Private Sub cmdSearch_Click() If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!" Me![txtSearch].SetFocus Exit Sub End If DoCmd.OpenForm "ActionPlan", , ...

I will give it a try and see what I get..thanks

I have the below vba that I use on my form event "On Click". The form is called "ActionPlan" and it works perfectly Private Sub cmdSearch_Click() On Error GoTo Err_cmdSearch_Click ' Define Dim strNumRef As String Dim strSearch As String ' Check if the field "txtSearch" on...

OK.....I need some recommendation on how to tackle this. On the same form I want to keep a history of justification of extending the response date. This what I have and tried but not working like I want so any ideas will be greatly appreciated On the form (frmActionPlan) the field is called...

Thank you for the info, i will give it a try

Do you have a sample of your database that you can share

Thank you for the response. I am aware that its better to use queries for calculated fields. But this is the situation I am in and I am open for suggestions if my approach is not efficient. In the form as I mentioned I have 3 pages as tabs. First page I have a field called...

Hi to all, I been struggling with this for few hours and cant figure out what am I doing wrong. I have a Main form which in the detail section I have 3 pages. My question On the 1st page I have a date field that i need to link to the date field in the 3rd page but at the same time I need...

OOPs yep it worked...Thanks

I tried that in one of the reports fields and I get #Error..... In this case I leave the Record Source BLANK for the REPORT. What I did I have for fields on the report so I put in the Control source of each field in the report the below =DCount("Ref No","qry1") =DCount("Ref No","qry2")...

Hi, It seem straight forward but I am not sure if this is doable or if I am missing something. I have 4 queries that pull information from the same table but each query have unique criteria. I am trying to create one query that will count how many records each of the 4 queries has so that...

attached is the db that i am trying to use to 1. Rename db's by adding date. 2. Compact Newdb 3. Move to Newdb to Backupfolder

Try adding the below to your code and see if it works. I cant get it to work Dim RS As Recordset, DB As Database Dim DBName As String Set DB = CurrentDb() Set RS = DB.OpenRecordset("DBNames") DBName = RS("DBFolder") & "\" & RS("DBName") x = Left(DBName, Len(DBName) - 4) x = NewDBName...

How did you get it to work, did you modify the code. I added "DoEvents" between the compact and the move as you suggested. The database was compacted and renamed but did not move. I dont see the complication its straight forward atleast seems to me. 1. Rename database to be compacted 2. Compact...

I tried that approach and nothing moved....that is very Weird. I just cant find why I cant move the database when I use a variable name

I will try it again at night and see why i cant get it to work while it worked with you....... I want not only to save it into the backup folder i also want to add the date to the database too. So far i can get either or not both

Yes I have to compact, I was testing another approach, but the prior compact is commented... So the fso worked with you, it saved it in the Backup folder and named it by adding the date to it. what did you change if i may ask

Below what i have right now Option Compare Database Private Sub Form_Timer() '================================================================== 'The Timer event runs this code every minute. It compares your 'system time with the StartTime variable. When they match, it...