Search results

i'll see what i can do with it. Could it be possible that Footer1 in your code is already bookmarked in word? if so: What does you're code do more than the one i already posted. I use bookmarks in my header and footer already with my code, and it works perfectly. for duplicating bookmarks i'm...

hi, I'm making a new Mailmerge with the bookmark function in VB access first, I'd like to know how i can add a 'Bullet style' (like '-' or even better, a real black-bullet, in front of each line) in word trough VB. I'need this for a correct layout, if a text is bigger than one line it goes...

i'll give it a try, thx

fileklller = "place.of.file.dot.extension" (ex c:\doc.doc) if len(dir(fileklller)) <> 0 then kill fileklller else ... I think this is what you need

hello, I'm trying to make a function that gets every itemdata in a listbox (checked and unchecked) to make word docs. I fill up the listbox (6columns) with data from other textboxes (ex columns: Type,dotplace,name,adress,state,...). The data in this listbox gets deleted after each document had...

nvm, found it: Public Function Movingdir() Dim fso Dim objdir As Object, objfiles As Object, objfile As Object Dim strNewName As String Dim newmapp As String Set fso = CreateObject("Scripting.FileSystemObject") Set objdir = fso.GetFolder("K:\opslagword\") Set objfiles = objdir.files For Each...

Hi, I'm trying to move all my files (4008 files/1 dir) to move to different dirs. i've made a function out of some examples on this board. But without success. here's my code, i hope someone find the fault. Public Function Movingdir() Dim objdir As Object, objfiles As Object, objfile As...

If you only want to add the text of the combo in a table, use a sql string: example that adds 2 values: Private Sub Something_NotInList(NewData As String, Response As Integer) Dim db As Database Dim LSQL As String Dim LResponse As Integer Dim ctl As Control Dim Medid As Long...

i'll check it out and let you know if it works

yeah, it's the same system as mine, only mine is better and simple :P, i just have to change one thing and i have exact the same function. If i change this: Call ErrorDB("some err text here for current procedure") I want a function that automatically get the caption name and place it in the...

I'm using the same method, very simpel, very fast and the box is hidden :P just referring to the .column() syntax. ps: Dlookup is slowly, use Elookup module (search net) or open an sql instead :P

hi, i'm trying to make an errmodule so i can see in a table when a user makes a fault other then 0. i have this as err in each function: Call ErrorDB(me.caption) and a module: Public Function ErrorDB(errctl As String) Dim db As Database Dim LSQL As String Dim errnum As String Dim errdesc As...

yeah that's a possiblility, but without the professional look :P although it would work perfect. I solved the problem by not giving the directory dir in the msgbox if a setting does not exist, now it only gives a short description what is fault in the settings. Thanks for searching a possible...

i just saw something strange. I've made a recordset that checks if the settings in the settingtbl are correct, if not it has to say which settings are incorrect and the value that is in it at the moment. (make string) when the msgbox shows up and there are more then ten incorrect settings it...

nvm. found the fault, i had a ; at the end. deleted that and changed the "" where a number is and it works fine now. LSQL = "SELECT Hoofdform.medium_naam, Hoofdform.Ref_Uitgever FROM Hoofdform WHERE hoofdform.medium_naam= " & Mednam & " AND Hoofdform.Ref_Uitgever='" & RUit & "'" now...

No, Ref number can be a string or a number. this field is setted as text only medium_naam (combobox) is a number in the first column. can you get the id with the Dcount function is a record is found? (my dcount function works, but i cant see where the dubble record is (which id)

hi, why won't this sql string work in VBA, i tried everything and it seems to be something small, but i don't see the fault :( What i try to do is a check if a record already exists with the RefNumber and the companyname. as you can see is RUit a string and Mednam a number. this code is placed...

Thanks, was searching for this function! GREAT BOARD! NICE SEARCH FUNCTION :P

yep, it works now, thanks pbaldy!

hello, I'm trying to make a vba script to check if a user has access. i have a table called Vaststellers where the username is stored in the first column "gebruiker" and a second as Yes/No box if the user is marked as active. there is more data in this table but for the moment i only need those...