the forum is about solving problems that you are experiencing. Do your design and if you have something you can resolve, post it and someone will assist you.
I don't think a listview control is what you want. I think it would look more like a normal question screen if you had an array of radio buttons. On your form, place one radio button, then copy and paste it, VB will ask if you want to create a control array, answer yes. then keep pasting until you have the desired number of radio buttons.
When you retrieve a record from the database populate the captions of the radio buttons.
Place some code under the click event of the control array to check if the user has selected the correct answer
in the first instance create a control array of text boxes, put one text box on the form, copy and paste it, VB will ask if you want to create a control array to which you answer Yes. Then past the remaining 13 text boxes.
randomise
for i = 1 to 14
textboxNo = int(rnd()*14)
do until textbox(textboxNo).text = ""
textboxNo = int(rnd()*14)
loop
textbox(TextboxNo).text = i
next i
well I can't see anything referring to an object Employee ID but I am thinking you probably need to move line 18 above line 11. not much point in trying to use drTrans until you have assigned it a value.
I think you should stay with a traditional relational design if you are planning to implement in a relational database. see below the table to hold bar visits.
the difficuly with your design is that it does not allow questions like "how may people have visited bar X?" or "how many bars did I visit on 23/2/12?" to be answered easily
datediff returns a number, ie number of days, number of hours, number seconds depending on the first parameter. so if you want the number of hours between the two the call looks like
noHours = datediff("h",[Work Start Time],[Work End Time])
or in SQL
noHours:datediff("h",[Work Start Time],[Work End Time])
how does someone log in? are you displaying a login form and if so when? if it is in the form load event before you call CreateIdFolder ensure that it is displayed as modal otherwise the form load event will continue processing and not wait for the user to log in.
Rather than bothering with a log in screen you may like to authenticate off the windows login
Function getUserName()
Dim wshNet as object
Dim sUser as string
set wshNet = CreateObject("WScript.Network")
sUser = wshNet.UserName
set wshNet = nothing
getUserName = sUser
End Function
you can then query a database table of usernames and privileges to determine if this user has admin rights.
This forum does not write you assignments for you. Have a go yourself, if you have a piece of code that you cannot get to work post it and someone will help you debug it.
if you double click on the button it will open a code window, this is where you write the code to calculate the price. If you don't know how to write Visual Basic code here is a resource you could look at
the scanners I have used simulate keyboard entry. That is, what is scanned appears as if the user has typed it on the keyboard. set focus on a textbox then scan and the data from the scanner will be placed in the text box. it is usually terminated with a CR so place some code in the Lost_Focus event to handle the data.
at line 24 you should not have VAL function this is to convert a string to a number and room price is an integer. if anthing you shoul probably use Cstr
since you have the code structured like it is you will want to place the same piece of code in a number of places, accordingly, it is probably better to put it in a function, line 40 becomes
lblSalOutput.Text = CStr(assistant + addLoading)
then your addLoading function looks like
private function addLoading
dim Loading as long
Loading = 0
if chkMast then Loading = Loading + masters
if chkDoct then Loading = Loading + doctorate
addLoading = Loading
end function
Note also integers can only hold up to 32,767 you should use long.
The problem with WIA is a number of scanners don't fully support it (or don't support it at all) I used a product called EZTwain on one site where I had this problem which you might like to check out. You can download a trial version for free and the full version is only a few hundred dollars I think.
as jx_man said you need to hold the amount remaining somewhere else, ie a different table. create a stock table that holds the remaining stock for each item. you need to read this for the item concerned, subtract the amount sold and update it.
Also TotalCost should be a module level variable declaration. By declaring it in each subroutine, it is created when the subroutine is invoked and destroyed when the subroutine terminates making it useless. Have one
dim TotalCost as Decimal
in the declarations section of the module at the top
seems awefully hard work. Why don't you just create a new table with the key field as unique and append the existing table, the new table will not have any duplicates
