Recent content by lutajuca

  1. L

    Permanent custom numbering

    To start .. And Aftaleseddel_ID=" & Me.Aftaleseddel_ID &) + 1, 1) ==> And Aftaleseddel_ID=" & Me.Aftaleseddel_ID ) + 1, 1) & Used to force string concatenation of two expression .... After "Me.Aftaleseddel_ID" no more strings to connect and build conditions for Dmax Check...
  2. L

    query value between COMMAS

    More elegant ... if you know arrays.....
  3. L

    query value between COMMAS

    One of the many ways: Function fSecondValue(ByVal Origin As String, ByVal separator As String) As String fSecondValue = Mid(Origin, InStr(1, Origin, separator) + 1, _ InStr(InStr(1, Origin, separator) + 1, Origin, separator) - _ InStr(1, Origin, separator) - 1) End Function InStr(1...
  4. L

    Export All Database Objects Into Text Files

    Message "Hello lutajuca it appears that you have not posted on our forums in several weeks, why not take a few moments to ask a question, help provide a solution or just engage in a conversation with another member in any one of our forums? " led me to write these lines ... In these forums, I...
  5. L

    Record is in edit or add state ?

    Thank you very much, it’s good to hear details from experts. i have solution tested , it's quite good. I would like to summarize : If you need to save data in a record that was just the first time entered into the database, as a default values for a next data record to be entered into...
  6. L

    Record is in edit or add state ?

    It's my mistake, i'm sorry…. wrong title, my language, explanation… BeforeUpdate is better place i f the record will be remembered ... I must to set the DefaultValue, the user can change it , and I have not started the entry, the user will, if they want ... If I make a dirty record in...
  7. L

    Record is in edit or add state ?

    “So what is wrong with using the Default Value property of the textbox?” - in general, nothing ….I do not understand why this question I need to save values (in Form_AfterUpdate ) from just now added record ( it was "new" , not from “old” and edited) as default value for next (when it...
  8. L

    Record is in edit or add state ?

    Ultimate goal - Save values from just now added record ( it was "new"!) as default value for next new record. Unfortunately, I saw one oversight (one) … if the user first, when entering subform, he edited the old record and not add new record It can be repaired: it is necessary to fill...
  9. L

    Record is in edit or add state ?

    A propo syntax... my MsgBox is in comment. AfterUpdate vs BeforeUpdate (btw, i have not tested me.NewRecord, I tested the variable NewRec in Form_AfterUpdate) … i think, after “Form_BeforeUpdate” and before” Form_AfterUpdate”, “Form_Current” is impossible … well, there is no difference...
  10. L

    Record is in edit or add state ?

    Thanks a lot …. Just to check… a) If this is ok Private Sub Form_Current() If Me.NewRecord Then NewRec=true ‘ MsgBox "New one" Else NewRec=False ‘ MsgBox "Old one" End If End Sub b) Form_AfterUpdate should test NewRec Private Sub...
  11. L

    Record is in edit or add state ?

    Hello...thanks in advance for any help. I was looking for answer here and on the network, but .... In sub form (datasheet; for add and delete and edit records ), how, when and where can I test the state of the record to see if it is a new record or just editing an existing record? ( would...
  12. L

    I keep getting #error when I try to use a total from a sub form on my main form

    My question? You mean: ( with wizard ?) This is not an question, it is a possibility, the proposal ...
  13. L

    I keep getting #error when I try to use a total from a sub form on my main form

    This will work if text20 => =sum((DateDiff("d";Date();[ReturnDate])*0,2)) and recreate eventualy Control Source ( with wizard ?) for Text36 => =[frmBorrowSub].[Form]![Text20]
  14. L

    Previous record of same recordset

    pseudo code of your query (one,two… ?) would be useful. However, now : this construction works: a) …., iif(isnull(select 1…),(select 2 …),(select 3…)) as ... in select for a single information b) where id= iif(isnull(select 1…),(select...
  15. L

    Moving data to the left of a double-space from one field to another

    Maybe something like this : Query for update : UPDATE copytblsample AS a SET Author = fAuthor(a.title), Recipient = fRecipient(a.title), Title = fTitle(a.title); Public functions in Modules : Public Function fAuthor(xTitle) As String If InStr(1, xTitle, " ") = 0 Then...
Back
Top Bottom