Search results

Well, and this "other form", how do you open it? I guess by clicking a button, right? I so, you have to change the code a bit. Code of "Catch_Selection": Private Sub btnOpenOtherForm_Click() Dim strCriteria As String strCriteria = GetCriteria DoCmd.OpenForm "OtherForm"...

One of the purposes of forms is to make data entry more comfortable. The "switch to forms" isn't that difficult. I suggest you flip the switch right now. Use the wizzard - and this forum. ;)

Hi tonynikki0181, welcome to the forum! What you've described is the wrong approach. Every information in a database should be singular, that is, stored only once. If you need the med rec number somewhere else too, create tables which have an 1:n (one to many) relationship. With other words...

Assuming you have a form to add records to your main table, you can put a combobox there which has a query as the record source. Set the property list entries only to "yes". Then you can evaluate the NotInList event: Private Sub cboSurnames_NotInList(NewData As String, Response As Integer)...

I had a look at your 'latest version' (post # 3). Aside from using a third table there is no difference to your code of post # 1, if, yes if you start the loop with the first record of rstFinancialClass, what not happens as you've set the line rstFinancialClass.MoveFirst as a comment. To split...

Try this: Private Sub TidyUpFields() On Error GoTo Err_Tidy Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Select * From Raw2", dbOpenSnapshot) If rs.RecordCount = 0 Then Exit Sub End If rs.MoveFirst Dim idx As Long Dim strFieldName...

Hi ice051505, if I understand you right, you want to pass only one listbox value to your query. If so, this contradicts to a multi select listbox you are talking about first. If you want to pass one value, set the multiselect property of your listbox to "none". Then you will see records in...

Hi slammedtgs, welcome to the forum! Your mistake was a small one. You put the command rstServiceLine.MoveNext at the beginning of your loop. Put it at the end and you will see, it works. Reconsider two more things: 1. A MoveLast and a following MoveFirst is only necessary if you want to get a...

Have pleasant dreams - but hopefully not of VBA! ;)

Ah, o.k., so I assume your "Barcode" field is of numeric type. If so, put the line this way: strSQL = "SELECT * FROM Personeel WHERE Barcode = " & Me.Tekst6.Value & ";" :rolleyes:

Sorry! Now I got it: strSQL = "SELECT * FROM Personeel WHERE Barcode = '" & Me.Tekst6.Value & "';" Set rs = db.OpenRecordset(strSQL)

Hi Earplug, welcome to the forum! Try this: strSQL = "SELECT * FROM Personeel WHERE Barcode = '" & Me.Tekst6.Value & "';"

You're welcome. I'm glad to see I could help. I was able to reproduce the copy & paste behaviour described by you. But it's only that way if you mark entire columns. If you highlight the text in one single record you can do the copy & paste without loosing the line breaks. Of course, this is...

You can do it using some lines of code: Private Sub CopyPlainTextToRichTextField() On Error GoTo Err_Copy Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset( _ "SELECT yourTableName.yourPlainTextField, yourTableName.yourRichTextField " & _ "FROM yourTableName;"...

Hi, narang, welcome to the forum! As you surely have noticed, the search for a solution for U-Doo's problem has required a lot of effort. Several forum members like RuralGuy, RainLover and gemma-the-husky have spent a considerable amount of time in order to help U-Doo. And at the end there was...

Ah, got it. Thanks for the info.

You are welcome! But please tell me what you found out regarding the field GST.

Dick7Access: naturally, because there is no command to make it invisible. Once it is switched to visible, it remains visible. I suggest to move your condition lines to the Form_Current event - and narrow them down to one line: Private Sub Form_Current() Me.txtDateComp.Visible =...

Glad to help. Good luck with your project!

U-Doo, in the meantime I found another solution - without all this query stuff. Use the ZDouble function instead of Nz, e.g. =ZDouble([Daily WO Query-mastercard].[Form]![TotalPayment]):)