Search results

I would suggest separating the Dialogue from the Data Form. Function ProducersDialoguePayments_Review() With CodeContextObject If Len(.[Method]) = 0 Then DoCmd.OpenForm "Producers Review Payments", acNormal, "", "", acFormEdit, acWindowNormal Else...

If you are clever regarding 5 you can use fuzzy logic. Test is field is populated and include in SearchCriteria else Ignore otherwise concatenate into the SearchCriteria: SearchCriteria = SearchCriteria " And ..... It is a bit messy to establish the first populated field and concatenate the...

I agree, the problem is searching an expression - also try an Index on the Date Simon

If you have SQL Server SSMS there is an import or export facility. Import Ace or Jet database and store as Sql Server Native vxx format. You will still need to create PK Primary Keys, Indexes and any FK Foreign Keys within SQL Server. Simon

To concatenate Format(DateValue,"mmyyyy") Format(DateValue,"yyyymm") Simon

I put these type of filtering before the form and filter the records once a choose has been made: Two combis Gender and Age Private Function SearchCriteria() As String With CodeContextObject If Not IsNull(.Gender) Then SearchCriteria = "[Gender] = '" & .Gender & "'"...

Try putting the Image into the Command Button. Simon

The preschool is only open on certain days and nothing to do with a child starts. I would have the calendar orientated to the days open and then count the days from when the child starts or days open in the month. Simon

With me it is always my VBA code!!! Simon

There are several methods. I understand that that a ODBC with a Passthru Query is the most efficient method to extract information from a SQL Server. It goes with saying all data should be filtered in large datasets. Simon

Perhaps and this is the long way around the problem is having a table with all the days that the preschool is open and by having a start and end date run through this table and count the days here is something similar. Periods.[Period Start Date] <=#" & SearchDate & "# AND Periods.[Period End...

You have modify your process so that the data is removed before the Append (danger of bloating) or testing within the Append Query to ignore records already in the destination table. Also use DISTINCTROW in the query to do just that. Simon

I realised that - but there must be an identifier otherwise you would know if there are duplicates. Simon

You have link into the the Table you are appending with a LEFT JOIN and use a a field like ID from the Appended table like ID = Null. In other words only Append if the record does not exist. There is a VBA method using recordset count and proceed with update it Recordcount = 0 or Recordcount =...

If you are using Error trapping in VBA try taking it out and let if fall over. Or monitor the VBA and see where it breaks. Simon

The advantage of filtering is that if the record exists then you end up with a populated record if it doesn't you end up on a New Record - check first then add. Using filtering means that you don't need create a separate script and goto New Record and this Dialogue can be used for general...

You can use With CodeContextObject. The dot replaces the parent form. Can be used on controls as well. Function FeedDataAdditivesValues() With CodeContextObject If .[Feed Data Entry Additives].[Form].Recordset.RecordCount > 0 Then DoCmd.RunCommand acCmdSaveRecord...

I generally declare SearchDate as whatever field and then use the converted date in the criteria: With CodeContextObject Dim SearchDate as Variant SearchDate = Format(.[Combo13]),"mm/dd/yyyy") End With stLinkCriteria = "[date] = #" & SearchDate & "# AND [shift] = " & Me![Combo16] This...

I put an unbound form before the Form with actual data and apply fuzzy logic it there are multiple combi-boxes. The advatage is that ehen you go to the data form you will have applied a filter that is re-useable. Simon

Please post your code Simon