Search results

Private Sub Knop16_Enter() Dim rs As Recordset Dim rs2 As Recordset Set rs = CurrentDb.OpenRecordset("Allowed_Options") Set rs2 = CurrentDb.OpenRecordset("Uitvoering") rs.MoveLast rs.MoveFirst While (Not rs.EOF And Not rs.BOF) MsgBox rs("Standaard")...

I got 2 tables here: the first one is holding a list of articles, the second one holds orders consisting of some of those articles... Each article has a flag claiming it is a Common article or not; now when a user starts a new order, I would like to have all the Common articles automatically...

I have a OLE object on my form that should store an image... Now when you doubleclick it, I'd like to have Paint or something opening the image (image on form is quite small, so to have it shown bigger, you'd simply have to doubleclick), however the image comes straight from the clipbaord so...

I got an access application running, the users are redirected to the different forms through a menu... When a user opens a form and closes it again, the form is simply made invisible but is not 'closed' so to speak, when the user clicks the specific menu item again, the menu is shown again...

(SELECT DistinctUIT.Datum, DistinctUIT.[Uit] as Tijd, Count(Planning_1.ID)-1 AS AantalVanID FROM Planning AS Planning_1 RIGHT JOIN DistinctUIT ON Planning_1.Datum = DistinctUIT.Datum WHERE (((Planning_1.[In])<=[DistinctUIT].[Uit]) AND ((DistinctUIT.Datum)=[forms]![Afspraken]![datum]) AND...

Dim RST2 As Recordset Set RST2 = CurrentDb.OpenRecordset("SELECT * FROM Stopcode", dbOpenDynaset) RST2.MoveLast Do If (RST2("ID") = Me![ID]) Then If (RST2("Krediet") = 1 Or RST2("Stopcode") = 1) Then MsgBox "Deze klant dient CASH te betalen! " &...

If (RST("Worktime") + Now() > RST("LeaveTime")) Then MsgBox "Insufficient time to complete the work..." End If This piece of code checks if there's enough time left to complete the work seen from the current time, but "WorkTime" and "LeaveTime" are stored only with hours, minutes &...

Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Tikking") 'rst.MoveLast rst.MoveFirst While (rst![ID] <> tikking) rst.MoveNext Wend ... ain't working because I get "No Current Record" on the while line :( (the table "Tikking" got about 9000 records so not a chance it's empty :p )...

ARGH! I was messing around in the startup settings of my .mdb and set the menu form to load on startup, plus I turned off the menus and all, and now i can't do anything anymore :( HEEEEEEEEEEEEELP! How do I get my top menu bar and right-click menus restored? :o

Is it possible to have the field boxes of a continuous form for one specific value of a checkbox field coloured white or yellow or ... ? If yes, how can i do this? I looked around but found nothing except for the Conditional Formatting which I don't see capable of accomplishing this :( I tried...

Set rst = CurrentDb.OpenRecordset("BonZoek") With rst '.Filter = "Leveringsbon=" & Bon varItem = .GetRows() For intIRow = 1 To .RecordCount If (varItem(0, intIRow - 1) = Bon) Then strWhere = strWhere & ", " & varItem(1, intIRow - 1) Next...

I got a form (datasheet view) with all orders for one day, with a column which represents the delivered number... Example: Headlights, 10 ordered, 0 received User changes the received field: Headlights, 10 ordered, 4 received What I would like to see happening is as follows: The old line is...

Got a form here that has an exit button... However, for reasons of performance, when you push the exit button, the form simply gets invisible... Now, whenever the form is loaded i want a new record added (DoCmd.GoToRecord , , acNewRec). I put it in the Form_Load but of course this code isn't...

I've put a STOP button on my form that enables the user to exit the form; what the button does is delete the current record from the table and then close the form, and for that i use the DoCmd.RunSQL "Delete FROM table WHERE ID=" & Number However the user is still prompted as to whether he's...

I got a form with an underlying query and all works fine on the PC I developped it on (Intel P4 / Windows 2000 / Access 2000) ... When I try to run it on another computer (Windows NT 4.0 / Access 2000) I get "Function is not available in expressions in query expression '...

Parameter Query causing problems I'm using following query: SELECT Toekenningen.Technieker, Planning.Datum, Toekenningen.Start, Toekenningen.Duur FROM Planning INNER JOIN Toekenningen ON Planning.ID = Toekenningen.Afspraak WHERE (((Planning.Datum)=[Forms]![Toekenning]![Datum])) ORDER BY...

When I try to make an .mde file, it tells me it can't... I don't get any more information. What is the problem?? :confused: I need a solution quite urgent :o

Private Sub Form_Timer() If (Me.kalender <> Date) Then Me.kalender.Locked = False Me.kalender = Date Me.kalender.Locked = True MsgBox "Datum gereset" End If ' do backup Kill "Tikking.txt" DoCmd.TransferText acExportDelim, , "Tikking"...

Searching for a way to export a table to Excel file using VBA... As I had this bookmark problem (see thread in general :p ) I don't wanna take any chances so I'm gonna backup the data every hour or so... Please help :)

"Invalid bookmark" Every time I try to open the .mde file of my Access Database, it gives me an 'Invalid Bookmark' error and quits instantly :( It worked fine when I left it behind yesterday, is it possible someone wrongly exited the DB? How did this happen and what should I do about it...