Search results

After copying the controls and code the controls worked as expected, on loading my and the popup zoom form, I get the following error Private Sub Form_Load() ReSizeForm Me 'minimize nav pane MinimizeNavigationPane (Sub or Function not defined)

Thank you I will copy my DB and try to see if I can make this work in the copied version. I will be in touch no doubt. Thank you for your help and patience with this

I I did import one of your forms but could not make it work in my application

Thank you I have read this in detail but for someone new to VBA I find this very complex

Hello Using a cmdButton On Click I have increased the font size of some List Boxes and memo fields in my database. I am wondering is it possible to have a form so that if our visual impaired user enters it, they can click a cmdButton that would allow all the field labels and field font...

Thank you I see this now

I am entered the Parameter but on entering the date into the parameter box StartDate it returns that it is (not valid for this field) is this because I enter a short date of the Year only eg: 2012. I tried removing Time but it still did not work Between [StartDate] And [EndDate]

Hi I have never declared a parameter in a query before any help welcomed I have a crosstab query based on another query called qryCountAgency2 in this query one of the columns is ReportYear which has the criteria set to Between [StartDate] And [EndDate]. When I run my crosstab qry I get a...

Thank you arnelgp yes that worked. For my learning does this indicate it is a text string as opposed to a number '" & Me.ReportID & "'" Thanks Ron

I have set RecNum default value in the table tblRecommendations to Null. I then typed the code into the frmRecommendations BeforeInsert event Private Sub Form_BeforeInsert(Cancel As Integer) Me.RecNum = Nz(DMax("RecNum", "tblRecommendations", "ReportID = " & Me.ReportID), 0) + 1 End Sub When...

still not working

I have tried that sorry I ,missed what you said Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(Me.RecNum) Then RecNum = Nz(DMax("RecNum", "tblRecommendations", "ReportID = " & Me.ReportID), 0) + 1 End If End Sub

it is in the Private Sub RecNum_BeforeUpdate(Cancel As Integer)

Hi, while responding to another issue one of the forums members suggested for good practice I also limit user impute into the RecNum field by inserting the following code into RecNum field so it self populates with the next number Private Sub RecNum_BeforeUpdate(Cancel As Integer) If...

I have enter the code but the RecNum is set as a number field and has a zero when a new record is created is this preventing the code from working Private Sub RecNum_BeforeUpdate(Cancel As Integer) If IsNull(Me.RecNum) Then RecNum = Nz(DMax("RecNum", "tblRecommendation", "ReportID = " &...

Thanks for this I am starting from new as I see my attention to detail needs to improve

Thanks, yes I have created new tables including a junction table and it appears to be working. Although I have spent some time with the old DB, I am going to start from new using the new structure.

Thank you for the comprehensive response. I will take the time and address the points 1-4 and fix up all of the naming conventions and add the code. I will restructure my tables as per 5 and see if that helps me understand it more. I will get back to you once I have completed the above. Again...

I posted this in Forms but think I need a code solution- I have 3 tables all linked by a Report_ID. I would like to populate a field from the other form frmRecommendations if a value is entered into a field Agencies_ID that matches a recommendation number in frmRecommendations . I have...

Thanks for your help. I think I need to restructure the tables or look for a VB solution as the linkage does not help