Search results

Hi.. a suggestion..: Page Setup / Columns Tab / Same As Detail checkbox click..

I think this way work.. varWhere = varWhere & "[NewWOno] " & "Like '" & Me.txtWOno & "'" & " or [oldWOno] " & " Like '" & Me.txtWOno & "'" & " And " I hope you think of the right.. ;)

Set rs = CurrentDb.OpenRecordset("....") this section, you must specify the form's source table or query.. Set rs = CurrentDb.OpenRecordset("table_name") as...

inattention.. :cool: Thanks for the correction.. ;)

Hello.. Try this way.. dim sdate,edate as integer sdate = clng(cdate(Me.txtStartDate)) edate = clng(cdate(Me.txtEndDate)) varWhere = varWhere & "[NewWOdate] Between " & sdate & " and " & edate

Hi.. Try this..: DoCmd.OutputTo acOutputForm, "form_name", acFormatPDF, _ me.textbox_name & ".pdf", True, "", 0 .

Hi.. you can use it.. Be sure to include the necessary reference..: VBa editor / Tools / References / Microsoft Office xx.x Object Library Dim dlg As FileDialog Dim si As Variant Dim FileName As String Dim vrtSelectedItem As Variant Set trz = Application.FileDialog(msoFileDialogFilePicker)...

function is implemented correctly. need to search for error in different places.. Try it. what the result will be? =([start date]-[cbc_test_done])*24 .

Hi.. can use this way with vba..: currentdb.execute "INSERT INTO Table1 ([Field1],[Field2],[Field3]) SELECT '" & var1 & "'" & " ,[Field2],[Field3] FROM " & _ "Table2 WHERE [Field4] = n "

Hi.. with between operator, equal operator should not be used.. also, Try giving the full path of the text boxes ..: Me.Filter = "[ScheduledStartDate] Between [Forms]![form_name]![txtStartDate] And [Forms]![form_name]![txtEndDate]" Me.FilterOn = True it's another way..: docmd.applyfilter...

IIf([Lock]=-1,"Pass","Fail") Hi.. Use -1 (or true) for the correct value .. 0 (or false) for the opposite..

Hi.. There are a few ways to do this. I suggest one of the..: On Error GoTo hata Dim trz, oldsource As String trz = " [ID]=" & [ID] 'Change with the name of the ID field oldsource = Form.RecordSource trz = "select * from(" & oldsource & ") where " & trz Form.RecordSource = trz...

Hi.. only to records this month, can use this criterion..: between dateserial(year(date()),month(date()),0)+1 and dateserial(year(date()),month(date())+1,0) records only for the next month, can use this criterion..: between dateserial(year(date()),month(date())+1,0)+1 and...

Re: newbie needs help, what is thsi called Hi.. Cross query might be useful maybe..: transform min(data) as dt select PatientID from table_name group by PatientID pivot VisitType

Hi.. Use this command.. form.refresh If IsNull(Me![CARNUM]) Then MsgBo.... .................

I'm glad you like it. I forgot the server.. ;) If you want, the same result, for the server, not using the function, the query can do it with..: select OriginalData.ProfileID, Name, Profile1, Profile2, Profile3, Profile4, MINP from OriginalData left join ( select ProfileID...

Hello .. I thought you wanted the smallest value in the entire table of values​​. I guess, do you want for each record separately. I prepared a function. You can see the results of the query named query1. Greatest value and the lowest value of both Sorry, my English is not very good .. :(

Hello again .. :) this query take the smallest value other than 0 ...: select ProfileID, Name, tt from ( Select ProfileID, Name, Profile1 as tt from TblSample union Select ProfileID, Name, Profile2 from TblSample union Select ProfileID, Name, Profile3 from TblSample union Select...

Hello.. ;) This query lists all the profile fields in the most lowest value ones..: select ProfileID, Name, tt from ( Select ProfileID, Name, Profile1 as tt from TblSample union Select ProfileID, Name, Profile2 from TblSample union Select ProfileID, Name, Profile3 from TblSample...

Hi.. ;) With this procedure, using the values ​​in the table, with one command, you can export queries..: Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset trz = "select * from tablename" rs.Open trz, CurrentProject.AccessConnection Do Until rs.EOF DoCmd.OutputTo acOutputQuery...