Recent content by thmsjlmnt3953

Hi, I am trying to run a query to count orders and sum qty from salesdetail and salesheader tables (count on header and sum of qty in detail) however it seems to be counting all the detail too? It leads me to believe I need to subquery and join however not sure how? SELECT...

Re: runtime 13 data mismatch conjetdate - oops!! copy and paste error and fixed now!!

Hi, I have used this code many time shwoever its failing on this occasion, the product in question is for example "0066551 - test product" which appears in the continuous form and the textbox. Private Sub Command9_Click() Dim strWhere As String Dim lngLen As Long Const conJetDate =...

The SQL part works as intended, appending a product to a table. its the docmd sendobject that fails

Hi, Ive examined Product and it returns a string in the form of "product - description" just a standard text string? The SQL part works ok so i would leave that just now although i know its a bit messy. its just to get the string product into the subject line i need?

Hi, Im getting a data type error when i try the below and cant seem to figure it out? Private Sub Command2_Click() Dim Product As String Product = Me.txtProd.Column(1) If MsgBox("Is Outlook Open?", vbYesNo, "Outlook") = vbYes Then DoCmd.RunSQL "INSERT INTO tblRequestedPallets ( P_Code_Id ) "...

Hi, Apologies for the delay in reply, ive been off work and not really upto doing much DB work. If you have a look at my attached file above, ive got the dynamic part working, however its only showing me the first record across the dynamic 'fields' and i was wondering how to get it to show the...

Hi All, So i persevered with the crosstab report and its kinda working and..... kinda not :cool: - its taken a lot a lot a lot of :banghead: The first line of data appears from the query, displayed properly, however im trying to completely remove the totals from the far right box, - ive got...

Hi, Rather than start this in my main db ive taken 2 tables from this with mock data and began to build this so its easy to incorporate back into my main, i've got quite far in = its just the dynamic field name's i need to finish now which im stuck with, ive uploaded a copy of my DB so far if...

Hi, Would anyone be able to give me some step by steps in creating a dynamic crosstab? i have 2 tables one is pickstats - empid,lines,hours - the other table is tblemp - empid,fname,lname. i query this to give TSM:[fname]&" "&[lname], LPM:[Lines]/[Hours]/60 - i can create a crosstab from here...

Hi, I have globally defined 'Progress' as integerer and using the following code on my splash screen - i want to add a "." to the end of the label caption until progress = 10 (10 timer events) Private Sub Form_Load() Progress = 0 End Sub Private Sub Form_Timer() Dim Dot As String Dot = "."...

That seems to be it working now, strange one :) but glad its working

Hi, I got all that filled in how it needed to be however when i log in now no-one has access to anything? Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() strSQL = "SELECT * FROM tblpermissions WHERE [empid] = " & EmpIDLogin...

Massive thanks for this :) will save me a large amount of time and as you say your only going to the data once :)

Apologies, 40 fields, each one related to a cmdbutton on my nav screen as the DB will potentially have 30/40 users holding business wide data, only some of that must be viewable by certain people