kissmygritts

kissmygritts

Function SaveExportAs(title As String, extension As String) As String

    Dim dlg As FileDialog
    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    
    With dlg
        .title = title
        .InitialFileName = "C:\docs\" & extension
        If .Show = True Then
            SaveExportAs = .SelectedItems(1)

kissmygritts

Function PickFile(title As String, start As String, filter As String) As String

    Dim dlg As FileDialog
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    
    With dlg
        .title = title
        .InitialFileName = start
        .AllowMultiSelect = False
        .Filters.Clear

kissmygritts

Sub MoveFirst()

  Dim acform As String
  Dim accontrol As String
  
  acform = Screen.ActiveForm.Name
  accontrol = Screen.ActiveControl.Name
  
  Forms(acform).Controls(accontrol).SetFocus
  Forms(acform).Controls(accontrol).SelStart = 0

kissmygritts

Sub Loop_RS()

Dim siteSQL as String
Dim siteRS As DAO.Recordset
siteSQL = "SELECT * FROM Site WHERE Site.Site_ID = " &  Me.Site_ID & ";"
Set siteRS = CurrentDb.OpenRecordset(siteSQL, dbOpenDynaset)

For Each fld in siteRS.Fields
  fld.Value = Me.Controls(fld.Name).Value
Next fld

kissmygritts

library(ggplot2)
library(rgdal)
library(maptools)
library(dplyr)
library(scales)
library(ggmap)

nvranges <- readShapeSpatial("data/NV_Ranges/NV_MountainRanges.shp")
n.map <- fortify(nvranges, region = "RANGE")
state <- readShapeSpatial("data/NV_State/NV_Admin_State.shp")

kissmygritts

Sub writefasta()

Dim fso As Object, ofile As Object
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT ('>' & WHNO & '_' & Tisssue & '_' & Gene) AS ID, Sequence FROM Sheet1 WHERE Gene = 'IGS';")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ofile = fso.createtextfile("C:\Users\Mgritts\Documents\WildlifeHealth\BigGame\Sequences\fasta.txt")

rs.MoveFirst

kissmygritts

SELECT data_Capture.WHno, Count(data_Capture.WHno) AS CountWHno
FROM data_Capture
GROUP BY data_Capture.WHno
HAVING Count(data_Capture.WHno)>1;

kissmygritts

SELECT data_Animal.Species, data_Capture.WHno, data_Capture.CapDate, data_Capture.Recapture, data_Identification.Collar_Current_Freq, data_Identification.Collar_Current_ID
FROM (data_Animal INNER JOIN data_Capture ON data_Animal.WHno = data_Capture.WHno) LEFT JOIN data_Identification ON data_Capture.barcodeID = data_Identification.barcodeID
WHERE (data_Animal.Species="muld" Or data_Animal.Species="rmel") AND data_Capture.WHno IN
    (SELECT data_Capture.WHno
    FROM data_Capture
    GROUP BY data_Capture.WHno
    HAVING Count(data_Capture.WHno)>1)
ORDER BY data_Capture.WHno;

kissmygritts

SELECT dev_joindb.WHno, dev_joindb.Collar_Current_ID, geo.easting_x, geo.northing_y, geo.timestamp
FROM dev_joindb INNER JOIN [;database=C:\Users\Mgritts\Documents\Databases\dbase_capturemonitoringwarehouse\dbase_capturemonitoringwarehouse.accdb].tbl_gps_locations AS geo 
    ON dev_joindb.Collar_Current_ID = geo.deviceid;