28. juni 2007 - 15:57Der er
8 kommentarer og 1 løsning
Public function
Hej,
Har fölgende kode som jeg har fået af en anden! Som det er nu laver den et kriterie ud fra "WHERE sekLåst is null " & _
txtLåsPoster er det textboxfelt som den beregner ud fra. Hvad hvis jeg også vil have at den skal tjekke et andet felt som feks heder txtLåsPoster og have det med i WHERE beregnignen?
Jeg kan ikke bare skrive det ind WHERE for så brokker den sig over at et eller andet ikke er defineret. Har prövet dette men det er det som ikke virker: "WHERE sekLåst is null AND sekSekvens = " & txtLåsSekvens & " " & _
Public Function LåsPoster(Antal As Long)
Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Dim SQLStr As String
Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset
SQLStr = "SELECT TOP " & Antal & " Rnd([sekId]) AS Sortering, * " & _ "FROM tblSekvenslista " & _ "WHERE sekLåst is null " & _ "ORDER BY Rnd([sekId])" rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic Do Until rs.EOF rs!sekLåst = GetUser rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Function
Det er lige det jeg vil have....at den tar med txtLåsPoster i SQL´en txtLåsPoster er et fieldname i en form.
Jeg fik det at virke med: "WHERE.....sekSekvens = " & Forms!frmPosterVälj!txtLåsSekvens & " " & _ Men jeg forstår ikke hvorfor eller hvordan man definerer variable...kan du forklare?
It works fine with the & Forms thing but i wanted to know how the person, who made this code, got the "sekLåst" to work. In other word i would like to kvow how to:
Extract something from a table and then be able to recall it anywhere and in several different forms, reports etc. Is that a variable? Feks. i have a table with users. Now i want to "declare" (or whatever i do) FirstName so i can recall/call it in different forms and reports, how do i do that.
The points are already yours but i hope you can explain it to me? :-)
Morning Rickie There is some code which is used to call the function LåsPoster
Call LåsPoster(Me!txtLåsPoster)
This send the vale of a text from frmSekvenslista to the module where LåsPoser is in. If you want to send txtLåsSekvens too then you need another parameter in the function.
Here is how it is now with only one parameter. Public Function LåsPoster(Antal As Long)
You can see what a vraiable is in the modKalender module I have made.
Than you very much! That was exactly what i wanted. I think i understand the code. I will look into it, create the third button and form tomorrow. Unfortually i don´t have time to do it right now.
For some strange reason i can´t send mail from work to you. I´ve tried to send to you for a couple of days now but i doesn´t seem like you get them. I´ve 2 times today but i don´t get an errormessage.
I have looked into it and have some questions but i will send it to you as soon as i get home from my home mail. BR Rickie
strange, no problem though, just send me when you get home.
We'v ehad this problem before havent we?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
