General :: Drawing A Line Over The Grid Depending On What Day It Is And Time
Sep 14, 2012
Here is a project. I have a grid on a form. its width is 20cm wide and 15cm tall. in the grid are 6 groups of columns (all columns listed are from left to right).
Group 1 - 5cm wide - description
Group 2 to 6 are 30cm wide and represent days. Each group is split into 8 columns which represent hours per working day.
I need to to draw or position a line over the grid depending on what day it is and time. for example, lets say its thursday at 14.30. ( the 8 hour columns run from 8am to 4pm ) it would need to look like this-
So I need to work out the position of of the line depending on the time of of the day in the week. The day can be determined by the column header, the time by the grid....
I created a report that only has gridlines around the outside border of the entire report (rather than around each record). I want the grid line style on the last/bottom record to be solid so it boxes in all the records. When I change the "Gridline Style Bottom" for the records, each record has a bottom gridline rather than an outside box around all the records.
I have a orders sub form that was working great .Then all of asudden when i when to input information into the fields i realised the grid under variuos field names has disappered (Icant enter any info),surly this must be something i have accidentally done without realizing.
I am writing a database to track our (and others) wine collections. i'm wanting to track what bottle is where. so i can look up what i have, look up where i have put it and away i go to get it, simple right?
just to complicate things i want a system in place. where the end user and use forms to add/remove or modify wine racks.
assuming that all racks are rectangular i would like to be able to add a rack and call it rack 1. rack 1 has 4 shelves all able to hold 5 bottles. the database would then say that bottle X is in rack 1 shelf 1 position 1.
if possible there will aslo be a screen that is auto generated by the database showing a simple grid with grrn and red squares denoting if the position if full or empty. the ability to click on a position to see what is in there or to add a bottle there would be amasing but not fussed if that can't be done.
I am struggling with a slight form delay. When it opens on the OnOpen event, i am populating a grid. This takes about 3 to 5 seconds but, the it also takes the form the same time to open. What i need to do is get the form to open then populate the grid. Can i make the form open first then populate?
I would like a query to run, depending on a date..If the date in [Txt_Date_Account_Opened] is between todays date, and within the last 30 days.do CurrentDb.Execute ("Qry_Append_Units")else a msg box stating "account is not yet open"
I have a table with three fields: SSN Member # Case # I want to create a form that I can search by SSN or Member # which will show all Case #'s known to the SSN or Member #.
A member can only have one SSN and one Member # but many Case #.
I've done this before, but can't remember how, can anyone help?
I need to display a message on a form after a record update has been done depending on whether a table field is ticked or not. If it is ticked I want one message if it is not ticked I want a different message, but here is the scenario.
I have a form and one of the options I have is to call up an address from a record in a table. I want it to display a message to advise whether there is a special requirement for delivery to the address, so in the table I have a checkbox field. If its checked, once the address has been pulled up I want it top advise 'special requirement' or 'no special requirement'.
I need to do this in a macro form, or expression form if possible as I already have an after update macro when that drop down is selected.
So on the dropdown list I have the following on the afterupdate function:
SearchForRecord Object Type : Object Name : Record: First Where Co0ndition - - "[ID] = "& Str(Nz([Screen].[ActiveControl],0))
That brings up the address from a record in my table onto this form, so what I want is if that record has got a tick the checkboxfield it prompts with a message and ok button.
im responding to the code you submitted to draw lines on a form. I am trying to change it a bit to only draw dots. I have x and y cordinates that I want to draw on the MS form kinda like a scatter graph. So I want to pass values from a table into the function LineX. Then have the function create dots that draw on the for to corespond to the x and y Cordinates. I was wondering if you could help. thanks in advance
here is the original code Option Compare Database Option Explicit
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long, lpPoint As Any) As Long
Private Declare Function apiGetDC Lib "user32" Alias "GetDC" _ (ByVal hWnd As Long) As Long
Private Declare Function apiGetFocus Lib "user32" _ Alias "GetFocus" _ () As Long
Public Function LineX(Ctrl As Control, X As Long, Y As Long, cx As Long, cy As Long) Dim DC As Long 'device context Dim hWndCtrl As Long 'bounding control handle hWndCtrl = fhWnd(Ctrl) 'get control handle DC = apiGetDC(hWndCtrl) 'get control DC MoveToEx DC, X, Y, ByVal 0& 'set starting point LineTo DC, cx, cy 'draw line from starting point to cx, cy End Function
Private Function fhWnd(ctl As Control) As Long 'use getfocus to retrieve ctrl handle On Error Resume Next ctl.SetFocus If Err Then fhWnd = 0 Else fhWnd = apiGetFocus End If On Error GoTo 0 End Function
The access import wizard has a convenient form when a fixed-width file is to be imported. The form allows us to click the data to insert an arrow at a position where the next field should begin.
For my project, the wizard has some serious shortcomings, so I am trying to build my own import form. I can capture everything else needed to build an import routine, but I can't figure out, nor find examples of, allowing the user to place column breaks graphically.how to do this without using the wizard? Or rather, like in the wizard?
I need to add new records to a table depending on what the cbo box displays. I figure this is the way to do it but I it's not working, I have only writen the first select,
Private Sub Comando6_Click() Dim dbPalavraChave As DAO.Database Dim rstchaveCFEPC As DAO.Recordset Set dbPalavraChave = CurrentDb Set rstchaveCFEPC = dbPalavraChave.OpenRecordset("chaveCFEPC")
I am a new user to access and are therefore seeking the assistance of a more experienced user (I'm sure this will be an easy one for all out there).
I want to be able to get records from different tables after the table name has been chosen.
In other words and to be a bit more specific, at the moment in one table I am selecting the tables I want to get information from. Once I select the tables I need to then be able to extract the required data from the selected tables and then put it into a new table with summary totals.
I'm looking for VBA code.Basically I have a drop down with 3 options on a form but need it to pull up a window to input depending on which option is selected. One selection of the options if selected will not require the input of data, as it can just input a set value or be left blank (haven't totally figured how I want to display it). With all this I will need it to display on a form in a certain format, in which I would like the drop down value displayed with the data inputted, though with the one option without data just would display drop down value.
I have a checkbox which when checked then turns textboxes to locked as below. However when I navigate to the next record which may not be checked the text boxes remain locked. I obviously want to lock the boxes depending on each record. I am navigating via the windows next/back record buttons. How do i do it?
Private Sub Check44_Click() If Check44.Value = -1 Then serial.Locked = True gain.Locked = True swst.Locked = True Else serial.Locked = True gain.Locked = True swst.Locked = True End If End Sub
My company does daily, weekly, and monthly drawings using mountains of entry tickets and a barrel that has seen better days. So needless to say this system has to go. I hope to be able to do it digitally.
I would like to do a random number generator to pick the winners based off of a ticket number range. The ticket numbers issued to the customer would correspond to the customer account number. To complicate things I would really love to have the random numbers displayed on the screen so people feel they are watching the randomization pick in progress with the winner name popping up.
I have searched Help for Rnd function, as well as googled. I haven had any luck finding what I need. Is what I am looking to do possible in access? I had something similar in Excel a few years ago but lost it.
I have an option button for a field [Fully Paid] (Yes/No) in my LoanT and i want to know if it's possible for my database to automatically choose an option depending on a calculated field
(Calculated field from another query) = [Outstanding Balance]
Say... if [outstanding balance] is = 0 or negative (refundable), then Yes should be On, if not it should remain No/off so that i wouldn't have to go over every record and manually choose the option
The option button is very useful when i want to display loans which are Paid and/or still active. How do I go about this?
Formatting issue regarding elapsed time calculated using DateDiff().
I understand that you can specify the output value for DateDiff(). In my case I have chosen "n" for minutes. Each result in my query shows the correct calculation in terms of minutes.
[PunchIn] = 11/23/2013 8:11:28 AM [PunchOut] = 11/23/2013 5:43:30 PM
Now when I try to format the result in terms of H:MM (be it in a form or a report) I get varied results. I'll illustrate an example below:
=Format(([ShiftLength]/60),"0") & "." & Format(([ShiftLength] Mod 60),"00") Returns 10.32 Not correct
=Format(([ShiftLength]60),"0") & "." & Format(([ShiftLength] Mod 60),"00") Returns 9.32 This is correct but I need my result to be in the form of a decimal such as my next example
=([ShiftLength]/60) Returns 9.53333333. Getting there but how do I have this result only show two decimal points 9.53?
I have a form that could have duplicate material descriptions , is it possible to have on that form a field that counts the number of line items for that material and when the material changes the new number will appear .
I have manipulated the duplicate record code found online to suit my purposes. It works for all the other subforms, however this subform has too many fields so the code goes onto the next line. How do I solve this? Online it says using "& _ " but I can't get it to work. There's basically too many fields to fit on one line so I need to continue the code onto the next line
Code with end of line problems highlighted in red:
If Me.[subformEmissionsControlTarget].Form.RecordsetClone.RecordCount > 0 Then strSql = "INSERT INTO tblEmissionsControlTarget ( System_ID_No, EmissionsStandard, OtherEmissionsStandard, IntakeThrottle, OBDrequired, OBDVersion, DPFregenmethod, ExhaustTemperature, EGRTemperatures, EGRRates, SteadyStateCycle, SteadyStateEngineeringLimitType, SteadyStateLegislativeLimitSmoke,
I am working on supporting spaces in the DB filename. I got the rest of my program working... other than being able to invoke Access with the specified filename for it to open.
Code: C:Documents and Settingsc_mlueckMy DocumentsFandango>"C:Program FilesMicrosoft OfficeOffice12MSACCESS.EXE" "Schema Ideas.accdb"
C:Documents and Settingsc_mlueckMy DocumentsFandango>dir "Schema Ideas.accdb" Volume in drive C has no label. Volume Serial Number is C8E4-5856
Directory of C:Documents and Settingsc_mlueckMy DocumentsFandango
