World's Smallest Windows PC by OQO

Irina Slutsky and Eddie Codel stop by the San Francisco offices of OQO, makers of the smallest Windows Vista capable PC. Nick Merz, director of design and a founder of OQO, shows us the new model 02 which was just released at CES last week. Weighing in at one pound, OQO's model 02 packs a knockout set of features for the urban road warrior or mobile business executive. We've seen the future and it is a high performance PC that fits in the palm of your hand and keeps you connected anywhere.

by PODtech.com

iPhone: Product of the Year?

Apple CEO Steve Jobs delivered one of his most dazzling MacWorld keynotes as he unveiled Apple's new iPhone. The device uses a patented touch screen system called multi-touch. Cisco, which owns the iPhone name, says it expects to close a deal with Apple on some sort of trademark royalty for the moniker. In this podcast Jobs introduces the device, which is combination of iPod, phone and Internet device. Price points are $499 for a 4 gig model and $599 for an 8 gig.


From www.podtech.net

VBA code: how to insert a value in a combo box that is not in list?!!

hi.
every beginners access developers have a problem when they want to insert a new value in a combo box. that is created by "lookup wizard" or it's a foreign key and contain bound column that is generally number (hidden one) and a second column that usually a text (visible one).
so when u try to insert a new value. you will got this horrible message:







do you remember itt??!!
now this is your solution:

1- go to the properties of the combobox in design view..
2- click on the events tab..
3- and double click On Not in List.
4- you will go to the VB window.
5- insert this code:

Dim strSQL As String
Dim i As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

'msg will apppear to the user asking him what he want to do?
'change the text if you want.
Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Book Category...")
If i = vbYes Then
'Change the "table" and the "field" in strSQL
strSQL = "Insert Into table([field]) " & _
"values (' " & NewData & " ');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If