Search results

Ahm... yeah. But what's most admirable about you is your modesty. :D

Hmmm... This leaves a lot of room for speculation. :cool: Especially since I'm usually bombarded with those mails too. :D

Not to worry, that one is re-routed to a gmx account that he checks maybe once in six weeks. His "normal" adress is another one. ;) But I guess I should edit it anyway.

Webmaster at marc-gerhardt.de :cool:

@Parker: Rest assured, it's just the avatar that's nice. <g> As for my husband... He's even worse than my innocent little self. If he read this, he'd probably proceed to quote 100 reasons why it's preferable to be a man rather than a woman. But I think that belongs into the "arguments" thread...

Why? I don't have an ex-husband after all... :p

Q. What should you do when you see your ex-husband rolling around in pain on the ground? A. Shoot him again Q. Why do little boys whine? A. They're practicing to be men. Q. How many men does it take to screw in a light bulb? A. One-he just holds it up there and waits for the world to...

OK, got it. Dim s As String Open "C:\FileNet_" & Format(Date, "yyyymmdd") & ".txt" For Binary As #1 s = Input(LOF(1), 1) Close #1 s = Replace$(s, ",00", "") Open "C:\FileNet_" & Format(Date, "yyyymmdd") & ".txt" For Output As #1 Print #1, s...

Hi! I'm currently using the following code in order to a) export certain fields from one table into a TAB-delimited .txt file and b) update a second table in the process: Private Sub Datenexport_Click() On Error Resume Next Dim db1 As Database Dim rs As Recordset...

Did it... ;) Why is it that I first spend hours wrecking my brain over a problem, and as soon as I've posted it here I suddenly find the solution myself? :confused: :rolleyes: Ute

Hi everyone, One of my forms is a search form in which the user can later select one or more records from the search result. The selected records can then be printed at the click of a button: Private Sub DruckHauptfunktion_Click() On Error Resume Next Dim db1 As Database Dim rs As...

Oh, OK -- thanks for the info! :) Ute

OK, got it! :) This one here works fine, it seems: Public Function Duplicate(ByVal strKey As String, ByVal strTable As String, _ ByVal lngID As Long) As Long On Error GoTo Err_Duplicate Dim db As DAO.Database Dim rs As DAO.Recordset Dim fld As DAO.Field Dim...

Oh dear... This promises to turn into a never ending story... OK, what I'm trying to do is this: As before, the current record is duplicated into the same table ("Daten ") that also contains the original data. The new ID is "Highest ID + 1", the remaining 76 values are added one after another...

Not according to Donald Rumsfeld... :D

I'm currently trying something that looks promising, haven't quite finished it yet, though. The textbox already works, it also already saves the user's new temporary value. I guess by the end of the day I'll know how to write the stuff into my table as well. (It turned out I had to use a...

It messed up my IDs with "Boolean", I'm afraid. The button would only work once; it set the new ID to -1 and no more duplications were possible.

:D Wellllllll... If you tell me that a textbox is better, then I'm inclined to opt for the latter of course. *g*

I'm currently using the function below (thank you, Mile-O-Phile! :) ) in order to duplicate a current record with the click of one button. What I would also like to do is to not duplicate but change the value of just one single field ("xyz") during that duplication process. I assume that...

Changed it. Danke schön! :) Ute