Search results

Hi.. ;) Try this..: if recordsetclone.recordcount =0 then msgbox "Product not found"

Hi.. ;) This can be useful..: update tabloname set fieldname = "-" & left([fieldname],len([fieldname])-1) where right([fieldname],1)="-"

Re: Advanced Search-Listing and Export hello .. I think a problem with the regional language settings. I prepared this application in Turkish language. I do the necessary arrangements .. Can you try it..

Hi.. maybe this could be an alternative.. Private Sub CommandButtonName_Click() Dim trz trz = InputBox(" Enter only positive numbers!", "Info") If trz <> "" Then If IsNumeric(trz) = True And trz >= 0 Then MsgBox "approved." Else Call CommandButtonName_Click 'type...

Hi.. use this criterion in the query..: between date()-weekday(date())+1 and date()-weekday(date())+7

This application allows you to search all fields in database tables and queries.. In addition, the data in list can also open the file format to another.. in formatting the form objects I used a different point of view.. ;)

Hi.. You can try "partition" function.. select partition(hour([time]),0,23,1) , count(time) , count(qty) from orders group by partition(hour([time]),0,23,1)

change the name of the table and field, paste the sql view, a new query. field, will be the percent field.. (Waste%) So you're talking about the first message use the query..: select sum([Waste%]) / (select count(*) from query_name) from query_name Even if you use a new field, the same...

Hi.. ;) select sum(field) / (select count(*) from table_name) from table_name Try this sql..

Hi.. tiry this..: select staff, count(proposalname) from (select staff, proposalname from roles group by proposalname, staff) as trz group by staff

if you are modifying the data in this way, I think a more accurate..: new module to paste..: Public Function trznumeric(veri As String) Dim aa As String For i = 1 To Len(veri) If IsNumeric(Mid(veri, i, 1)) Then aa = aa & Mid(veri, i, 1) Next trznumeric = aa End Function this the command...

Hi.. select field1, field2, field3 from mytable where field1=iif(forms!form!combo1 is null,[field1],forms!form!combo1) and field2=iif(forms!form!combo2 is null,[field2],forms!form!combo2) I hope I understood correctly.. ;)

Hi.. The first query edit it..: select * from ( select [ID_Service],[Field_ID], [quarter_ID], [practice_code], [activity] from [tble_patientactivity] union select [ID_Service],[Field_ID], [quarter_ID], [practice_code], [activity] from...

Hi.. ;) If you want to sort it, if only the form, refer to the example. If you want to see just a query, your query (SQL view) will be needed.

Hi.. if the ID field will auto number, which must return a boolean result

I'm glad that I helped you.. :o

Hi josephbupe.. ;) User name, the combo box may not be the first column of dim UserTrz as string me.cboUserName.column(1) 'which is the column Me.txtAccessLevel = DLookup("userAccessLevel", "tblUsers", "userName='" & UserTrz & "'")

select Measurecount, Difference, [Difference]/[Measurecount] as MAvg from (select count(ID) as Measurecount, ( select sum([Measure2]-[Measure1]) from table_name) as Difference from table_name) as tt Hi... I hope I understand correctly.. :o

Hi again.. :) Try this..: Private Sub Command0_Click() Dim rs As DAO.Recordset Dim tt As String Set rs = CurrentDb.OpenRecordset("select * from bilansuspjeha " _ & " where name Not Like '*' & 'bank' & '*' and Len([name])>2 and left([name],1)='' ") With rs Do Until .EOF On Error Resume...

select * from mytable order by ID desc , len([name]) Test your sorting in.. long data, should be first .. After a short..