Search results

Here is my code: Implant Module Private Sub cmdImplant_Click() 'FN = File Name ' PTFILE = Path to File Dim FN As String Dim PTFile As String FN = DLookup("AOMSImplant", "CHANLinkPaths") PTFile = "" Me.tfPtInfo = Me.PName & vbCrLf & Me.nPID & vbCrLf & Me.nRef Me.tfPtInfo.SetFocus...

I have 3 modules to my user interface that connect to my backend. Each module is a separate front end access accdb. I have coded some buttons to open each of these modules which work well in the developers version. But at runtime, I can only open two of them. The funny thing is this. Say I...

Thank you Fran, Thats exactly how I worked around my problem. I created a temp table from the original [calander] table and assembled the dates in a proper date format into that temp table. Then excluded the unwanted records when creating a rowsource for my listbox. Thanks again everyone for...

Thanks for your reply spikepl. My table is actually an odbc shared sql table from a practice management software which I'm going to have to deal with. I pull my hair out everyday dealing with their strings. But moving on. can you help me put the string together that can convert the [month]...

I have a table called [calendar] with text field [month], [day], and [year]. Other fields are 'PID', (the patientID) All of these fields are short text. This table is used for an patient appointment schedule. and each record is a patient appointment that is used to populate a schdule calander...

Just out of curiosity, why do you count the errors? Are you thinking that the error is happening more than once each time SaveSomeFields is running? Once we find out whether this is true, what will be do with that info? When I put the code is as you suggested, I get the error and it starts to...

Perhaps it is a matter of slowing down the code in the right place. As I said before, If I step thru the code, it will sometime save without error. But I can't seem to find the spot to slow it down. I've tried DoEvents, DBEngine Idle, a function called pauseApp but I can't seem to find the...

JHB, I tried your attached .mdb and did not get any errors. This is how my DB worked at one time for actually several years. I was able to add text to the field in question of very significant sizes without problem. I've actually gone back to some records created several years ago but now...

Thanks for replying JHB. You're right the date with the error is 3/18/2015. My FE is so big it would be too big to upload and would take for ever. I exported by actual FE to a new blank DB call AccessEMRSample.accdb. So I believe it should be a clean one. But I only exported the objects...

I couldn't upload the dbs as an attachement but here you can download it from sftp.chanomfs.com. I'll keep the files up for only this weekend (3/21-23/2015) and then have to remove the files. In case I stripped out too many of the tables you can re-import them from the BE db AccessEMRDB.accdb...

Here is the best I can strip my FE and BE down. Hopefully it helps. I've exported to a new accdb call AccessEMRSample. Hang on, I'm cant quite figure out how to attach. It says I cant upload because I'm missing a security token? I'll work on stripping my DB down in case its too big. Any...

So here is what I've done: I went back and re did the code to save it thru a form both to just save one field (the problem field called 'OpNote') and to save the whole record. But this results in the same problem. The funny thing here is even though I have error handling to catch error 3186...

Okay, Here is what I did: 1) exported the affected memo field 'nNotes' to a new blank AccessDB 2) In the new DB, I added to the table a new memo field 'nNotes1' 3) Copied all of the contents of nNotes to nNotes1 in each record. 4) removed in nNotes from the table 5) renamed nNotes1 to nNotes...

Thanks for your reply JHB. The problem memo field is where we keep our clinical notes that are ongoing. This is the largest of the memo fields. Most of the other memo fields well probably stay under 255 but I have made it a memo field because of the possibility of exceeding the 255. I like...

I'm at my wits end. I have an unbound input form with many text/memo fields that i'm updating to the record. When my code gets to a particular memo field it spits out error 3186 - Can't save record is locked by 'Admin' on machine 'myworkstation'. The interesting thing is that I'm very sure...

OKAY here is the code that works for me. There were may examples that I found online but non of them worked for me. This is used to setup the SET portion of and UPDATE sql statement. Not sure why the other examples didnt work. Public Function FixEscapesInSql(strToFix As String) Dim...

Okay, I've tried just using double quotation marks like: char2Add = Chr(34) & Chr(34) The UPDATE will then run But then I just get: 120/80;45;5'6"";125 I don't want to save my string like this as it will throw off other things. ADDITIONALLY - I want to add escaping for "%". using the...

Thank you for your insight. I thought I was doing that in my code to get the converted version of my string. But Now I've changed my code from: If Mid(strToFix, y, 1) = Chr(34) Then char2Add = Chr(39) & Chr(34) & Chr(39) Else char2Add...

Thank for helping me out. I'm somewhat of a novice VBAer, can you explain to me what doubling them means?

I'm having problems with quotation marks in a sql statement. I can't seem to figure out what my problems is. The string is an array separated by a semicolon. 120/80;70;5'6";125 this string represents patient vitals. I'm using the string to update a record. But I get hung up with the...